单选题假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上厕一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5 b=4 S(a,b) Print a,b End Sub 程序运行后，单击命令按钮，输出结果为( ) A．5 4 B．1 1 C．1.25 4 D．1.25 1
单选题窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程： Private Sub Textl_Change(Index As Integer) Select Case Index Case 0 Textl(1)．FontSize=Textl(0)．FontSize*2 Textl(1)．Text=Textl(0)．Text Case 1 Text1(0)．FontSize=Textl(1)．FontSize／2 Textl(0)．Text=Textl(1)．Text Case Else MsgBox”执行Else分支” End Select End Sub 关于上述程序，以下叙述中错误的是
单选题Command1_Click()事件代码如下：
Private Sub Command1_Click()
Dim x As Integer, Y As Integer
x = 6 : Y : 8
Call ABC(X, Y)
Print X; Y
End Sub
Private Sub ABC(ByVal X As Integer，Y As Integer)
X = X + 4
Y = Y = 2
End Sub
事件发生后，X和Y的值分别为 ______。
单选题在窗体上画一个名称为Labell的标签，然后编写如下事件过程。 Private Sub Form_Click( ) Dim arr(10, I0) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j =2 To 4 arr(i,j) =i*j Next Next Labell. Caption = Str(arr(2,2) + arr(3,3) ) End Sub 程序运行后，单击窗体，在标签中显示的内容是
单选题若将变量TestDate声明为Date类型，则下列为变量TestI)ate赋值的语句中正确的是( )。
单选题当一个复选框被选中时，它的Value属性的值是
____
。
单选题在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 10
a=a+1
b=0
For j=1 To 10
a=a+1
b=b+2
Next j
Next i
Label1.Caption=Str(a)
Label2.Caption=Str(b)
End Sub
程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别为______。
单选题以下用户自定义函数 Function Func(a As Integer，b As Integer)As Integer Static m As Integer．i As Integer m=0：i=2 i=i+m+i m=i+a-i-b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4：m=1 P=Func(k,m) Print P End Sub 程序运行后，单击命令按钮，输出结果为
单选题满足下列条件之一的年份是闰年：1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份，下面判断闰年的正确表达式是
单选题要使文本框获得输入焦点，则应采用文本框控件的( )方法。 A．GotFocus B．LostFocus C．KeyPress D．SetFocus
单选题窗体上有一个名称为Command1的命令按钮，其单击事件过程如下： Private Sub Command1_Click() Dim x As Integer，y As Integer Static z As Integer x=3：y=5：z=y Call f(x，y，z) Print x；y；z End Sub Private Sub ffByVal a As Integer，ByRef b As Integer，c As Integer) a=a+a：b=b+b：c=c+c End Sub 运行程序，单击命令按钮时，3个标签中显示的内容分别是
单选题算法是指______。
A. 计算机程序
B. 解决问题的计算方法
C. 排序算法
D. 解决问题的有限运算序列
单选题下面关于菜单的叙述中错误的是______。 A) 弹出式菜单也用菜单编辑器编辑 B) 弹出式菜单用PopupMenu方法弹出 C) 各级菜单中的所有菜单项的名称必须唯一 D) 同一子菜单中的菜单项名称必须唯一，但不同子菜单中的菜单项名称可以相同
单选题图像框中的Stretch属性为True时，其作用效果为{{U}} {{/U}}。
A. 只能自动设定图像框长度
B. 只能自动扩大图像
C. 只能自动缩小图像
D. 图形自动调整大小适应图像控件
单选题单击一次命令按钮之后，下列程序段的执行结果为( )。 Pubic Sub Proc(a()As Integer) Static i As Integer Do a(i)=a(i)+a(i+1) i=i+1 Loop While i End Sub Private Sub Command1_Click() Dim m As Integer,i As Integer,x(10)As Integer For i=0 To 4:x(i)=i+1:Next i For i=1 To 2:CallProc(x()):Next i For i=0 To 4:Print x(i);Next i End Sub
单选题有如下程序：
Private Sub Form_Click()
E=1:F=1
For j=1 To 3
E=E+F:F=F+E
Next
Print E:F
End Sub
该程序的输出结果是
单选题为了把一个记录类型变量的内容写入文件中指定的位置，所使用的语句的格式为
单选题窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：PrivateSubCommand1_Click()Dimn%,k%n=Len(Text1.Text)Fork=0ToList1.ListCount-1IfLeft(List1.List(k),n)=Text1.TextThenList1.RemoveItemkEndIfNextkEndSub在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把Fork=0ToList1．Listcount-1改为()。A)Fork=List1.ListCount-1To0Step-1B)Fork=0ToList1.ListCountC)Fork=1ToList1.ListCount-1D)Fork=1ToList1.ListCount
单选题编写如下事件过程：Private Sub Form_ KeyDown(KeyCode As Integer，Shift As
Integer) If (Button And 3)= 3 Then
Print "AAAA" End IfEnd
Sub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为______。
A. 左
B. 右
C. 同时按下左、右
D. 按什么键都不显示
单选题下面程序运行时，单击窗体后，窗体上显示的结果是{{U}} {{/U}}。 Private
Sub Form_Click Dim I As Integer Dim sum As
Long Dim t1 As Long t1=1:sum=0
For 1=1 To 3 t1=t1*I
sum=sum+t1 Next I Print sum
End Sub
A.3
B.9
C.5
D.6