例如：1、if 語句：

　　Private Sub Form_Click()

　　Dim x As Integer, y As Integer

　　Dim z As Single

　　x = 0.2

　　y = 1

　　If (x >= 1) Then

　　z = Log(x)

　　ElseIf x >= 0 And x < 1 And y >= 0 Then

　　z = 2 * x - y

　　Else

　　z = Exp(x + y)

　　End If

　　Print "z=" + Str(z)

　　End Sub

　　結果： z=-1

　　2、Select Case語句

　　Private Sub Form_Click()

　　Dim ch As String, i As Integer

　　ch = "c"

　　Select Case ch

　　Case "A", "a"

　　i = 1

　　Case "B", "b"

　　i = 2

　　Case "C", "c"

　　i = 3

　　Case "D", "d"

　　i = 4

　　Case Else

　　i = 5

　　End Select

　　Print "運行結果" + Ucase(ch) + Str(i)

　　End Sub

　　結果：運行結果C3

　�、� 循環(huán)結構

　　1、For------Next (循環(huán)次數的計算)

　　特例：

　　例如：有循環(huán):for I=n1 to n2 step n3 下列哪些語句會影響循環(huán)次數( )

　　A. n1=n1+I

　　B. n3=2*n3

　　C. n2=n2+n3

　　D. I=I+n3

　　2、Do------Loop (While,Until)

　　例如：運行下面的程序，單擊窗體后在窗體上的內容是( );若將程序中的A語句與B語句的位置互換，再次執(zhí)行程序，單擊窗體后在窗體上顯示的內容是( )

　　Private Sub Form_Click()

　　Dim a As Integer, b As Integer

　　a = 0: b = 0

　　Do While a <= 8

　　a = a + 2 'A語句

　　b = b + a * a 'B語句

　　Loop

　　Print a, b

　　End Sub

　　例如：窗體上顯示的結果：

　　Private Sub Form_Click()

　　Dim p As Integer, i As Integer, n As Integer

　　p = 2: n = 20

　　For i = 1 To n Step p

　　p = p + 2

　　n = n - 3

　　i = i + 1

　　If p >= 10 Then Exit For

　　Next i

　　Print i, p, n

　　End Sub

　　一、 InputBox函數

　　MsgBox函數 (注意參數含義及順序)

　　x=InputBox(_____,______,_______)

　　寫出顯示下圖信息框的MsgBox函數

　　　　　　　計算機等級考試二級VB二十套上機試題及答案

　　　　　　　全國計算機等級考試二級VB筆試各題型答題技巧

　　　　　　　計算機等級考試二級VB模擬試題及答案匯總