2012年计算机等级考试二级VB考点及习题（4）

会计考友

2012年计算机等级考试二级VB考点及习题（4）
# ?' b, d. Y, y5 y4 B) D' q例如：1、if 语句：
) `- Q4 ~! i! B3 k. m0 Y　　Private Sub Form_Click()
　　Dim x As Integer, y As Integer
& i; q, F& I: @　　Dim z As Single
　　x = 0.2
, Y) ]6 T& n' ?　　y = 1
9 K, ^6 e+ b/ N2 T) I7 m　　If (x >= 1) Then
+ F7 C& e8 O( d( R6 S8 Q　　z = Log(x)
5 V7 s; V/ h0 G' v( n　　ElseIf x >= 0 And x < 1 And y >= 0 Then
　　z = 2 * x - y
9 @; d: f0 ]2 f1 P$ I/ j: h1 D　　Else
: f/ t( c$ q) I　　z = Exp(x + y)
; m) U) `& U7 J; H9 B1 n& F- [　　End If
. k3 ?  P& K# K& L/ N　　Print "z=" + Str(z)
　　End Sub
! v. h+ D1 X, w* {- o  W; `0 i　　结果： z=-1
. b. g# r* P# Q5 V: O　　2、Select Case语句
　　Private Sub Form_Click()
: Z4 O/ N+ t# ?* E& Q. r/ {　　Dim ch As String, i As Integer
　　ch = "c"
　　Select Case ch
　　Case "A", "a"
　　i = 1
　　Case "B", "b"
5 O( t8 C2 ~  z# n7 T　　i = 2
　　Case "C", "c"
6 P3 a0 }5 r- y2 S4 Y! ?, E' U8 [4 ]8 B　　i = 3
  o$ z6 r0 e1 k　　Case "D", "d"
　　i = 4
4 A! i/ j5 E9 E( m　　Case Else
8 `+ R6 L' q/ z4 i& r0 k: J　　i = 5
5 d  o. B1 J7 H4 h9 c& N　　End Select
　　Print "运行结果" + Ucase(ch) + Str(i)
　　End Sub
　　结果：运行结果C3
　　② 循环结构
　　1、For------Next (循环次数的计算)
# `0 ^% l) J7 f- u) O& t　　特例：

　例如：有循环:for I=n1 to n2 step n3 下列哪些语句会影响循环次数( )
, V) C9 m9 y6 t　　A. n1=n1+I
. }& u6 n+ h& {' @( m　　B. n3=2*n3
　　C. n2=n2+n3
" {0 o+ O& F3 V2 A% p" k* ~, i. ^　　D. I=I+n3
! Q; N+ H5 g! G- M　　2、Do------Loop (While,Until)
　　例如：运行下面的程序，单击窗体后在窗体上的内容是( );若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是( )
　　Private Sub Form_Click()
* v' V% K- b% F　　Dim a As Integer, b As Integer
" x$ @: z+ d- _# Y1 L5 B1 A　　a = 0: b = 0
! M" T, ~: J, k0 _, C% U　　Do While a = 10 Then Exit For
　　Next i
/ ?8 ?& k" I+ c: {; O　　Print i, p, n
　　End Sub
　　一、 InputBox函数
& P9 G1 g* V1 R, m5 W　　MsgBox函数 (注意参数含义及顺序)
, ]7 c  ^# _0 f　x=InputBox(_____,______,_______)
　　写出显示下图信息框的MsgBox函数