单选题命任何一个滚动条滚动框件过程如下：
Private Sub Command1_Click()
x=10 Print f(x)
End Sub
Private Function f(y As Integer)
f=y*y
End Function
运行上述程序，如下叙述中正确的是：
单选题假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采 用的正确方法是______。
单选题阅读程序：
Private Sub Command1_Click()
Dim arr
Dim i As Integer
art=Array (0,1,2,3,4,5,6,7,8,9,10)
For i=0 To 2
Print arr(7-i);
Next
End Sub
程序运行后，窗体上显示的是______。
单选题假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是
单选题设有如下程序： Option Base 1 Dim a(3，4)As Integer，b(4，3)As Integer Private Sub Command1—Click() 循环1 For i=1 To 3 For j=1 To 4 b(j，i)=a(i，j) Next j Next i 循环2 x=b(1，1) For i=1 To 4 For．j=1 To 3 Print b(i，j)； If x＜b(i，j)Then X=b(i，j) Next j Print Next i End Sub程序中的数组a已被赋值。以下关于上述程序的叙述中，正确的是( )。
单选题给程序的空白行选择适当的语句。该程序段的功能是：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。程序如下：
Do While List2.ListCount
________ List2.RemoveItem 0
Loop
A.List1.AddItem List2.List(0)
B.List1.AddItem List2.Text
C.List2.AddItem List1.List(0)
D.List2.AddItem List1.Text
单选题下面可以产生20～30(含20和30)的随机整数的表达式是______。
单选题要使某菜单能够通过按住键盘上的＜Alt＞键及＜1＞键打开，应( )。
单选题执行下面这段程序后，单击命令按钮，窗体中输出结果是 ______。 Private Sub
Command1_Click() a=1 : b=4 : c = 9 : d = 5
If a ＜ b Then If c＜d Then
x=True Else
If a＜c Then
x=False
Else x=True
End If End
If End If Print
Val(x) End Sub
A.True
B.False
C.0
D.1
单选题设x和y均为整形变量，则执行程序中的循环后，y的值为 x=1 y=1 Do While y ＜ = 50 If x＞=10 Then Exit Do End If If (x Mod 2) = 1 Then x=x+5 End If If x Mod 2 ＜＞ 1 Then x=x-3 End If y=y+1 Loop
单选题对关系S和关系R进行集合运算，结果中既包含关系S中的所有元组也包含关系R中的所有元组，这样的集合运算称为( )。
单选题在窗体上画一个文本框，其名称为Text1，然后编写以下程序：
Private Sub Form_Load()
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Char=Chr(KeyAscii)
KeyAscii=Asc(UCase(Char))
End Sub
以上程序的功能是______。
单选题某程序执行后显示了一个MDI窗体和两个子窗体，其中某子窗体中有一个按钮，执行下列程序后的输出结果为______。 Private Sub Command1_Click() Print DoEvents() End Sub
单选题单击命令按钮时，下列程序的执行结果是______。
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
a=3:b=4:c=5
Print SecProc(c,b,a)
End Sub
Function FirProc(x As Integer,y As Integer,x As Integer)
FirProc=2*x+y+3*z
End Function
Function SeeProc(x As Integer,y As Integer,z As Integer)
SecProc=FirProc(z,x,y)+x
End Function
单选题有一种控件，可以在其中承载其他控件，还可以在其中用Print方法输出文本，这种控件是
单选题当执行以下过程时，在名为1p1Result的标签内将显示( )。 Private Sub Cmdlt_Click() Dim i．r r=0 For i=1 To 5 Step 1 r=r+i Next i 1p1Result.Caption:=Str$(r) End Sub A) 字符串15 B) 整数15 C) 字符串S D) 整数5
单选题设有如下程序：
Private Sub Form_Click()
Dim a
Dim i As Integer,j As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是
单选题下列程序段的执行结果为( )。 I=4 x=5 Do I=I+1 x=x+2 Loop Until I＞=7 Print"I=";I Print"x=";x
单选题单击命令按钮执行以下程序，输出结果为( )。Private Sub Command1_Click()Dim x As Integer，y As Integerx=12：y=32Call Proc(x，y)Print x；yEnd SubPublic Sub Proc(n As Integer，ByVal m As Integer)n=n Mod10：m=m Mod10End Sub
单选题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$=InputBox("请输入一个二进制数")
n=Len(a$)
For i=1 To n
Dec=Dec*2+______(a$,i,1)
Next i
Print Dec
End Sub
程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是