题目内容（请给出正确答案）

[主观题]

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

关于商业助学贷款的贷后档案管理，下列说法不正确的有()。

A.贷款发放后，应根据贷款种类分别建立信贷台账

B．台账应记录借款人的基本信息和贷款信息

C．贷款台账可以采取电子台账或系统台账的形式

D．贷款信息包括账号、合同金额、期限、放款日期、还款方式、担保方式、贷款利率、贷款余额、拖欠本金、应收利率、催收利息、账户状态、风险状态等要素

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多“关于商业助学贷款的贷后档案管理，下列说法不正确的有（)。A.…”相关的问题

第1题

运行下列程序，显示的结果是Private Sub Command34_Click（) i=0 Do i=i+1 Loop While i<10 Msg

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

Private Sub Command34_Click()

i=0

i=i+1

Loop While i<10

MsgBox i

End Sub

A．0

B．1

C．10

D．11

点击查看答案

第2题

试题35运行下列程序，在立即窗口显示的结果是（）Private Sub Command0_Click（)Dim I As Single ， J

试题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

点击查看答案

第3题

运行下列程序：Private Sub Form_Click（)Dim sum As Double, i As IntegerFor i = 1 To 20If i

运行下列程序：

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

点击查看答案

第4题

（10）运行下列程序，输入如下两行：Hi,I am here．弹出的窗体中的显示结果是【10】。Private Sub Comm

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

Hi,

I am here．

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

Private Sub Command11_Click()

Dim abc As String, sum As string

sum=""

abc=InputBox("输入abc")

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

sum=sum+abc

Loop

MsgBox sum

End Sub

点击查看答案

第5题

运行下列程序：Private Sub Form_Click（)Dim a As Integera = 1For i = 1 To 5Call fun1（a)Ne

运行下列程序：

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

x = x + y

Loop Until x > 10

End Sub

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

A.5

B.1 2 3 4 5

C.19

D.7

点击查看答案

第6题

运行以下程序，消息框中输出的结果是（)。 Private Sub Command1_Click（) Dim a（10)，P（3)As Integer K=

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

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

点击查看答案

第7题

运行下列程序：Private Sub Command1_Click（)Dim A（10) As IntegerFor i = 1 To 5A（i) = iA（i

运行下列程序：

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.出错信息

点击查看答案

第8题

运行下列程序：Private Sub Form_Click（)For i = 3 To 1 Step －1For j = 2 To 1 Step －1Debug

运行下列程序：

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***

点击查看答案

第9题

下列程序段的运行结果是：Private Sub Command1_Click（)Dim n AS IntegerI =21:n = 3do while I＞n

下列程序段的运行结果是：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

点击查看答案

第10题

运行下列程序：Private Sub Form_Click（)For i = 1 To 20If fun1（i) Thens = s ＋ 1End IfNext

运行下列程序：

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

点击查看答案

谢谢您的反馈

您认为本题答案有误，我们将认真、仔细核查，
如果您知道正确答案，欢迎您来纠错

开始纠错>>>

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“上学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜

上学吧

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反上学吧购买须知被冻结。您可在“上学吧”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

上学吧

点击打开微信