2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題：第四章

　　例如：1、if 語(yǔ)句：

　　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

　　結(jié)果： z=-1

　　2、Select Case語(yǔ)句

　　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 "運(yùn)行結(jié)果" + Ucase(ch) + Str(i)

　　End Sub

　　結(jié)果：運(yùn)行結(jié)果C3

　　② 循環(huán)結(jié)構(gòu)

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

　　特例：

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

　　A. n1=n1+I

　　B. n3=2*n3

　　C. n2=n2+n3

　　D. I=I+n3

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

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

　　Private Sub Form_Click()

　　Dim a As Integer, b As Integer

　　a = 0: b = 0

　　Do While a <= 8

　　a = a + 2 'A語(yǔ)句

　　b = b + a * a 'B語(yǔ)句

　　Loop

　　Print a, b

　　End Sub

　　例如：窗體上顯示的結(jié)果：

　　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函數(shù)

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

　　x=InputBox(_____,______,_______)

　　寫出顯示下圖信息框的MsgBox函數(shù)

　　　　　　　計(jì)算機(jī)等級(jí)考試二級(jí)VB二十套上機(jī)試題及答案

　　　　　　　全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試各題型答題技巧

　　　　　　　計(jì)算機(jī)等級(jí)考試二級(jí)VB模擬試題及答案匯總