单选题为组合框Combo1增加一个数据项“计算机”，下列命令正确的是( )。
单选题可以产生30-50(含30和50)之间的随机整数的表达式是( ) A．Int(Rnd*21+30) B．Int(Rnd*20+30) C．Int(Rnd*50-Rnd*30) D．Int(RND*30+50)
单选题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a(4，4)
For i=1 To 4
For j=1 To 4
a(i，j)=(i-1)*3+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print a(j，i)；
Next j
Next i
End Sub
程序运行后，单击命令按钮，其输出结果为 ______ 。
单选题以下不能设置Picture属性的控件是
单选题以下不能在“工程资源管理器”窗口中列出的文件类型是( )。 A) .bas B) .res C) .frm D) .ocx
单选题以下能够正常结束循环操作的程序段是
单选题在窗体上有一个命令按钮，然后编写如下事件过程。 Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next For Each b h a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是
单选题设有下面的程序段： x=InputBox(”请输入一个整数”) ReDim a(x) For k=x To 0 Step一1 a(k)=k Next k 一般，在这段程序之前应先进行数组a的定义。下面定义语句中正确的是
单选题窗体上有一个名称为Timer1的计时器控件，一个名称为Shape1的形状控件，其Shape属性值为3(Circle)。编写程序如下： Private Sub Form_Load() Shape1．Top=0 Timer1．Interval=100 End Sub Private Sub Timer1_Timer() Static x As Integer Shape1．Top：Shape1．Top+100 x=x+1 If x Mod 10=0 Then Shape1．Top=0 End If End sub 以下关于上述程序的叙述中，错误的是( )。
单选题下面有关标准模块的叙述中，错误的是( )。
单选题在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1,
单选题窗体上有一个名称为Picturel的图片框控件，一个名称为Labell的标签控件，如图所示。现有如下程序：PublicSubdisplay(xAsContr01)IfTypeOfxIsLabelThenxCaption=“计算机等级考试”ElsexPicture=LoadPicture(“pic．jpg”)EndIfEndSubPrivateSubLabell_Click()Calldisplay(Labell)EndSubPrivateSubPicturel_Click()Calldisplay(Picturel)EndSub对以上程序，下列叙述中错误的是()。
单选题有下面程序代码：Option Base 1Private Sub Commandl_Click()Dim a(10)As Integer，x，bx=InputBox("请输入一个多砬整数")For k=1 To Len(x) b=Mid(x，k，1) a(Val(b)+1)=a(Val(b)+1)+1Next kFor k=1 To 10 Print a(k)：Next kEnd Sub程序运行时，单击命令按钮Commandl，输入2355270224，则输出是
单选题在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框。程序运行后，Command1显示为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在______处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1. Enabled=False End Sub Private Sub Text1______() Command1. Enabled=True End Sub
单选题假定有以下程序段
For I = 1 To 3
For j = 5 To 1 Step - 1
Print I * j
Next j
Next I
则语句Print I*j的执行次数是（ ）
单选题设窗体上有一个Text1文本框和一个HScroll1水平滚动条，并有下面的事件过程： Private Sub HScroll1_Change() Text1=HScroll1 End Sub 在程序运行时，当把滚动框移动到最左边时，文本框中显示的是100；当把滚动框移动到最右边时，文本框中显示的是1。根据这些信息，下面的判断中错误的是
单选题表达式3^2*2+3MODl0/4的值是( )。 A．18 B．1 C．19 D．0
单选题在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1＿Click( ) For X＝5 To 2.5 Step-6 Next X Print X End Sub 程序运行后，输出的结果是
单选题如果在窗体模块中所有程序代码的前面有语句：Dim x，则x是
单选题要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是______。A.PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then Label1="X="&X&"Y="&Y EndIfEndSubB.PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then Label1="X="&X&"Y="&Y EndIfEndSubC.PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then Label1="X="&X&"Y="&Y EndIfEndSubD.PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label1="X="&X&"Y="&YEndSub