单选题设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1，及下面的事件过程：PrivateSubForm_Load() HScroll1.Min=0 HScroll1.Max=100EndSubPrivateSubCommand1_Click() HScroll1.Value=70EndSub程序运行时单击命令按钮，则滚动条上滚动块位置的图示是______。A．B．C．D．
单选题窗体上有一个名称为VScrol11的滚动条，当用鼠标拖动滚动条中的滚动块时，触发的事件是
单选题现有语句：y=llf(x＞0，x Mod 3，0)设x=10，则y的值是( )。
单选题窗体上有名称为Command1的命令按钮和名称为Text1的文本框( )。 Private Sub Command1_Click() Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text="等级考试" End Sub 运行以上程序，单击命令按钮后( )。
单选题在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码：
Private Sub Command l_Click（）
Dim a
a=Array（1,2,3,4）
I=3：j=1
Do While i＞=0
s=s＋a（i）*j
i=i-1
j=j*10。
Loop
Print s
End Sub
运行上面的程序，单击命令按钮，则输出结果是
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4)
Dim i As Integer, j As Integer
For i = 1 To 4
For j = 1 To 4
a1(i, j) = i + j
a2(i, j) = a1(i, j) + i + j
Next j
Next i
Print a1(3, 3); a2(3, 3) End Sub
程序运行后，单击命令按钮，在窗体上输出的是______。
单选题把窗体的KeyPreview属性设置为True，然后编写如下过程： Private Sub Form_KeyDown(KeyCode As Integer， Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer， Shift As Integer) Print Chr(KeyCode + 2) End Sub 程序运行后，如果按"A"键，则输出结果为________。
单选题列表框List1中没有数据项，现编制如下程序：
Private Sub Command1_Click()
For i=1 To 6
List1.AddItem i
Ncxt i
For i=5 To 3 step-1
List 1.RemoveItem i
Next i
End Sub
程序运行后，单击命令按钮Command1，则列表框List1中的数据项为
单选题已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是( )。
单选题窗体上有一个列表框控件List1。以下叙述中错误的是( )。
单选题程序运行时，单击命令按钮，则产生的操作是( )。
单选题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub
Command1_Click() Dim I,Num Randomize
Do For I=1 To 1000
Num=Int(Rnd*100) Print Num; SelectCase
Num Case 15 Exit For
Case 50 Exit Do Case
62，66，90 End End
Select Next 1 Loop
End Sub 上述事件过程执行后，下列描述中正确的是______。
A. Do循环执行的次数为1000次
B. 当所产生的随机数为15时结束所有循环
C. 在For循环中产生的随机数小于或等于100
D. 当所产生的随机数为62、66或90时窗体关闭、程序结束
单选题下面程序在调试时出现了死循环 Pfivate Sub Commandl_Click() n=InputBox(“请输入一个整数”) Do Ifn Mod 2=0 Then n=n+1 Else n=n+2 End If Loop Until n=1000 End Sub
单选题有三个关系R、S和T，如下：由关系R和5通过运算得到关系T，则所使用的运算为
单选题在窗体上面一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a$,b$,c$,k%
a="ABC"
b="123456"
c=""
k=1
Do While k＜=Len(A)Or k＜=Len(B)
If k＜=Len(A)Then
c=c&Mid(a,k,1)
End If
If k＜=Len(B)Then
c=c&Mid(b,k,1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是______。
单选题如果在文件列表框中，没有文件被选中，则其ListIndex的值为( )。
单选题编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是
单选题在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click( ) Dim x As String, y As String, c As String, d As String x = Text1.Text : y = Text2.Text c = LCase(x): d = UCase(y) Print c; d End Sub 程序运行后，在文本框Text1、Text2中分别输入AbC和efG，结果是________。
单选题把窗体的KeyPreview属性设置为True。然后编写如下事件过程 Pfivate Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2)
单选题窗体上有一个名称为FrfllneI的框架(如图)，若要把框架上显示的“Franticl”改为汉字“框架”，下面正确的语句是()。