全国计算机等级考试二级VISUAL BASIC真题2012年9月

窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：
Private Sub Command1_Click（　）
Static x As Variant
n=0
x=array(1,2,3,4,5,6,7,8,9,10)
While n<=4
x(n)=x/(n+5)
Print x(n);
N=n+1
Wend
End Sub
运行程序，单击命令按钮Command1，窗体上显示的是（）。

窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮，命令按钮的单击事件过程如下：
Private Sub Command1_click（　）
x=InputBox(“输入x: ”，，0)
y=InputBox(“输入y: ”，，0)
Label1.caption=x+y
End Sub
运行程序后，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是（）。

以下程序的功能是从随机产生的20个20~200(含20和200)的整数中，找出能够同时被3和5整除的数的最大值，并显示出来。请填空。
Option Base 1
Private Sub Command1_Click( )
Dim a(20) As Integer
m =0
For i=1 To 20
a(i)=Int(Rnd * （）)+20
If a(i) Mod 3 = 0 （） a(i) Mod 5=0 Then
If a(i) >m Then m=a(i)
End If
Next
If （）Then
Print “没有满足条件的数”
Else
Print “满足条件的数是”;m
End If
End Sub

设有如下程序
Option Base 1
Private Sub Form_Click( )
Dim a(5) As String , i As Integer
For i=1 To 5
a(i)=Chr(Asc(“A”)+i)
Call f(a,i)
Next i
End Sub
Sub f(ta（　） As String , n As Integer)
Dim i As Integer
For i=1 To
Print ta(i);
Next i
End Sub
对上述程序，以下叙述中正确的是（）。

窗体上有一名称为Command1的命令按钮，其事件过程如下：
Private Sub Command1_Click( )
Dim i As Integer,j As Integer , k As Integer
Dim s As Double
s=0 ; i=1 ; j=0 ; k=-1
Do While i<6
s=s+k*（j/i）
i=i+1
j=j+1
k=-k
Loop
Print s
End Sub
以上程序所计算的表达式是（）。

窗体上有一个名称为Command1的命令按钮，其中部分代码如下：
Private Sub Command1_Click( )
Dim a(10) As Integer
Dim n As Integer
……
Call calc(a,n)
……
End Sub
calc过程的的首行应该是（）。

窗体上有一个名称为Command1的命令按钮，其事件过程如下：
Private Sub Command1_Click( )
Dim s As String
Open “c:/File1.txt” For Input As #1
Open “c:/File2.txt” For Output As #2
Do While Not EOF(1)
Input #1,s
Print #2,s
Loop
Close #1,#2
End Sub
关于上述程序，以下叙述错误的是（）。

窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：
Private Sub Command1_Click( )
Dim a,b(2,3) As Integer
a=Array(3,7,5,11,31,43,17,62,9,23,37,41)
i=0
Do While i<=UBound(a)
For j=0 To 2
For k=0 To 3
B(j,k)=a(i)
i=i+1
Next
Next
Loop
Pritn b(2,2)
End Sub
运行程序，窗体上显示的是（）。

设有如下程序
Sub f(x As Integer，ByVal y As Integer)
x=2*x
y=y+x
End Sub
Private Sub Command1_Click（　）
Dim a As Integer , b As Integer
a=6 ; b=35
call f(a,b)
print a,b
End Sub
程序运行后，单击命令按钮Command1，输出结果为（）。

窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下：
Private Sub Command1_Click（　）
Dim n As Integer
n=add(5,10)
Print n
End Sub
Function add(v1 As Integer , v2 As Integer , Optional v3) As Integer
If Not IsMissing(V3) Then
add=v1+v2+v3
Else
add=v1+v2
End If
End Function
运行程序，单击命令按钮，以下叙述中正确的是（）。

如果一个正整数从高位到低位上的数字依次递减，则称其为降序数（如：9632是降序数，而8156则不是降序数）。现编写如下程序，判断输入的正整数是否为降序数。
Private Sub Command1_Click（　）
Dim n As Long
Dim flag As Boolean
n=InputBox(“输入一个正整数”)
s=Trim(Str(n))
For i=2 To Len(s)
If Mid(s,i-1,1) Next i
If i=Len(s) Then flag=True Else flag=False
If flag Then
Print n ; “是降序数”
Else
Print n ; “不是降序数”
End If
End Sub
运行以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改，以下正确的修改是（）。

窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Command1_Click（　）
Dim m As Integer , n As Integer
m=InputBox(“输入第一个数”)
n=InputBox(“输入第二个数”)
Do While m<>n
Do While m>n
m=m-n
Loop
Do While n>m
n=n-m
Loop
Loop
Print m
End Sub
该程序的功能是（）。

窗体上有一个名称为Picture1的图片控件，一个名称为Timer的计时器控件，其Interval属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下：
Private Sub Timer1_Timer( )
Static n As Integer
n=n+1
If (n/5)=Int(n/5) And Picture1.Left Picture1.Left=Picture1.Left+100
End If
End Sub
分析以上程序，以下叙述中正确的是（）。

现有以下程序：
Private Sub Command1_Click（　）
c1=0
c2=0
For i=1 To 100
If i mod 3 = 0 Then
c1=c1+1
ElseIf i Mod 7 =0 Then
c2=c2+1
End If
Next
Print c1+c2
End Sub
此程序运行后输出的是在1~100范围内（）。

窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称cmdDraw的控件数组。窗体外观如图所示（从上到下的3个命令按钮下标分别为0、1、2）。有事件过程如下：
Private Sub cmdDraw_Click(Index As Integer)
Select Case Index
Case 0
Shape1.shape=0
Case 1
Shape1.shape=1
Case 2
Shape1.Shape=3
End Select
End Sub
当单击“画圆”命令按钮时，会执行cmdDraw_Click事件过程。以下叙述中正确的是（）。

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Public Eunm s
a=4
b=3
End Enum
Private Sub Command1_Click( )
Dim x As Integer
x=a
If x>=3 Then MsgBox “Pass!”
End Sub
运行程序，其结果是（）。