单选题有下列程序，程序运行后单击命令按钮，则输出的结果为( )。Private Sub Command1_Click()Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(
单选题要建立一个随机文件记录学生的信息，如下定义了学生的记录类型，由学号、姓名、5门课程成绩(百分制)组成，下列的定义正确的是( )。
单选题关于随机文件，以下叙述中错误的是( )。 A) 使用随机文件节约空间 B) 随机文件记录中，每个字段的长度是固定的 C) 随机文件中，每个记录的长度相等 D) 随机文件的每个记录都有一个记录号
单选题假定已在窗体上画了多个控件，其中有一个被选中，为了在属性窗口中设置窗体的属性，预先应执行的操作是______。
单选题若在某窗体模块中有如下事件过程 Private Sub Command1_Click(Integer) End Sub 则以下叙述中正确的是
单选题有如下程序： Const n=-5:Const M=6 Dim a (n To M) For i=Lbound(a, 1) To Ubound(a, 1) a(i)=i Next i Print a(Lbound(a, 1));a(Ubound(a, 1)) 运行后输出结果为______。
单选题在窗体上画Text1、Text2两个文本框，并编写如下程序：Private Sub Form_Load() Text2.PasswordChar = "$"End SubPrivate Sub Text1_Change() Text2.Text = Text1.TextEnd Sub运行程序，在Text1文本框中输入"ABCDEFG"，则产生的结果是
单选题在运行时，如果按Tab键跳过了一个可以获得焦点的控件(如文本框)，其原因可能是______。
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n/3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
单选题下列程序段的执行结果为______。 DimA(10),B(5) For i=1 To 10 A(i+=i Next i For i=1 To 5 B(j)=j*20 Nextj A(5)=B(2) Pfiat"A(5)"；A(5)
单选题有如下程序： Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As Integer，m As String Static y，n X=X + 1 y=y + 1 m=m &"*”：n=n&"#" Print x，y，m，n End Sub 程序运行后，输出的结果是
单选题在窗体上画2个命令按钮，名称分别为Command1、Command2，并编写如下程序：
Const n=5, m=4
Dim a(m, n)
Private Sub Command1_Click()
K=1
For i=1 To m
For j=1 To n
a(i, j)=k
k=k+1
Next j
Next i
End Sub
Private Sub Command2_Click()
sum=0
For i=1 To m
For j=1 To n
If i=1 Or i=m Then
summ=summ+a(i, j)
Else
If j=1 Or j=n Then
Summ=summ+a(i, j)
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1_Click()的作用是二维数组a中存放1个m行n列的矩阵；过程Command2_Click()的作用是______。
单选题有如下程序： 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 该程序的输出结果是
单选题以下合法的VB变量名是______。
A._x
B.2y
C.a#b
D.x_1_x
单选题层次型、网状型和关系型数据库划分原则是( )。
单选题在窗体模块中用Public定义的变量的作用范围是
A. 整个程序的所有模块中
B. 该窗体模块中
C. 标准模块中
D. 其他窗体模块中
单选题下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End Sub
单选题下列语句都是在Form中定义的，其中，错误的是
单选题在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如下图所示。编写如下程序：PrivateSubForm_Load()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand1_Click()x=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=f(x,y)EndSubFunctionf(ByValxAsInteger,ByValyAsInteger)DoWhiley＜＞0tmp=xModyx=yy=tmpLoopf=xEndFunction运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是______。
单选题在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：Private Sub
Command1_Click() Dim arr(10) For i=6 To 10 arr(i)=i-5 Next
i Label1.Caption=arr(0)+arr(arr(10)/arr(6))End
Sub运行程序，单击命令按钮，则在标签中显示的是______。
A.0
B.1
C.2
D.3