单选题设a、b都是自然数，为求a除以b的余数，某人编写了以下函数： Function fun(a As Integer，b As Integer) While a>b a=a—b Wend fun=a End Function 在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是( )。
单选题在窗体上画1个名称为List1的列表框，输入若干个项目；再画两个文本框，名称分别为Text1和Text2，如图所示。编写如下事件过程：PrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSubPrivateSubText1_Change()DimstrAsString,SAsStringDimkAsInteger,nAsIntegerS=Text1.Textstr=""n=List1.ListCount-1Fork=nTo0Step-1IfInStr(List1.List(K),S)＞0thenstr=str&List1.List(K)EndIfNextkIfstr=""ThenText2.Text="无匹配项目"ElseText2.Text=strEndIfEndSub运行程序，在Text1中输入“海”，则在Text2中显示的内容是______。
单选题把数学表达式表示为正确的VB表达式应该是()。
单选题下面不是键盘事件的是( )。 A) KeyDown B) KeyUp C) KeyPress D) KeyCode
单选题在窗体上画一个名称为Command1的命令按钮，并编写如下过程：
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x=10
y=5
Call f1(x,y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是______。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim n As Integer For n=0 To 9 Step 3 Print rel(n)； Next n End Sub Private Function tel(ByVal i As Integer)As Integer Dim x As Integer x=0 For j=1 To i If i＜5 Then rel=i：Exit Function x=x+j Next j rel=x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是______。 A) 1 3 5 7 B) 2 8 14 53 C) 0 3 21 45 D) 0 5 11 34
单选题Visual Basic集成环境由若干窗口组成，其中不能隐藏(关闭)的窗口是
单选题要使Label控件中显示的文字超出它的宽度时能自动换行，应该把它的WordWrap属性设置为______。
单选题为了获得当前未被使用的文件号，可以利用Visual Basic提供的 ______ 函数来实现。
单选题语句：Print Asc(Chr$(Mid$(”98765432”，4，2)))的输出是
单选题Visual Basic程序设计采用的编程机制是（ ）。
单选题下列各选项说法错误的一项是（ ）。
单选题在设计阶段，如果双击窗体上的一个文本框控件，则在代码窗口中显示该控件的事件过程所对应的事件是
单选题设有如下一段程序：
Private Sub Command1_Click()
Static a As Variant
a=Array(one,two,three,four,five)
Print a(3)
End Sub
针对上述事件过程，以下叙述中正确的是______。
单选题有如下程序： Function F(a As Integer) b = 0 Static C b = b + 1 c = c + 2 F = a + b + c End Function Private Sub Command1_Click() Dim a As Integer a = 2 For i=1 To 3 Print F(a)； Next i End Sub 运行上面的程序，单击两次命令按钮，在窗体上输出结果为 A) 4 4 4 B) 4 5 6 C) 5 7 9 D) 11 13 15
单选题有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t/Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为
单选题下面不能在信息框中输出“VB”的是______，
A.MsgBox"VB"
B.x=MsgBox("VB")
C.MsgBox("VB")
D.CallMsgBox"VB"
单选题对于含有多个窗体的工程而言，以下叙述中正确的是
单选题设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时，单击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删除。If Check1(Index)．Caption=List1．List(k)Then Exit For为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是
单选题已知数组Dim a(1 To 10)As Integer，则下面正确调用GetValue函数的是
____
。
Private Function GetValue(a()As Integer)As Integer
For i=1 To 10
GetValue=GetValue+a(i)
Next i
End Function