单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Crick() Dim I As Integer,n As Integer For j=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。
单选题窗体上有一个名称为Picture1的图片框控件，一个名称为Label1的标签控件，如图所示。
现有如下程序： Public Sub display(x As Control) If
TypeOfx Is Label Then x Caption="计算机等级考试"
Else xPicture=LoadPicture("pic.jpg") End
If End Sub Private Sub
Label1_Click() Call display(Label1) End
Sub Private Sub Picture1_Click() Call
display(Picture1) End Sub
对以上程序，下列叙述中错误的是______。
A.程序运行时会出错
B.单击图片框，在图片框中显示一幅图片
C.过程中的x是控件变量
D.单击标签，在标签中显示一串文字
单选题要求如果x被7除余2，则输x的值，下列语句中不能实现此功能的语句是( )。
单选题要使一个文本框具有水平和垂直滚动条，则应先将其MultiLine属性设置为True，然后再将ScrollBars属性设置为( )。
单选题在VisualFoxPro中，可以使用的两类变量是( )
单选题VB中有3个键盘事件：KeyPress、KeyDown和KeyUp，若光标在Text1文本框中，则每输入一个字母时，下列选项正确的是______。 A) 只触发KeyPress事件 B) 只触发KeyDown、KeyUp事件 C) 这3个事件都会触发 D) 不触发其中任何一个事件
单选题下列的程序段执行后，x的值为______。
Private Sub Command1_Click()
x=0
for i=1 To 10
for j=i To 10
x=x+1
Next j
Next i
Print x
End Sub
单选题有如下程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个整数时，可以得到正确结果；但输入10个负数时结果是错误的。程序需要修改，下列修改中可以得到正确运行结果的是
单选题设a=10，b=4，c=5，d=7，表达式a＞b And Not c＜d+6的值为
单选题设a=5，b=10，则执行 c=Int((b-a)*Rnd+a)+1
后，c值的范围为______。
A. 5～10
B. 6～9
C. 6～10
D. 5～9
单选题如果在窗体上添加一个通用对话框控件DBT，那么语句“DBT．Action=4”的作用是（ ）。
单选题以下声明语句中错误的是( )。 A) Const Var1:123 B) Dim var2:“ABC” C) Deflnt a-z D) Static Var3 As Integer
单选题在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)＜＞""Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String,i As Integer
For i=Len(ss)To 1 Step-1
m=m+Mid(ss,i,1)
Next
Text1.Text=UCase(m)
End Sub
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是______。
单选题下列关于控件焦点的叙述中正确的是( )。
单选题文件列表框的Pattern属性的作用是 ( )
单选题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_C1ick()
Dim a(5，5)
For i=1 To 3
For j=1 To 4
a(i，j) =i*j
Next
Next
For n=1 To 2
For m=1 To 3
Print a(m,n)；
Next
Next
End Sub
程序运行后，单击命令按钮，输出结果是
Ａ) 2 4 6 1 2 3 Ｂ) 1 2 3 2 4 6
Ｃ) 1 2 3 4 5 6 Ｄ) 6 5 4 3 2 1
单选题下列程序执行后，其输出结果为( )。Dim a(5) For i=0 To 4 a(i)=i+1：m=i+1 Ifm=3 Then a(m-1)=a(i-2)Else a(m)=a(i) If i=2 Then a(i-1)=a(m-3) a(4)=i Print a(i)； Next i
单选题在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub Private Sub Form Lead() Text1. Text = " " Text2. Text = " " End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为______。
单选题以下能正确定义数据类型TelBook的代码是________。
A.Type TelBook Name As String*10
TelNum As Integer End Type
B.Type TelBook Name As String*10
TelNum As Integer End TelBook
C.Type TelBook Name String*10
TelNum Integer End Type TelBook
D.Typedef TelBook Name String*10
TelNum Integer End Type
单选题下面是求最大公约数的函数的首部( )。Function fun(By Val x As Integer，ByVal y As Integer)As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是