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

[主观题]

在窗体上画1个命令按钮，并编写如下事件过程：Private Sub Command1 Click（）Dim a（3，3)For m=1 T

在窗体上画1个命令按钮，并编写如下事件过程：

Private Sub Command1 Click（）

Dim a(3，3)

For m=1 To 3

For n=1 To 3

If n=m or n=4—m Then

a(m．n)=m+n

Else

a(m，n)=0

End If

Print a(m，n)；

Next n

Next m

End Sub

运行程序，单击命令按钮，窗体上显示的内容为（）。

A.2 0 0

0 4 0

0 0 6

B.2 0 4

0 4 0

4 0 6

C.2 3 0

3 4 0

0 0 6

D.2 0 0

0 4 5

0 5 6

查看答案

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

您可能会需要：

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

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

更多“在窗体上画1个命令按钮，并编写如下事件过程：Private …”相关的问题

第1题

在窗体上画1个命令按钮，并编写如下事件过程：Private Sub Command1-Click（)For i=5 To 1 Step-0．8

在窗体上画1个命令按钮，并编写如下事件过程：

Private Sub Command1-Click()

For i=5 To 1 Step-0．8

Print Int(i)；

Next i

End Sub

运行程序，单击命令按钮，窗体上显示的内容为

A．5 4 3 2 1 1

B．5 4 3 2 1

C．4 3 2 1 1

D．4 4 3 2 1 l

点击查看答案

第2题

在窗体上画1个命令按钮，并编写如下事件过程iPrivate Sub Commandl—Click（)Dim a（3，3)For m=1 T0

在窗体上画1个命令按钮，并编写如下事件过程i

Private Sub Commandl—Click()

Dim a(3，3)

For m=1 T0 3

F0r n=1 To 3

If n=m Or n=4-m Then

a(m，n)=m+n

Else

a(m，n)：0

End If

Print a(m，n)；

Next n

Prim

Next m

End Sub

运行程序，单击命令按钮，窗体上显示的内容为

A．2 0 0

B．2 0 4

C．2 3 0

D．2 0 0

点击查看答案

第3题

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

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

PriVate Sub Commandl_CUck()

Dimalt(1 To 100)As Integer

Fori=1 To 100

arr(i)=Int(Rnd*1000)

Nexti

Max=arr(1)

Min=arr(1)

Fori=1 To 100

If [12] Then

Max=arr(i)

点击查看答案

第4题

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程 OptionBase1 PribateSub

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程

Option Base 1

Pribate Sub Command1_Click（）

Dim a（5.5） As Integer

For i=1 To 5

a（I,j）*5\10

Next j

Next i

S=0

For i=1 To 5

S=s+a（i,i）

Next i

Print s

End Sub

程序运行后，单击命令按钮，输出结果是（）。

A．15

B．13

C．11

D．9

点击查看答案

第5题

在窗体上画1个命令按钮和1个通用对话框，其名称分别为Commandl和CommonDialogl，然后编写如下事件

过程：

Private Sub Commandl_CUck()

CommonDialog1.______="打开文件"

CommonDialog1.Filter="All Files(*.*)|*.*"

CommonDialog1.InitDir="C:\"

CommonDialog1.ShowOpen

End Sub

该程序的

点击查看答案

第6题

在窗体上画一个通用对话框，其名称为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．不确定

点击查看答案

第7题

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，再编写如下程序：Dim 88 As Stri

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，再编写如下程序：

Dim 88 As String

Private Sub Textl—KeyPress(KeyAscii As Integer)

If Chr(KeyAscii)＜＞””Then ss=ss+Chr(KeyAscii)

End Sub

Private Sub Commandl_Click()

Dim m As String，i As Integer

For i=ten(ss)To 1 Step-1

Ill=m+Mid(88,，i，1)

Textl．Text=UCase(n1)

End Sub

运行程序后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中最示的是

A．NUMBER 100

B．REBMUN

C．REBMUN 100

D．001 REBMUN

点击查看答案

第8题

在窗体上画一个命令按钮，然后编写如下事件过程：在窗体上画一个命令按钮，然后编写如下事件过程：运行后的输出结果是______。

运行后的输出结果是______。

A.3

B.10

C.20

D.2

点击查看答案

第9题

在窗体上画一个命令按钮，然后编写如下事件过程：在窗体上画一个命令按钮，然后编写如下事件过程：运行后的输出结果是______。

运行后的输出结果是______。

A.5

B.1

C.2

D.6

点击查看答案

第10题

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

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

A．All Files(*.*)

B．Text Files(*.txt)

C．Batch Files(*.bat)

D．不确定

点击查看答案