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

[主观题]

以下程序的功能是在程序运行后，单击命令按钮，输出如下结果： 1 4 7 2 5 8

3 6 9 请完善以下程序。 Private Sub Command1_Click() Dim Arr(3，3)As Integer For i=1 To 3 For j=1 To 3 Arr(i，j)=【】 Print Arr(i，j)； Next j Print NeXt i End Sub

查看答案

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

您可能会需要：

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

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

更多“以下程序的功能是在程序运行后，单击命令按钮，输出如下结果： …”相关的问题

第1题

（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图64－3所示

（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图64-3所示。程序运行后，单击“计算”命令按钮，通过在对话框输人整数12，放入整型变量a中，然后计算a!（提示：运算结果应放入Long型变量中），在文本框中显示结果，如图64-4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程PutData，考生可以直接调用。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。

（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图6

（2）在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图64-5所示。

（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图6

窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。

注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。

点击查看答案

第2题

在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令

按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。下面是实现上述功能的程序，请填空。 Private Sub Form_Load() List1.AddItem "AAAAA" List1.AddItem "BBBBB" List1.AddItem "CCCCC" List1.AddItem "DDDDD" End Sub Private Sub Command1_Click() Dim L1 As Integer L1=【】 If L1 ＞=0 Then List1.RemoveItem【】 Labell.Caption=【】 Else MsgBox("请选择要删除的项目") End If End Sub

点击查看答案

第3题

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗

口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮。即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图16-5所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。 Private Sub Command1_C1ick() If List1. List1adex＞=【】Then List1. Removeltem【】 Label1. Caption=【】 Else MsgBox "请选择要删除的项目" End If End Sub

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1

点击查看答案

第4题

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Commandl和Label1，通过属性窗

口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。 Pfivme Sub Command1_Click() If List1.List1ndex＞=【】Then List1.Removehem【】 Label1.Caption=【】 Else MsgBox“请选择要删除的项目”

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Commandl和Label1 End If End Sub

点击查看答案

第5题

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Labe11，通过属性窗

口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图20-8所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Labe11 Private Sub Command1_Click() If List1.ListIndex＞=0 Then List1．RemoveItem【】 LabeCaption=【】 Else MsgBox“请选择要删除的项目” End If End Sub

点击查看答案

第6题

在窗体中添加一个命令按钮，命名为Command1，然后编写如下程序：PrinvateSubCommand1_Click（)A=1234B=Str（A)C=Len（B)PrintCEndSub程序运行后，单击命令按钮，则在窗体上显示的内容是（)

A.0

B.5

C.6

D.7

点击查看答案

第7题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubcommand1clickIfx＞0Theny=x^2ElseEndIfPrintyEndsub程序运行后，单击命令按钮，窗体上显示的是（)。

A.-5

B.25

C.-1

D.1

点击查看答案

第8题

在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Comma

nd1_Click() Text1．Text="计算机" TextText=Text1．Text Text1．Text="等级考试" End Sub 程序运行后，单击命令按钮，两个文本框(Text1和Text2)中的内容分别为【】和【】。

点击查看答案

第9题

在Windows操作系统中，如果卸载一款应用程序，不可以__________。

A.在控制面板的“卸载程序”窗口中，选中程序后单击工具栏中的“卸载”按钮

B.在控制面板的“卸载程序”窗口中，选中程序右击鼠标，在菜单中选择“卸载”命令

C.选中程序图标，直接按“Delete”键

D.利用文件名为“Uninstall.exe”的卸载程序

点击查看答案

第10题

在窗体上面画一个命令按钮，然后编写如下程序： Function M（x As Integer，y As Integer)As Int

在窗体上面画一个命令按钮，然后编写如下程序： Function M(x As Integer，y As Integer)As Integer M=IIf(x＞y，x，y) End Function Private Sub Command1_Click() Dim a As Integer，b As Integer a=1 b=2 Print M(a，B) End Sub 程序运行后，单击命令按钮，输出结果为【】。

点击查看答案