合格的个人贷款申请人必须是具有完全民事行为能力的自然人或限制民事行为能力自然人的代理人。（)A

阅读下列程序并写出程序运行结果。

Private Sub Command1_Click()

x = 0

Do While x < 60

x = (x + 3) * (x + 4)

n = n + 1

Loop

Text1.Text = Str(n)

Text2.Text = Str(x)

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

写出程序运行后，文件框Text3的结果。

运行下列程序：

Private Sub form_Click()

Dim x

x = 0

Do While x < 10

x = x + 3

Loop

MsgBox x

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.0

B.3

C.10

D.12

运行下列程序：

Private Sub Command1_Click()

Dim x As Integer, n As Integer

n = 0

Do

n = n + 2

x = x + n

Loop While n< 10

Debug.Print x

End Sub

单击Command1命令按钮后，则在立即窗口上输出结果是是()。

A.2

B.10

C.12

D.30

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

X=0

Do While X＜＞-1

X=Val(InputBox("请输入数据X:"))

Y=Val(InputBox("请输入数据Y:"))

If X*Y＜X+Y Then Print X，Y

Loop

End Sub

程序运行后，依次输入7，2，-3，8，-5，-10，18，-1，-1，则输出结果是【 】

在下面的程序中，要求循环体执行四次，请填空。

Private Sub Command1_Click()

x=1

Do While 【 】

x=x+2

Loop

End Sub

（28）下列程序的运行结果是。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,b) Print a,b Private Sub fun(x,y) x=y*x y=y+x End SubA.2.25 3.75 B.1.5 2.25 C.1.5 0.75 D.0.75 1.5

下列程序的运行结果是()。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,B) Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End Sub

A．2.25 3.75

B．1.5 2.25

C．1.5 0.75

D．0.75 1.5

假定有如下事件过程： Private Sub Form_Cilck() Dim x As Integer，n As Integer x=1 n=0 Do While x＜28 X=X*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果为______。

A．81 4

B．56 3

C．28 1

D．243 5

运行下列程序：

Private Sub Command1_Click()

x = 3

If x < 3 Then Print x + 3;

If x < 4 Then Print x + 4;

If x < 5 Then Print x + 5;

If x < 6 Then Print x + 6;

Print

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是()。

A.6 7 8 9

B.7 8 9

C.8 9

D.9

假定有如下事件过程： Private Sub Form. Click() Dim x As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。

A．81 4

B．56 3

C．28 1

D．243 5