单选题有如下程序 Private Sub Command1_Chck( ) s=0 DO s=(s+1) *(s+2) N=N+1 Loop Until s＞=10 Prim N；s End Sub 运行后的输出结果是
单选题若窗体上有一个名为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
程序运行时，单击命令按钮后显示的是______。
单选题设工程中有2个窗体： Form1、Form2，Form1为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见;否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Text1.Text="Teacher" Then
Form2.input.visible=True
Else
Form2.input.visible=False
End If
End If
Form1.Hide
Form2.Show
End Sub
程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是
单选题为了装入一个Visual Basic应用程序，应当_________。
A.只装入窗体文件(.frm)
B.只装入工程文件(.vbp)
C.分别装入工程文件和标准模块文件(.bas)
D.分别装入工程文件、窗体文件和标准模块文件
单选题单精度浮点数的正值取值范围为_______。
A.3.402823E+38～1.401298E-45
B.4.94065D-324～1.797693134862316D+308
C.1.401298E-45～3.402823E+38
D.1.797693134862316D+308～4.94065D-324
单选题以下是窗体的Click事件过程：
Private Sub Form_Click( )
Dim a As Integer
a = 1
Do
a = a + 5
Loop Until a ＞ 18
Print a
End Sub
程序运行过程中单击窗体，输出结果是______。
单选题要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是______。
A.If x mod 7=2 Then Print x
B.If x-(x/7)*7-2 Then Print x
C.If x-(x/7)*7=2 Then Print x
D.If x-lnt(x/7)*7-2 Then Print x
单选题窗体上的三个命令按钮构成名称为Commandl的控件数组。如图所示。程序如下：PrivateSubCommandl—Click(IndexAsInteger)IfIndex=1ThenPrint“计算机等级考试”EndIfIfIndex=2ThenPrintCommandl(2)．CaptionEndIfEndSub运行程序，单击“命令按钮2”，则如下叙述中正确的是()。
单选题假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"VB Test"的语句为（ ）
单选题下面程序的输出是______。
单选题表达式Sgn (0.25)的值是______。
A.-1
B.0
C.1
D.0.5
单选题若看到程序中有以下事件过程，当程序运行时______。
Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "VB Program"
End Sub
单选题若想要建立一个学生管理系统的输入界面，其中要求选择学生的性别/政治面貌(党/团/群众)及选课情况(共有5门课，可任选)，下列设置方法正确的是______。
单选题要求当鼠标在图片框Picturel中移动时，立即在图片中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是( )。
单选题下列控件中，没有Caption属性的是______。
单选题下面不能在信息框中输出“VB”的是( )。
单选题对窗体编写如下事件过程： Private Sub Form MouseDown(Button As Integer，Shift As Integer, _ x As Single, Y As Single) If Button=2 Then Print "AAA" End If End Sub Private Sub Form MouseUp (Button As Integer，Shift As Integer，_ x As Single，Y As Single) Print "BBB" End Sub 程序运行后，如果单击鼠标右键，则输出结果为 ______。
单选题下面叙述中错误的是
单选题在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 To 5 a(I)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是______。
单选题以下程序运行后，输出结果是()。Forj=1T03PrintTab(3*j)；2*(j-1)*2*(j-1)NextjPrint