通常将()年以上还本付息的国债叫做长期国债。

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

A．7

B．34

C．3+4

D．出错

有如下程序，运行时从键盘输入3，输出结果是 ______。 Private Sub Command1_Click() a=InputBox("请输入一个数字：") Select Case a Case Is＞2 b=a+1 Case Is＞3 b=a+2 Case Is＞4 b=a＋3 Case Is＞5 b＝a＋4 End Select Print a ＋ b End Sub

A．8

B．7

C．6

D．9

下列程序运行后的输出结果是 Function Fun(n) x=n*n Fun=x一11 End Function Private Sub Command1_Click() For k=1 To 2 Y=Fun(k)：Print Y Next End Sub

A． -10 -7

B．10 8

C．1 3

D．0 4

下面程序运行时，若输入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

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

Private Sub Comand1_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

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

Private Sub Comand1_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

以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。 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

下列程序段，运行后窗体上输出结果是()。

Private Sub Command1_Click()

a=5:b=4:c=3:d=2

x=3＞2*b Or a=c And b＜＞c Or c＞d

Printx

End Sub

A．1

B．True

C．False

D．2

以下程序运行后输出的结果是______。 Private Sub Form. _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub

A．10

B．15

C．80

D．100

运行下列程序：

Private Sub form_Click()

t = Val(InputBox("请输入一个数："))

x = t - 1

Select Case t

Case 1 To 10

y = 4 * t

Case Is >10

y = 3 * t

Case Else

y = 2 * t

End Select

Print x; y

End Sub

运行时，从键盘输入4，输出的结果是()。

A.3 16

B.4 4

C.3 4

D.4 10