例如: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
結(jié)果: 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 "運行結(jié)果" + Ucase(ch) + Str(i)
End Sub
結(jié)果:運行結(jié)果C3
② 循環(huán)結(jié)構(gòu)
1、For------Next (循環(huán)次數(shù)的計算)
特例:
例如:有循環(huán):for I=n1 to n2 step n3 下列哪些語句會影響循環(huán)次數(shù)( )
A. n1=n1+I
B. n3=2*n3
C. n2=n2+n3
D. I=I+n3
2、Do------Loop (While,Until)
例如:運行下面的程序,單擊窗體后在窗體上的內(nèi)容是( );若將程序中的A語句與B語句的位置互換,再次執(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語句
b = b + a * a 'B語句
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ù)
相關(guān)推薦:2011年計算機等級考試二級VB基礎(chǔ)教程匯總北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |