2011年計算機(jī)等級考試二級VB綜合練習(xí)題(3)

　　2、讀下面的程序，分析其功能，寫出運行結(jié)果。

　　在窗體上有一個命令按鈕，名稱為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

　　程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是什么?

　　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、分析以下程序，寫出運行結(jié)果。

　　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

　　運行上面的程序，單擊命令按鈕，輸出結(jié)果是什么?

　　5、分析以下程序，寫出運行結(jié)果。

　　Sub sele()

　　Dim n as Integer

　　i=21:n=3

　　Do While i>n

　　i=i-n

　　Loop

　　Print i

　　End Sub

　　6、分析以下程序，寫出運行結(jié)果。

　　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、分析以下程序，寫出運行結(jié)果。

　　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、分析以下程序，寫出運行結(jié)果。

　　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年計算機(jī)等級考試二級VB基礎(chǔ)教程匯總

　　　　　　　2011計算機(jī)等級考試二級VB綜合練習(xí)題匯總