2012年计算机考试二级VB考点及习题（4）
2012年计算机考试二级VB考点及习题（4）http://www.examw.com/ncre/Files/2012-2/3/175298321.jpg
http://www.examw.com/ncre/Files/2012-2/3/175298569.jpg
例如：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
② 循环结构
1、For------Next (循环次数的计算)
特例：
http://www.examw.com/ncre/Files/2012-2/3/175295403.jpg
例如：有循环:for I=n1 to n2 step n3 下列哪些语句会影响循环次数( )
A. n1=n1+I
B. n3=2*n3
C. n2=n2+n3
D. I=I+n3
2、Do------Loop (While,Until)
例如：运行下面的程序，单击窗体后在窗体上的内容是( );若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是( )
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 0: b = 0
Do While a = 10 Then Exit For
Next i
Print i, p, n
End Sub
一、 InputBox函数
MsgBox函数 (注意参数含义及顺序)
http://www.examw.com/ncre/Files/2012-2/3/939327169.png
x=InputBox(_____,______,_______)
写出显示下图信息框的MsgBox函数
http://www.examw.com/ncre/Files/2012-2/3/939326385.png
页:
[1]