下列选项中不能算作国民经济费用的是（）。

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

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 Command1_Click() For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub

A．* * * * * *

B．1 * 2 * 3 *

C．3 * 2 * * 1 * * *

D．* * * * * *

（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 Command1_Click() x = 0 Do While x＜10 x=x * x + 1 y=y+x Loop MsgBox y End Sub 单击Command1命令按钮后，弹出的消息对话框中会显示

A．5

B．8

C．26

D．34

下面程序运行后，窗体中显示【 】。

Private Sub Command1_Click) ()

aS ="*" :b$ ="$"

For k = 1 To 3

x$ =Strings (Len(a$) +k,b$ )

Print x $;

Next

Print

End Sub

下面程序的运行结果是 Private Sub Command1_Click() x＝1:y＝1 For i=1 To 3 x＝x+y:y＝y+x Next i:print x,y End Sub

A．6 6

B．5 8

C．13 21

D．34 35

有如下程序： Private Sub Command1_Click() as="A WORKER IS HERE" x = Len(a$) For i=1 To x - 1 b$ =Mid$(a$, i,3) If b$ ="WOR" Then S=S+ 1 Next Print S End Sub 单击命令按钮，程序运行结果为

A．1

B．2

C．3

D．5

运行下列程序：

Private Sub Command1_Click()

x = 1

z = InputBox("请输入一个整数2")

Select Case z

Case Is > 0

y = x + 1

Case Is = 0

y = x - 2

Case Else

y = x + 5

End Select

Print x; y

End Sub

从键盘输入2，输出的结果是()。

A.0 1

B.1 2

C.1 3

D.5 5

运行下列程序：

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