单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_ Click() Dim arr (10) For i = 1 To 10 arr (i) = i ^ 2 Next i Print arr(i - 2) End Sub程序运行后，单击命令按钮，在窗体上输出的是______ 。
单选题在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程： Private Sub
Command1_Click() Text1.Text="VB Programming"
Text2.Text=Text1.Text Text1.Text="ABCD" End
Sub 程序运行后，单击命令按钮，Text1文本框中显示的内容为_______。
A."VB Programming"
B."ABCD"
C." VB Programming ABCD"
D.空
单选题单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click(
) Dim x As Integer, y As Integer
x=12:y=32 Call PCS(x,
y) Print x; y
End Sub Public Sub PCS( ByVal n As Integer, ByVal
m As Integer) n = n Mod
10 m=m Mod 10
End Sub
A. 12 32
B. 2 32
C. 2 3
D. 12 3
单选题设x值为6，y值为0，则以下可使y值为1的程序段是
单选题现有如下语句： x＝IIf(a>50， Int(a/3)， a Mod 2)当a＝52时，x的值是( )。
单选题设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：Private Sub Command1_Click()Dim s As String，ch As String S=""For k=1 To Len(Text1)ch=Mid(Text1，k，1)s=ch+s Next k Text1．Text=s End Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是
单选题某人为计算n!(0＜n＜=12)编写了下面的函数过程： Private Function fun(n As
Integer)As Long Dimp As Long p=1
For k=n-1 To 2 Step-1 p=p*k
Nextk fun=p End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是______。
A.把p=1改为p-n
B.把For k=n-1 To 2 Step-1改为For k-1 To n-1
C.把For k=n-1 To 2 Step-1改为For k-1 Ton
D.把For k=n-1 To 2 Step-1改为For k=2 To n
单选题有如下程序： Private Sub Form_Click() Dimi As Integer,sumASInteger sum=0 For i=2To 10 If i Mod2＜＞0 And i Mod 3=0 Then sum=sum+i End If Nexti Print sum EndSub 程序运行后，单击窗体，输出结果为( )。 A．12 B．30 C．24 D．18
单选题设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程序设计采用的编程机制是（ ）。
单选题下列各选项说法错误的一项是（ ）。