运行下列程序：Private Sub Form_Click（)Dim a As Inte...

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

下列程序段的功能为：单击窗体后，在D盘Temp目录下address.txt 文件中输入“张三，20，Male”。请填空。

Private Sub form_ click()

Dim name As String

Dim age As Integer

Dim sex As String

name = "张三": age = 20: sex = "Male"

Open "D:\temp\CodE．txt" For Append As 1

______1, name, age, sex

______

End Sub

运行下列程序：

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

Do

x = x + y

Loop Until x > 10

End Sub

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

A.5

B.1 2 3 4 5

C.19

D.7

下列程序 Private Sub Form_Click() Dim a a = Array("天天向上", "天津大学", "天上人间", "程序设计") For i = LBound(a) To UBound(a) If Left(a(i), 1) = "天" Then Print a(i); Next i End Sub 运行时输出的结果是()。

：A. 天天向上

B. 天天向上天津大学天上人间

C. 出错信息

D. 天天向上天津大学天上人间程序设计

设有如下程序：

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

当Form_Click事件发生时，程序输出的结果是 ______。 Private Sub Form. Click() Dim a As Integer，b As Integer，c As Integer a=1: b=1 Print a; b Do c=a+b Print c a=b:b=c Loop Until c＞=5 End Sub

A．1 1 1

B．2 3 5

C．2 5 7

D．2 3 4

运行下列程序：

Private Sub Form_Click()

Dim sum As Integer

Dim i As Integer

sum = 0

For i =12.4 To3.1 Step -3.8

sum = sum + i

Next i

Debug.Print sum

End Sub

单击窗体后，则在立即窗口上输出结果是()。

A.15

B.- 0.7

C.24

D.0

运行下列程序：

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

给出窗体单击事件过程：

PRIVATE SUB FORM_CLICK( )

DIM A AS INTEGER

A =VAL( INPUTBOX( "PLEASE INPUT A NUMBER" ))

SELECT CASE A MOD 5

CASE IS＜4

W=A+10

CASE IS＜2

W=A.2

CASE ELSE

W=A-10

END SELECT

MSGBOX W

END SUB

当运行程序后，设输入的数据分别为14、3、125、21时，消息框显示的内容分别是【 】。

阅读程序：

Option Base 1

Private Sub Form_Click（）

Dim a（3）As Integer

Print "输入的数据是：";

For i = 1 To 3

a（i）=InputBox（"输入数据"）

Print a（i）;

Next

Print

If a（1）

t = a（1）

a（1）= a（2）

a（2）= ________

End If

If a（2）>a（3）Then

m = a（2）

ElseIf a（1）>a（3）Then

m = ________

Else

m = ________

End If

Print "中间数是：";m

End Sub

程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。