单选题为了使窗体左上角不显示控制框,需设置为False的属性是
单选题单击命令按钮执行以下程序,则输出结果为( )。 Pnvme Sub Command1_Click() Dim x As Integer,y As Integer x=14:y=48:Call Proc(x,y) Print x;Y End Sub Public Sub Proc(nAs Integer,ByVal m As Integer) n=n Mod 10:m=m Mod 10 End Sub
单选题下列程序执行后,其输出结果为______。
Dim a(5)
For i=0 To 4
a(i)=i+1:m=i+1
If m=3 Then a(m-1)=a(i-2) Else a(m)=a(i)
If i=2 Then a(i-1)=a(m-3)
a(4)=i
Print a(i);
Next i
单选题下列关于栈叙述正确的是( )。 A) 栈顶元素最先能被删除 B) 栈顶元素最后才能被删除 C) 栈底元素永远不能被删除 D) 栈底元素最先被删除
单选题在窗体上画一个命令按钮,然后编写如下代码:Private Sub Command1_Click()Dim MaxSize,NextChar,MyCharOpen"d:\temp\female.txt"For Input As#1MaxSize=LOF(1)For NextChar=MaxSize To 1Step-1Seek#1,NextCharMyChar=Input(1,#1)Next NextCbarPrint EOF(1)Close#1End Sub程序运行后,单击命令按钮,其输出结果为( )。
单选题下列程序执行后,变量a的值为______。 dim a, b, c, d as single a=100 b=20 c=1000 if b>a then d=a: a=b: b=d end if if c>a then d=a: a=c: c: d end if if c>b then d=b: b=c: c=d end if
单选题以下可以作为Visual Basic变量名的是
单选题表达式2*3^2+2*8/4+3^2的值为( )。 A.64 B.31 C.49 D.22
单选题用来设置文字字体是否为粗体的属性是( )。 A) FontItalic B) FontUnderline C) FontSize D) FontBold
单选题设程序中有以下语句:
MsgBox"Visual",,"Basic","|等级考试",2
执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是
单选题以下语句中正确的是( )。
单选题以下命令中能够正确地画出矩形的是( )。
单选题设在工程中有一个标准模块,其中定义了如下记录类型:Type Books Name As String *10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_ Click时,在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
单选题栈底至栈顶依次存放元素A、B、C、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是 ______。 A) ABCED B) DBCEA C) CDABE D) DCBEA
单选题假定有如下的命令按钮(名称为Command1)事件过程: Private Sub Command1_Click() x=InputBox("输入:", "输入整数") MsgBox"输入的数据是:", ,"输入数据:"+x End Sub 程序运行后,单击命令按钮,如果从键盘上输入整数10,则下列叙述中错误的是
单选题在窗体上添加一个命令按钮,名为Command1,其单击事件中有下列程序段,则事件过程执行后,文本框中输出( )。 For i=1 To 4 For j=1 To 3 x=3 For k=1 To 2 K=x+3 Next k Next j Next i Text1.Text=Str(x)
单选题设在窗体上有一个名称为Combo1的组合框,要删除最后一项,下列正确的语句是______。 A) Combo1.RemoveItem Combo1.List(5) B) Combo1.RemoveItem Combo1.Text C) Combo1.RemoveItem Combo1.ListCount D) Combo1.RemoveItem Combo1.ListCount-1
单选题单击命令按钮时,下列程序的运行结果为 Private Sub Command1_Click() Print MyFund(20,18) End Sub Public Function MyFund(m As Integer,n As Integer)As Integer Do While m<>n Do While m>n:m=m-n:Loop Do While m<n:n=n-m:Loop Loop MyFund=m End Function
单选题数1.21314151617181D+019写成普通的十进制数是______。
单选题设在工程文件中有一个标准模块,其中定义了下列记录类型:
Type Books
Name As String*10
TelNum As String*20
End Type
在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1 Click时,在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是______。
