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

[主观题]

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

在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,x As Integer For i_1 T0 6 If i=1 Then x=i If i＜=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为()。

A．9

B．6

C．12

D．15

查看答案

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

您可能会需要：

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

安装优题宝APP，拍照搜题省时又省心！

更多“在窗体上绘制一个命令按钮，其名称为Command1，然后编写…”相关的问题

第1题

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

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_ Click() Dim arr (10) For i = 1 To 10 arr (i) = i ^ 2 Next i Print arr(i - 2) End Sub程序运行后，单击命令按钮，在窗体上输出的是______。

A．49

B．64

C．81

D．100

点击查看答案

第2题

在窗体上画一个命令按钮（其名称为Command1)，然后编写如下代码：Private Sub Command1 Click（）Di

在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：

Private Sub Command1 Click（）

Dim a

a=Array(1，2，3，4)

i=3：j=1

Do While＞=0

s=s+a(i)*j

i=i-1

j=j*10

Loop

Print S

End Sub

运行上面的程序，单击命令按钮，则输出结果是（）。

A.4321

B.123

C.234

D.1234

点击查看答案

第3题

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

在窗体上画一个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5，5)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=1 To 3 a(i，j)=(i-1)*3+j Print a(i，j) Next j Print Next i End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是： ______。

A．1 4 7 2 5 8 3 6 9

B．1 2 3 4 5 6 7 8 9

C．1 2 3 4 5 6 7 8 9

D．没有输出

点击查看答案

第4题

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

在窗体上画一个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Sub Comnmnd1_Click() Dim a(5,5)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=1 To 3 a＜i,j)=(i-1)*3+j Print a(i,j) Next j Print Next i End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是______。

A．1 4 7 2 5 8 3 6 9

B．1 2 3 4 5 6 7 8 9

C．1 2 3 4 5 6 7 8 9

D．没有输出

点击查看答案

第5题

假设在窗体上建立了一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮Command1,并编写如下事件过程：PrivateSubCommand1_Click()CommonDialog1.Flags=4CommonDialog1.Filter="allfiles(*.*)|*.*|textFiles(*.Txt)|*.txt|BatchFilse(*.bat)|*.bat"CommonDialog1.FilterIndex=1CommonDialog 1.ShowOpenMsgBoxCommonDialog 1.FileNameEndSub程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"对话框中显示的是()

A.AllFiles(*.*)

B.出错

C.BatchFiles(.bat)

D.不确定

点击查看答案

第6题

在窗体上建立一个通用对话框，其名称为CommonDialog1，然后再添加一个命令按钮，并编写如下事件

过程：

PrivateSubCommand1_Click()

CommonDialog1.Flags=cdlOFNHideReakOnly

CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&"|(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"CommonDialog1.FilterIndex=2CommonDialog1.ShowOpen

MsgBoxCommonDialog1.FileNameEndsub

程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是（）

A、AllFiles(*.*)

B、TextFiles(*.txt)

C、BatchFiles(*.bat)

D、不确定

点击查看答案

第7题

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

() Dim a1(4,4),a2(4,4) For i=1 To 4 For j=1 To 4 al(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print al(3,3);a2(3,3)End Sub 程序运行后，单击命令按钮，在窗体上输出的是（）。A．6 6 B．10 5 C．7 21 D．6 12

点击查看答案

第8题

在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是（)。Private Sub p

在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是()。

Private Sub p1(n As Integer)

For i=n To 1 Step-1

x=String(i,"*")

Print x

Next i

End Sub

Private Sub Command1_Click()

p1(3)

End SubA)

*B)C)D)

A．*** ** *

B．* ** ****

C．* * *

D．******

点击查看答案

第9题

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

在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程： Private Sub Commandl_click() Dim i As Integer,X As Integer For i=1 To 6 If i=1 Then x=i If i＜=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为______。

A． 9

B．6

C．12

D．15

点击查看答案

第10题

在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程：Priva

在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialogl.Flags=cdlOFNHideReadOnly commonDialogl.Filter="All Files(*.*)|*.*| Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialogl.Filterlndex=1 CommonDialogl.ShowOpen MsgBox CommonDialogl.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 ______。

A．AllFiles(*.*)

B．TextFiles(*.txt)

C．BatchFiles(*.bat)

D．不确定

点击查看答案