单选题满足下列条件之一的年份是闰年：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
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub subl(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)
z=x*x+y*y
End Sub
Private Sub Command1_Click()
Dim a As Integer
a=8
Call subl(1, 2, a)
Print a
End Sub
程序运行后，单击命令按钮，则窗体下显示的内容是______。
单选题关于自定义对话框概念的说法中，错误的是____。
单选题如果在一新建的工程中使用其他工程已设计好的窗体，可以采用( )步骤将其添加到当前工程中。
单选题下列对于软件测试的描述正确的是( ) A．软件测试的目的是证明程序是否正确 B．软件测试的目的是使程序运行结果正确 C．软件测试的目的是尽可能地多发现程序中的错误 D．软件测试的目的是使程序符合结构化原则
单选题有下面程序代码：
Private Sub Command1_Click()
Dim sign As Integer
sign=1
a=1:b=2
For k=1 To 5
c=a+sign*b
a=b:b=c
Print c;
sign=-sign
Next k
End Sub
程序运行后，单击命令按钮Command1，输出结果是
单选题在利用菜单编辑设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为( ) A．退出(X&) B．退出(&X) C．退出(X#)D．退出(#X)
单选题在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click( ) Dim a As Integer，b As String，c As Integer a=1234 : b=Str(a) c=Len(b) Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。 A) 0 B) 5 C) 6 D) 7
单选题在窗体上画两个文本框(其名称分别为Text1和Text2)和一个命令按钮(其名称为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click( ) Text1.Text = "Microsoft Visual Basic" End Sub Private Sub Text1_Change( ) Text2.Text = UCase(Text1.Text) End Sub 程序运行后，单击命令按钮，则在Text2文本框中显示的内容是________。