“故水病者，下为胕肿大腹，上为喘呼不得卧”的病机是

设有如下程序： Private Sub Form. Click（） Cls a$="1234j6" For i=1 To 6 Print Tab(12-i)；________ Next i End Sub 程序运行后，单击窗体，要求结果如图所示，则在______处填入的内容为（）。

A.Left(a$，i)

B.Mid(a$，8-i，i)

C.Right(a$，i)

D.Mid(a$，7，i)

设有如下程序：

Private Sub Form. Click（）

Dim i As Integer，x As String，y As String

x="ABCDEFG"

For i=4 To 1Step-1

y=Mid(X，i，i)+y

Next i

Print y

End Sub

程序运行后，单击窗体，输出结果为（）。

A.ABCCDEDEFG

B.AABBCDEFG

C.ABCDEFG

D.AABBCCDDEEFFGG

设有如下程序：

Private Sub Form—Click()

Cls

a$=“ABCDFG”

For i=1 T0 6

Print Tab(12-i)；【 】

Nexti

End Sub

程序运行后，单击窗体，结果如图所示，请填空。

设有如下程序：

Private Sub Form. Click（）

Dim s As Long，f As Long

Dim n As Integer，i As Integer

f=1

n=4

For i=1 To n

f=f*i

s=s+f

Next i

Print s

End Sub

程序运行后，单击窗体，输出结果是（）。

A.32

B.33

C.34

D.35

设有如下程序： Private Sub Form. Click（） Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（）。

A.15

B.16

C.20

D.25

设有如下程序：

Private Sub Form. Click（）

Dim ary(1 To 5)As Integer

Dim i As Integer

Dim sum As Integer

For i=1 To 5

ary(i)=i+l

sum=sum+ary(i)

Next i

Print sum

End Sub

程序运行后，单击窗体，则在窗体上显示的是（）。

A.15

B.16

C.20

D.25

设有下列程序

Private Sub Form. Click（）

X=50

For i=1 T0 4

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

y=Val(v)

If y Mod 5=0 Then

a=a+y

x=y

Else

a=a+x

End If

Next i

Print a

End Sub

程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（）。

A.100

B.50

C.120

D.70

9）设有如下程序：

Private Sub Form_Click()

Cls

a$="ABCDFG"

For i=1 To 6

Print Tab(12-i); 【9】

Next i

End Sub

程序运行后，单击窗体，结果如图所示，请填空。

设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下：

Private Sub Command1 Click（）

Static x A S Integer

x=f(x+5)

Cls

Print X

End Sub

Private Function f(x As Integer)As Integer

f=x+x

End Function

连续单击命令按钮3次，第3次单击命令按钮后，窗体显示的计算结果是（）。

A.10

B.30

C.60

D.70

设有如下程序： Option Base 1 Private Sub Form. Click() Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后，单击窗体，在窗体上显示的内容为______。

A．ABCDE 20 10

B．10 20 ABCDE

C．ABCDE 10 20

D．出错信息