2011年计算机等级考试二级VB综合练习题(3)

　　2、读下面的程序，分析其功能，写出运行结果。

　　在窗体上有一个命令按钮，名称为Command1。然后编写如下程序：

　　Private Sub Command1_Click()

　　For I = 1 To 4

　　For J = 0 To I

　　Print Chr$(65 + I);

　　Next J

　　Print

　　Next I

　　End Sub

　　程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么?

　　3、阅读下面的程序，分析并写出其功能。

　　Sub insert(a() As Single,ByVal x As Single)

　　Dim m as integer,n as integer

　　n=1

　　Do While n<20 And x>a(n)

　　n=n+1

　　Loop

　　For m=20-1 To n Step –1

　　a(m+1)=a(m)

　　Next m

　　a(n)=x

　　End Sub

　　4、分析以下程序，写出运行结果。

　　Sub subP(b() As Integer)

　　For i =1 To 4

　　b(i)=2*i

　　Next i

　　End Sub

　　Private Sub Commandl_Click()

　　Dim a(1 To 4)As Integer

　　a (1)=5

　　a (2)=6

　　a (3)=7

　　a (4)=8

　　subP a()

　　For i =1 To 4

　　Print a(i)

　　Next i

　　End Sub

　　运行上面的程序，单击命令按钮，输出结果是什么?

　　5、分析以下程序，写出运行结果。

　　Sub sele()

　　Dim n as Integer

　　i=21:n=3

　　Do While i>n

　　i=i-n

　　Loop

　　Print i

　　End Sub

　　6、分析以下程序，写出运行结果。

　　Sub selectPrint()

　　Dim a as Integer

　　Dim b as Integer

　　Dim c as Integer

　　a=2:b=5:c=2

　　If(a>=b)and(a>=c) or (b>c) Then

　　Print a

　　a=a+2

　　Else

　　Print b

　　EndIf

　　Print a;b;c

　　End Sub

　　7、分析以下程序，写出运行结果。

　　Sub swap()

　　Dim x as Integer

　　Dim y as Integer

　　Dim z as Integer

　　x=1:y=2:z=0

　　Print x;y;z

　　x=x+y

　　x=x*z

　　Print x,y,z

　　End Sub

　　8、分析以下程序，写出运行结果。

　　Sub selectPrint()

　　Dim a as Integer

　　Dim b as Integer

　　Dim c as Integer

　　a=3:b=3:c=2

　　If(a>=b)and(a>c)Then Print a

　　Print a,b,c

　　End Sub

　　　　　　　2011年计算机等级考试二级VB基础教程汇总

　　　　　　　2011计算机等级考试二级VB综合练习题汇总