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

[主观题]

（8 ）有如下程序：Private Sub Form_Click （）n=10i=0Doi=i+nn=n-2Loop While n＞2Print iEnd Su

（8 ）有如下程序：

Private Sub Form_Click （）

n=10

i=0

i=i+n

n=n-2

Loop While n＞2

Print i

End Sub

程序运行后，单击窗体，输出结果为【 10 】。

查看答案

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

您可能会需要：

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

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

更多“（8 ）有如下程序：Private Sub Form_Cli…”相关的问题

第1题

有如下程序: Private Sub Form_Click（)E=1:F=1 For j=1 To 3 E=E+F:F=F+E Next Print E;F End Su

有如下程序:

Private Sub Form_Click()

E=1:F=1

For j=1 To 3

E=E+F:F=F+E

Print E;F

End Sub

该程序的输出结果是

A．6 6

B．5 8

C．13 21

D．34 55

点击查看答案

第2题

（26 ）有以下程序：Sub subP（b（) As Integer)For i = 1 To 4b（i) = 2 * iNext iEnd SubPrivate Su

（26 ）有以下程序：

Sub subP(b() As Integer)

For i = 1 To 4

b(i) = 2 * i

Next i

End Sub

Private Sub Command1_Click()

Dim a(1 To 4) As Integer

a(1) = 5

a(2) = 6

a(3) = 7

a(4) = 8

subP a()

For i = 1 To 4

Print a(i)

Next i

End Sub

运行上面的程序，单击命令按钮，输出结果为

A ） 2

B ） 5

C ） 10

D ）出错

点击查看答案

第3题

设有如下程序：Private Sub Form. Click（） Dim ary（1 To 5)As Integer Dim i As Integer Dim su

设有如下程序：

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

点击查看答案

第4题

在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Su

在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：

Private Sub Command1_Click()

Text1＝"VB programming"

Text2＝Text1

Text1＝"ABCD"

End Sub

程序运行后，单击命令按钮，文本框Text2中显示的内容为【】。

点击查看答案

第5题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序 _______。Dim k As IntegerPrivate Su

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序 _______。 Dim k As Integer Private Sub Form_Load() k=5 End Sub Private Sub Command Click() Static b As Integer b ＝ b + k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是 _______。

A．7 11

B．5 11

C．76

D．2 1

点击查看答案

第6题

在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：Private Su

在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：

Private Sub Commandl_Click()

a=Textl．Value+Text2．Value

MsgBox a

End Sub

Private Sub Form_Load()

TextI．Value=“”

Text2．Value=””

End Sub

程序运行时，在文本框Textl中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为【】。

点击查看答案

第7题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（)Su

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。

A．5

B．120

C．153

D．160

点击查看答案

第8题

在窗体中添加一个命令按钮,编写如下程序: Private Sub Sub1（p,m,n) p=p+1:m=m+1:n=n+1 Print "su

在窗体中添加一个命令按钮,编写如下程序:

Private Sub Sub1(p,m,n)

p=p+1:m=m+1:n=n+1

Print "sub1:";p;m;n

End Sub

Private Sub Command1_Click()

a1=1:b=2:c1=3

Call Sub1(a,b1+3,c1)

Print"Main:";a1;b1;c1

End Sub

程序运行后,输出结果为

A．Sub: 2 6 4 Main: 2 6 4

B．Sub: 2 6 4 Main: 2 6 4

C．Sub: 2 6 4 Main: 1 2 3

D．Sub: 2 6 4 Main: 2 2 3

点击查看答案

第9题

在窗体中添加一个命令按钮，编写如下程序：Private Sub Subl（p,m,n) p=p+1:m=m+1:n=n+1 Print"su

在窗体中添加一个命令按钮，编写如下程序： Private Sub Subl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;n End Sub Private Sub Command1_Click() al=1:b=2:c1=3 Call Subl(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后，输出结果为

A．Sub：2 6 4 Main：2 6 4

B．Sub：2 6 4 Main：2 6 4

C．Sub：2 6 4 Main：1 2 3

D．Sub：2 6 4 Main：2 2 3

点击查看答案

第10题

在窗体上绘制一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：Private Su

在窗体上绘制一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1+Click() a=InputBox(“请输入日期(1～31)”) t=“旅游景点：” &If(a ＞ 0 And a ＜= 10， “长城”，" ") &IIf(a ＞ 10 And a ＜= 20， “故宫”，" ") &IIf(a＞20 And a＜=31， “颐和园”，" ") Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是

A．旅游景点：长城故宫

B．旅游景点：长城颐和园

C．旅游景点：颐和园

D．旅游景点：故宫

点击查看答案