单选题窗体上有一个名称为command1的命令按钮，其中部分代码如下：
Private Sub Command1_Click()
Dim a(10)As Integer
Dim n As Integer
Call calc(a,n)
……
End Sub
CaIc过程的首行应该是______。
单选题在窗体上画一个名称为Text1的文本框，再建立一个名称为Option1的控件数组（含3个单选按钮，标题分别为宋体、黑体、仿宋，下标从０开始），并编写如下程序代码：
Private Sub Option1_Click(Index As Integer)
Dim ft As String
Select Case _________________
Case 0
ft = "宋体"
Case 1
ft = "黑体"
Case 2
ft = "仿宋"
End Select
Text1.FontName = ft
End Sub
程序运行后，单击某个单选按钮，可将文本框的文本字体设置为相应的字体，则在横线处应填入的内容是
单选题如果想在程序中反复使用一个日期型数据“01/01/2005”，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到这个数据的语句，可以采用( )。
单选题设工程中有2个窗体：Form1、Form2、Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：
Private Sub Text 1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Text1.Text="Teaeher"Then
Form2.input.Visible=True
Else
Form2.input.Visible=False
End If
End If
Form1.Hide
Form2.Show
End Sub
菜单结构
标题
名称
级别
成绩管理
mark
1
成绩查询
query
2
成绩录入
input
3
程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是______。
单选题下列程序的输出结果为( )。 S1="1":S2="2":S1=Val(S1)+Val(S2):S2=Val("12") If S1＜＞S2Then Print S1-S2 Else Print S2-S1
单选题下列不是标准控件的是______。
单选题假定程序中有以下语句：_______。
answer=MsgBox("Stringl",,"String2","String3",2)
执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为：_______。
A. String1
B. String2
C. String3
D. 1
单选题在窗体上画一个文本框(其名称为Textl)和一个标签(其名称为Label1),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是【 】
单选题用来设置文字字体是否斜体的属性是( )。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private SubCommand1_Click() Dim num As Integer num=1 DO Until mum＞6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。
单选题执行下列程序段后，输出的结果是( )。 Forkl=0 To 4 y=20 For k2=0 To 3 y=10 Fork3=0 To 2 y=y+10 Next k3 Next k2 Next k1 Print y
单选题窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序：Dim
n As IntegerPrivate Sub
Timer1_Timer() ch=Chr(n+Asc("A")) Label1.Caption=ch n=n+1 n=n
Mod 4End Sub运行程序，将在标签中______。
A.不停地依次显示字符"A"、"B"、"C"、"D"，直至窗体被关闭
B.依次显示字符"A"、"B"、"C"、"D"各一次
C.每隔1秒显示字符"A"一次
D.每隔1秒依次显示26个英文字母中的一个
单选题现有如下一段程序： Private Sub Command1_Click() x=UCase(InputBox("输入：")) Select Case x Case"A"To"C" Print"考核通过!" Case"D" Print"考核不通过!" Case Else Print"输入数据不合法!" End Select End Sub 执行程序，在输入框中输入字母“B”，则以下叙述中正确的是( )。
单选题当双击窗体Form1时，要将窗体Form1隐藏起来、将窗体Form2以模式方式显示出来的事
件过程，正确的是
单选题设有如下程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i=1 To 10
i=i+j
j=j+1
Next i
End Sub
程序运行后，单击命令按钮Command1，循环执行的次数为
单选题若将变量TestDate声明为Date类型，则下列为变量TestDate赋值的语句中正确的是( )。
单选题对长度为n的线性表进行顺序查找，在最坏情况下，需要比较的次数为______。 A) log2n B) n2 C) n D) n+1
单选题对于数据库系统，负责定义数据库内容，决定存储结构和存取策略及安全授权等工作的是______。
单选题有下面程序代码： Private Sub Commandl_Click() a=Array(1，2，3，4，5，6，7，8，9，10) n=UBound(a) For k=0 To UBound(a)／2 Print a(k)*a(n)；：n=n-1 Next k End Sub 程序运行后，单击命令按钮Commandl，输出结果是
单选题要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是