单选题以下控件可以用来实现定时地执行某段代码的是 ______。
单选题已知窗体上有一名称为Pic1的图片框，现在要把图片文件“temp1．bmp”装载到该图片框中，使用的语句是( )。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： option Base 1 Private Sub Command1_Click() Dim s As Variant a=Array(1, 2, 3, 4, 5) Sum=0 For i=1 To 5 Sum=Sum_a(i) Next i X=Sum/5 For i=1 To 5 If a(i)＞x Then Print a(i); Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
单选题设x是整型变量，与函数Ⅱf(x>0,-x,x)有相同结果的代数式是
单选题设有如下程序： Private Sub sV(ByVal m As Integer，n As Integer) m=m*2：n=n-5：Print m：n End Sub Private Sub Form Click() Dim xAs Integer，y As Integer x=10：y=15：sV x，y Print x；y End Sub 运行程序，单击窗体，输出结果为
单选题在顺序文件中，当使用Write#语句时，文件打开的方式必须是______。
单选题能够产生1到50之间(含1和50)随机整数的表达式是
单选题窗体上有一个名称为Text1的文本框，一个名称为CD1的通用对话框，一个标题为"打开文件"的命令按钮，如图所示。命令按钮的单击事件过程如下：PrivateSubCommand1_Click() CD1.ShowOpen OpenCD1.FileNameForInputAs#1 MsgBoxCD1.FileName LineInput#1，s Text1.Text＝s Close#1EndSub单击命令按钮，执行以上事件过程，打开选定的文件，读取文件的内容并显示在文本框中.以下叙述中正确的是( )。
单选题有如下程序 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