福建省高职单招计算机考试模拟卷(10)

计算机专业模拟卷

Private Sub Command1_Click() x = 0

Do Until x>=50 x = (x + 2) * (x + 3) n = n + 1 Loop

Text1.Text = Str(x) End Sub

程序运行时，单击命令按钮后，在text1文本框中显示的值是：____________。

8．窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim Fib(10) As Integer Fib(1) = 1 Fib(2) = 1 For i = 3 To 10

Fib(i) = Fib(i - 1) + Fib(i - 2) Next i Print Fib(8) End Sub

程序运行时，单击命令按钮后显示的结果是：____ ____________。 9．窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim a$, b$, c$, k% a = "ABCD" b = "123456"

____