题目内容（请给出正确答案）

[主观题]

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

运行下列程序：

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

x = x + y

Loop Until x ＞ 10

End Sub

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

A.5

B.1 2 3 4 5

C.19

D.7

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多“运行下列程序：Private Sub Form_Click（…”相关的问题

第1题

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

点击查看答案

第2题

下列程序段的功能为：单击窗体后，在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

点击查看答案

第3题

运行下列程序：

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

x = x + y

Loop Until x > 10

End Sub

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

A.5

B.1 2 3 4 5

C.19

D.7

点击查看答案

第4题

下列程序 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. 天天向上天津大学天上人间程序设计

点击查看答案

第5题

设有如下程序：

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

点击查看答案

第6题

当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

点击查看答案

第7题

运行下列程序：

Private Sub Form_Click()

Dim sum As Integer

Dim i As Integer

sum = 0

For i =12.4 To3.1 Step -3.8