对于到期一次还本付息的债券，其按票面利率计算确定的应付未付利息，应通过“应付债券一应计利息”科目核算。（）此题为判断题(对，错)。

下面程序运行时，若输入395，则输出结果是（）。

Private Sub Command1_Click（）

Dim X％

x=InputBox("请输入一个3位整数")

Print x Mod 10，x\100，(x Mod 100)\10

End Sub

A.3 9 j

B.5 3 9

C.5 9 3

D.3 5 9

下面程序运行时，若输入395，则输出结果是

Prirate sub commandl_Click()

Dim x％

x=InputBox(“请输入一个3位整数”)

Print x Mod 10，x＼100，(x Mod 100)＼10

End Sub

A．3 9 5

B．5 3 9

C．5 9 3

D．3 5 9

下面程序运行时，若输入395，则输出结果是

Prirate sub commandl_Click()

Dim x％

x=InputBox(“请输入一个3位整数”)

Print x Mod 10，x＼100，(x Mod 100)＼10

End Sub

A．3 9 5

B．5 3 9

C．5 9 3

D．3 5 9

A.3 9 j

B.5 3 9

C.5 9 3

D.3 5 9

下面程序运行时，若输入395，则输出结果是（）。

A. 5 9 3

B. 3 5 9

C. 5 3 9

D. 3 9 5

A.5 9 3

B.3 5 9

C.5 3 9

D.3 9 5

以下程序运行时，输入3和4后输出的结果是______。 Private Sub Command1_Click() a=InputBox(“请输入a的值”) b=InputBox(“请输入b的值”) Print a+b End Sub

A．3+4

B．7

C．34

D．12

下列程序： Private Sub Command1_Click() a=InputBox("请输入") b=InputBox("请输入") Print=a+b End Sub 运行时输入3和4，输出的结果是

A．7

B．34

C．3+4

D．出错

以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。 Private SubForm_Click() Dim a As Integer，b As Integer a=10 ：b=20 Call ff(a，B)Print a，b End Sub Private Sub ff(x As Integer，y As Integer) x=x+y y=x+y End Sub

A．30 50

B．30 30

C．20 20

D．10 20

（30 ）下面程序的输出结果是

Private Sub Command1_Click()

ch$= ” ABCDEF ”

proc ch

Print ch

End Sub

Private Sub proc(ch As String)

S= ””

For k=Len(ch) To 1 Step-1

s=s&Mid(ch,k,1)

Next k

ch=s

End Sub

A ） ABCDEF

B ） FEDCBA

C ） A

D ） F