11.假定有如下事件过程: Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 then PopupMenu popForm End If End Sub 则以下描述中错误的是 A、该过程的功能是弹出一个菜单 B、popForm是在菜单编辑器中定义的弹出式菜单的名称 C、参数X、Y指明鼠标的当前位置 D、Button = 2 表示按下的是鼠标左键
26.下面的数组声明语句中____是正确的。 A、Dim A[3,4] As Integer B、Dim A(3,4) As Integer C、Dim A[3 4] As Integer D、Dim A(3 4) As Integer
A B C D
27.设有语句 Open "C:\Test.dat" For Output As #1 则以下错误的叙述是 A、该语句打开C盘根目录下一个已存在的文件Test.Dat B、该语句在C盘根目录下建立一个名为Test.Dat的文件 C、该语句建立的文件的文件号为1 D、执行该语句后,就可能通过Print #语句向文件Test.Dat中写入信息
A B C D
28.单击一次命令按钮之后,下列程序代码的执行结果为____。 Public Sub Proc(a( ) As Integer) Static i As Integer Do a(i)=a(i)+a(i+1) i=i+1 Loop While i<2 End Sub Private Sub Commandl_Click( ) Dim m As Integer,i As Integer,x(10) As Integer For i=0 To 4:x(i)=i+1:Next i For i=0 To 2:Call Proc(x):Next i For i=0 To 4:Print x(i);:Next i End Sub A、3 4 7 5 6 B、3 5 7 9 5 C、1 2 3 4 5 D、1 2 3 5 7
A B C D
29.单击窗体时,下列程序代码的执行结果为____。 Private Sub Form_Click( ) Dim x As Integer,y As Integer,z As Integer x=1 y=2 z=3 Call Procl(x,x,z) Call Procl(x,y,y) End Sub Private Sub Procl(x As Integer,y As Integer,z As Integer) x=3*z y=2*z z=x+y Print x;y;z End Sub 那么单击窗体时,程序代码的执行结果为____ A、6 6 12 6 10 10 B、9 6 15 6 10 10 C、9 6 15 6 5 10 D、9 10 10 9 10 15
A B C D
30.在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为label1、Label2的标签,然后编写如下程序代码: Private X As Integer Private Sub Command1_Click() X = 5 : Y=3 Call proc(X,Y) Label1.Caption = X Label2.Caption = Y End Sub
Private Sub proc(ByVal a As Integer, ByVal b As Integer) X = a * a Y = b + b End Sub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是 A、5和3 B、25和3 C、25和6 D、5和6
A B C D
31.单击命令按钮时,下列程序代码的执行结果为____。 Private Sub Commandl_Click( ) Dim FirstStr As String FirstStr="abcdef" Print PickMid(firstStr) End Sub
Prinvate Function PickMid(xStr As String)As String Dim tempStr As String,strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i<=strLen/2 tempStr=tempStr+mid(xStr,i,1)+Mid(xStr,strLen-i+1,l) i=i+1 loop PickMid=tempStr End Function A、abcdef B、afbecd C、fedcba D、defabc
A B C D
32.下列_____程序段能删除列表List1中的所有项。 A、Private Sub Command1_Click() For I=0 To List.ListCount-1 List1.RemoveItem 0 Next I End Sub B、Private Sub Command1_Click() For I=0 To List.ListCount-1 List1.RemoveItem 1 Next I End Sub C、Private Sub Command1_Click() For I=0 To List1.ListCount List1.RemoveItem 0 Next I End Sub D、Private Sub Command1_Click() For I=0 To List1.ListCount-1 List1.RemoveItem 1 Next I End Sub
A B C D
33.窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click() Dim A(5, 5) For I = 1 To 3 For J = 1 To 4 A(I, J) = I * J Next J Next I For N = 1 To 2 For M = 1 To 3 Print A(M, N); Next M Next N End Sub
34.下列程序段的结果为____。 A="abcdefghijk" For I=6 To 2 Step -2 X=Mid(A,I,I) Y=Left(A,I) Z=Right(A,I) Z=X & Y & Z Next I Print Z A、bc B、bcabjk C、ab D、bcdabjk
A B C D
35.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程: Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit For Next j If j>Sqr(i) Then Print i Next i End Sub 该事件过程的功能是 A、输出n以内的奇数 B、输出n以内的偶数 C、输出n以内的素数 D、输出n以内能被j整除的数
14.以下程序用来计算由键盘输入的N个数中正数之和,负数之和,正数的个数,负数的个数。其中用C累加负数之和,IC累加负数的个数,D累加正数之和,ID累加正数的个数。 Private Sub Command1_Click( ) N=10 C=0:IC=0:D=0:ID=0 For K=0 To N A=Val(InputBox("请输入A")) If A<0 Then C=____:IC=IC+1 If A>0 Then D=D+A:ID=ID+1 Next K Print"负数的个数为:",IC Print"负数的和为:",C Print"正数的个数为:",ID Print"负数的和为:",D End Sub
输入答案,中间不含空格:
15.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() n=5 f=1 s=0 For i=1 To n f=f____ s=s+f Next Print s End Sub 该事件过程的功能是计算s=1+1/2!+1/3!+...+1/n!的值。请填空。