2009年9月计算机等考二级VB模拟题及解析(9)

　　(28) 下面程序段的运行结果是

　　a=1

　　b=1

　　Do

　　a=a + 1

　　b=b + 1

　　Loop Until b > 5

　　Print "k="; a; Spc(4) ; "b="; b + a

　　A) k=7 b=14

　　B) k=6 b=6

　　C) k=4 b=8

　　D) k=6 b=12

　　正确答案: D

　　(29) 以下能够正确计算n!的程序是

　　A) Private Sub Command1_Click()

　　n=5: x=1

　　Do

　　x=x * I

　　I=I + 1

　　Loop While I < n

　　Print x

　　End Sub

　　B) Private Sub Command1_Click()

　　n=5: x=1: I=1

　　Do

　　x=x * I

　　I=I + 1

　　Loop While I < n

　　Print x

　　End Sub

　　C) Private Sub Command1_Click()

　　n=5: x=1: I=1

　　Do

　　x=x * I

　　I=I + 1

　　Loop While I <=n

　　Print x

　　End Sub

　　D) Private Sub Command1_Click()

　　n=5: x=1: I=1

　　Do

　　x=x * I

　　I=I + 1

　　Loop While I > n

　　Print x

　　End Sub

　　正确答案: C