单选题设a="a"，b="b"，c="c"，d="d"，执行语句x=IIf((a＜b)Or(c＞d)，"A"，"B")后，x的值为 A) "a" B) "b" C) "B" D) "A/
单选题有如下过程代码：
Sub var_dim( )
Static numa As Integer
Dim numb As Integer
numa=numa+2
numb=numb+1
print numa； numb
End Sub
连续3次调用var_dim过程，第3次调用时的输出是______。
单选题假定程序中有以下语句：_______。
answer=MsgBox("Stringl",,"String2","String3",2)
执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为：_______。
单选题VB中有3个键盘事件：KeyVress、KeyDown、KeyUP，若光标在Text1文本框中，则每输入一个字母( )。
单选题设有如下程序
Option Base 1
Private Sub Form_Click( )
Dim a(5) As String , i As Integer
For i=1 To 5
a(i)=Chr(Asc(“A”)+i)
Call f(a,i)
Next i
End Sub
Sub f(ta() As String , n As Integer)
Dim i As Integer
For i=1 To
Print ta(i);
Next i
End Sub
对上述程序，以下叙述中正确的是
单选题给程序的空白行选择适当的语句。窗体上有一个命令按钮Command2和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下。 Private Sub Command2_Click() Dim Ind As Integer Ind=______ List1.Remove Ind End Sub
单选题控件______ 属性的设置，可使该控件不能通过Tab键得到焦点。
单选题下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4)，i%，t# For i=1 TO 4 b(i)=i Next i t=Tof(b()) Print"t="；t， End Sub Function Tof(a()As Integer) Dim t#，i% t=1 For i=2 To UBound(
单选题窗体上有名称为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算（乘以1、10或100），并将结果显示在Text2中，如图2所示，为了实现上述功能，在程序中的问号（？）处应填入的内容是______。PrivateSubOption1_Click(IndexAsInteger)IfText1.Text<>""ThenSelectCase?Case0Text2.Text=Val(Text1.Text)Case1Text2.Text=Val(Text1.Text)*10Case2Text2.Text=Val(Text1.Text)*100EndSelectEndIfEndSub
单选题有如下函数过程： Function fun1(By Val x As Integer,By Val y As Integer)As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_CliCk() Dim a As Integer Dim b As Integer a=100 b=25 x=fun1(a，b) Print x End Sub
单选题没有以下函数过程：
Private Function Fun(a() As Integer, b As String) As Integer
...
End Function
若已有变量声明：
Dim x(5) As Integer, n As Integer, ch As String
则下面正确的过程调用语句是______。
单选题有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)＞0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End Sub
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序: Private Sub Command1_Click( ) Static x As Integer Static y As Integer Cls y = 1 y = x + 2 x = 4 + y Print x， y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为________。
单选题下列有关控件数组的说法中，正确的是
单选题窗体上有一个名为Command1的命令按钮．并有下面的程序： Private Sub Command1_Click() Dim arr(5)As Integer For k=1 To 5 arr(k)=k Next k prog arr() For k=1 To 5 Print arr(k); Next k End Sub Sub prog(a()As Integer) n=UBound(a) For i=n To 2 step-1 For j=1 To n-1 if a(j)＜a(j+1) Then t=a(j):a(j)=a(j+1);a(j+1)=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是( ) A．12345 B．54321 C．01234 D．43210
单选题下面程序运行后，语句“Print i”执行的次数是( )。 Private Sub Form_Click() Dim i As Integer，j As Integer i=0 Do i=i+1 Forj=10 To 1 Step-3 i=i+j Printi Next j Loop While i<50 End Sub
单选题假定有下面的过程： Function Func(a As Integer,b As Integer)As Integer Static m As Integer,i As Integer m=0 i=2 i=i+m+1 m=i+a+b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command 1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4 m=1 p=Func(k，m) Print p； p=Func(k，m) Print p End Sub 程序运行后，单击命令按钮，输出结果为( )。
单选题窗体如左图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：PrivateSubCommand1_Click()Dimn%,k%n=Len(Text1.Text)Fork=0ToList1.ListCount-1IfLeft(List1.List(k),n)=Text1.TextThenList1.RemoveItemkEndIfNextkEndSub在调试时发现，如果输入“陈”，可以正确删除所有姓“陈”的项目，但若输入“刘”，则只删除了“刘邦”、“刘备”两项，结果如右图所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把Fork=0ToList1.ListCount-1改为______。
单选题多态性机制不仅增加了面向对象软件系统的灵活性，进一步减少了信息冗余，而且显著地提高了软件的可重用性和( )。
单选题若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指