2009年9月計算機等考二級VB模擬題及解析(11)

　　(29) 在窗體上畫一個命令按鈕，然后編寫如下事件過程：

　　Private Sub Command _Click()

　　s=0

　　Do

　　s=(s + 1)  (s + 2)

　　Number=Number + 1

　　Loop Until s >=30

　　Print Number, s

　　End Sub

　　程序運行后，輸出的結果是

　　A) 2 3

　　B) 3 182

　　C) 5 12

　　D) 10 20

　　正確答案: B

　　(30) 有如下程序：

　　Private Sub Command1_Click()

　　a$="A WORKER IS HERE"

　　x=Len(a$)

　　For i=1 To x - 1

　　b$=Mid$(a$, i, 3)

　　If b$="WOR" Then S=S + 1

　　Next

　　Print S

　　End Sub

　　單擊命令按鈕，程序運行結果為

　　A) 1

　　B) 2

　　C) 3

　　D) 5

　　正確答案: A