单选题窗体上有一个名称为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
单选题将代数表达式Cos
2
(a+b)+5e
2
写成Visual Basic的表达式，其正确的形式是
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： PrivateSubCommand1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X PrintX,Y EndSub 程序运行时，3次单击命令按钮Commandl后，窗体上显示的结果为( )。
单选题在用通用对话框的ShowOpen显示“打开”文件对话框时，若要指定其中的文件类型为文本文件，正确的描述格式是( )。
单选题运行下面的程序后，输出的结果为( )。
Cls
Dim t(5，5) as Integer
For i=1 To 5：t(i，i)=1：Next
For i=1 To 5
For j=1 To 5
Print t(i，j)，
Next j
Print
Next I
单选题窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序：Dim n As IntegerPrivate Sub Timer1_Timer()ch=Chr(n+Asc("A"))Label1.Caption=chn=n+1n=n Mod 4End Sub运行程序，将在标签中
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )
Dim x As Integer, y As Integer
Dim s As String
s = "2013-2014"
x = Int(Rnd(1)) + 100
y = Val(Left(s, 3))
Select Case x + y
Case Is ＞ 301
Print "分支1"
Case 300 To 301
Print "分支2"
Case Is ＜ 301
Print "分支3"
End Select
End Sub
程序运行时，单击Command1，则在窗体上输出的结果是______。
单选题下列说法中，错误的是( )。
单选题阅读程序： Function Fun( a As Integer)
Static c
b=0:b=b+2:c=c+2 F=a*b*c
End Function Private Sub Commandl _ Click(
) Dim a As Integer
a=2 For i = 1 To 2
Print Fun (a);
Next End Sub
运行上面的程序，单击命令按钮，输出结果为
A. 8 16
B. 9 18
C. 10 20
D. 7 14