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

[主观题]

有如下程序：Private Sub Form_Click（) Dim Check, Counter Check=True Counter=0 Do Do While Co

有如下程序： Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为______。

A．15 0

B．20 -1

C．10 True

D．10 False

查看答案

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

您可能会需要：

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

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

更多“有如下程序：Private Sub Form_Click（)…”相关的问题

第1题

有如下事件过程：Private Sub Form. Click（)Dim n As Integer x=0n=InputBox（”请输入一个整数”)Fo

有如下事件过程：

Private Sub Form. Click()

Dim n As Integer

x=0

n=InputBox(”请输入一个整数”)

For i=1 To i

For j=1 To i

x=x+1

Next j

Next 1

Print x

End sub

程序运行后，单击窗体，如果在输入对话框中输入5,则在窗体上显示的内容是()。

A．13

B．14

C．15

D．16

点击查看答案

第2题

设有如下程序：Private Sub Form_Click（)Dim i As Integer，x As String,Y As Stringx=”ABCDEFG”Fo

设有如下程序：

Private Sub Form_Click()

Dim i As Integer，x As String,Y As String

x=”ABCDEFG”

For i=4 To 1 Step-1

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

Next i

Print y

End Sub

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

A．ABCCDEDEFG

B．AABBCDEFG

C．ABCDEFG

D．AABBCCDDEEFFGG

点击查看答案

第3题

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

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click_() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。

A．15

B．18

C．21

D．24

点击查看答案

第4题

在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click（) Fo

在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I=1 To 4 For J=0 To 1 Print Chr$(65+1)； Next J Print Next 1 End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A．BB CCC DDDD EEEEE

B．A BB CCC DDDD

C．B CC DDD EEEE

D．AA BBB CCCC DDDDD

点击查看答案

第5题

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

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞Then m=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。

A．15

B．18

C．21

D．24

点击查看答案

第6题

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

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。

A．15

B．18

C．21

D．24

点击查看答案

第7题

在窗体上添加一个文本框Text 1，然后编写如下的Load事件过程，则程序运行结果为（)。 Private Sub Fo

在窗体上添加一个文本框Text 1，然后编写如下的Load事件过程，则程序运行结果为()。 Private Sub Form_Load0 Text1. Text="" Text1. SetFocus For k = 1 To 5 t=t*k Next k Text1.Text = tEnd Sub

A．在文本框中显示120

B．文本框中仍为空

C．在文本框中显示1

D．出错

点击查看答案

第8题

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

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Forn=1 To 20 If n Mod 3＜＞Thenm=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。

A．15

B．18

C．21

D．24

点击查看答案

第9题

下列程序Option Base 1 Private Sub Form_Click（) Dim a（10) AsInteger, b（5) As Integer Fo

A.37111519

B.19151173

C.13579

D.不确定的值

点击查看答案

第10题

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

在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=l To 4 x=4 For j=1 To 3 x=3 Fork=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是()。

A．7

B．15

C．157

D．528

点击查看答案

第11题

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

在窗体上添加一个命令按钮(名为Command1，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是______。

A．7

B． 15

C． 157

D． 538

点击查看答案