关于商业助学贷款的贷后档案管理，下列说法不正确的有（)。A.贷款发放后，应根据贷款种类分别建立信

运行下列程序，显示的结果是

Private Sub Command34_Click()

i=0

Do

i=i+1

Loop While i<10

MsgBox i

End Sub

A．0

B．1

C．10

D．11

试题35

运行下列程序，在立即窗口显示的结果是（）

Private Sub Command0_Click()

Dim I As Single ， J As Single

For I= 2 To 10

For J = 2 To I/2

If I mod J = 0 Then Exit For

Next J

If J > sqr (I) Then Debug .Print I;

Next I

End Sub

A．1 5 7 9

B．4 6 8

C．3 5 7 9

D．2 3 5 7

运行下列程序：

Private Sub Form_Click()

Dim sum As Double, i As Integer

For i = 1 To 20

If i Mod 5 = 0 Then

sum = sum + i

End If

Next i

Print sum

End Sub

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

A.50

B.100

C.4

D.5050

（10）运行下列程序，输入如下两行：

Hi,

I am here．

弹出的窗体中的显示结果是 【10】 。

Private Sub Command11_Click()

Dim abc As String, sum As string

sum=""

Do

abc=InputBox("输入abc")

If Right(abc,1)="." Then Exit Do

sum=sum+abc

Loop

MsgBox sum

End Sub

运行下列程序：

Private Sub Form_Click()

Dim a As Integer

a = 1

For i = 1 To 5

Call fun1(a)

Next i

Print a

End Sub

Private Sub fun1(x)

y = 2

Do

x = x + y

Loop Until x > 10

End Sub

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

A.5

B.1 2 3 4 5

C.19

D.7

运行以下程序，消息框中输出的结果是( )。

Private Sub Command1_Click()

Dim a(10)，P(3)As Integer

K=5

For i=1 To 10

a(i)=i

Next i

For i=1 To 3

P(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

MsgBox k

End Sub

A．28 B．33 C．35 D．37

运行下列程序：

Private Sub Command1_Click()

Dim A(10) As Integer

For i = 1 To 5

A(i) = i

A(i + 5) = i

Next i

For i = 1 To 10

s = s + A(i)

Next i

Debug.Print s

End Sub

单击按钮后，则在立即窗口内显示的结果是()。

A.5

B.10

C.30

D.出错信息

运行下列程序：

Private Sub Form_Click()

For i = 3 To 1 Step -1

For j = 2 To 1 Step -1

Debug.Print "A"; String(3 - i, "*");

Next j

Next i

End Sub

单击窗体后，则在立即窗口内显示结果是()。

A.AAA*A**A***

B.AAA*A*A**A**

C.A*A*A*A*A*A*

D.A***

下列程序段的运行结果是：Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I＞n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。

A．3

B．5

C．6

D．8

运行下列程序：

Private Sub Form_Click()

For i = 1 To 20

If fun1(i) Then

s = s + 1

End If

Next i

Print s

End Sub

Private Function fun1(y) As Boolean

If y Mod 2 <> 0 Then

fun1 = False

Else

fun1 = True

End If

End Function

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

A.110

B.10

C.0

D.20