在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。本程序的功能为当用户单击窗体上的命令按钮“输入”时，可以输入6个数值，随后程序对这6 个数值进行斗序排序，单击按钮“输出”则把大于平均值的数显示出来，程序运行时的窗体如图7—4所示。注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“¨’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
题目
在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。本程序的功能为当用户单击窗体上的命令按钮“输入”时，可以输入6个数值，随后程序对这6 个数值进行斗序排序，单击按钮“输出”则把大于平均值的数显示出来，程序运行时的窗体如图7—4所示。
注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“¨’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
相似考题
参考答案和解析
根据题意，在窗体上添加一个Text控件和两个Command控件，Text的名称为Text1、Text属性为空，Command的名称分别为Command1和Command2，Caption属性分别为“输入”和“输出”。双击Command1命令按钮，编写如下代码：
Dim a(6)As Integer
Private Sub Command1_Click
Dim i As Integer
Dimj As Integer
Dim k As Integer
Dim trap As Integer
For i=1 To 6
a(i)=Val(InputBoK("请输入"))
Next i
For i=1 To 6 升序序排列
temp=a(i)
For j=1 To i
If a(j)>temp Then读取的数据比原位置的数据大则偏移
For k=i To J…1 Step-1上下限
a(k)=a(k-1) 数据向后偏移一个
Next k
a(j)=temp
Exit For
End If
Next j
Next i
End Sub
Prival e Sub Command2 Click
Dim arg As Integer
Dim str As String
Dimj As Integer
arg=0
Dim i As Integer
str=""
For i=1 To 6
arg=arg+a(i) 求总和
Next i
arg=arg＼6求平均值．
Fm i=1 To 6
If a(i)>arg Then
当大于平均值时则写入字符串
str=str+CStr(a(i))+""
End If
Next i
Text1．Text=str将结果显示在Text1中
End Sub
单击
按钮运行程序，并按要求保存。
更多“ 在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。本程序的功能为当用户单击窗体上的命令按钮“输入”时，可以输入6个数值，随后程序对这6 个数值进行斗序排序，单击按钮“输出”则把大于”相关问题
-
第1题：
在考生文件夹中有工程文件execise71.vbp及窗体文件execise71.tim。在名为Form1的窗体中有两个命令按钮，名称分别是Cmd1和Cmd2，标题分别是“修改图标”和“修改标题”。要求程序运行后，单击“修改图标”命令按钮，则将窗体标题栏中的图标换为图标文件pic1.ico(该文件在考生文件夹中)；单击“修改标题”命令按钮，则将窗体标题修改为“这是窗体”，如下图所示。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第2题：
在考生文件夹中有工程文件execise23.vbp及窗体文件execise23.frm。在名为Form1、标题为“求和程序”的窗体上有3个Labe1控件、2个Text控件和3个命令按钮(如下图所示)。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和。
要求：
(1)刚启动工程时，Result和Clear按钮均为灰色。
(2)可以在输入框内输入任意自然数(n值太大时，运算时间将很长，建议不超过9位)。在输入数的同时Result按钮按钮变为可用。当输入为非数值时，累加结果为0。
(3)单击Result按钮可以在Text2中显示累加和，且该框内的文字不可修改：同时 Result按钮变灰，Clear按钮变为可用。
(4)单击Clear按钮，输入框和显示框均显示“0”。
(5)单击Close按钮结束程序的运行。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“”’，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第3题：
（1）在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在名称为Form1的窗体上有3个Text控件及5个命令按钮，功能为：开始启动工程时，界面上除“读取数据”及“关闭”按钮有效之外，其他按钮均不可用（灰色显示）；单击“读取数据”按钮之后，利用InputBox让用户连续且必须输入8个数。若录入为非数字符号，则给出提示“输人数据无效，请重新输入：”；输入完毕后，“读取数据”变灰，其他变为可用状态；按相应的按钮可分别求出所输人数据的升序排列及平均值，并在右侧对应的文本框中显示（注意用A（8）存放最大数，A（1）存放最小数）；单击“清空”按钮将所有文本框清空。如图70-3所示。
注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符“‘”，但不能修改其他部分。存盘时不得改变文件名和文件夹。
（2）在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在名称为Form1，窗体上有3个Label控件、2个Text控件和2个命令按钮。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和。刚启动工程时，可以在输人框内输入任意自然数（n值太大时，运算时间将很长，建议不超过4位）。当输人为非数值时，累加结果为0；单击“开始”可以在Text2中显示累加和，同时“开始”变为“完成”并变灰；单击“关闭”按钮结束程序的运行。如图70-4所示。
注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符“‘”，但不能修改其他部分。存盘时不得改变文件名和文件夹。
正确答案：(1)用数组str(8)来接收InputBox输入的8个数，In-putBox的格式为：InputBox(提示[，标题][，默认][，X坐标位置][，Y坐标位置])；Enabled属性可设置控件是否可用，当该值为True时可用，为False时不可用(灰色)；Val（ ）函数将字符转换成数值。
根据题意，将5个命令按钮和3个文本框控件添加到窗体中，命令按钮的名称分别为Command1、Command2．Command3、Command4和Command5，Caption属性分别为“读取数据”、“升序显示”、“平均值”、“清空”和“关闭”，文本框的名称分别为Text1、Text2和Text3，Text属性都为空。
双击Command1进入代码窗口，补充后的代码如下：
(2)要计算累加和通常利用for循环来完成。文本框中的内容(包括数字)默认都是当做字符串来处理的，如果要参与数据运算则需先用Val()函数将其转化为数字。
根据题意，将3个标签、2个命令按钮和2个文本框控件添加到窗体中，标签的Caption属性分别为“要求：程序能得到结果total，total=l+2+3+…+n”、“输入n(0<n<=9999)”和“结果是”，命令按钮的名称分别为Command1和Command2、Caption属性分别为“开始”和“关闭”，文本框的名称分别为Text1和Text2、Text属性都为空。双击Com-mand1进入代码编写窗口，补充后的具体代码如下：
-
第4题：
在考生文件夹中有一个工程文件execise45.vbp和窗体文件execise45.frm。它的功能是在运行时只显示名为Form2的窗体，单击Form2上的“上线”命令按钮，则显示名为Form1的窗体；单击Form1上的“隐身”命令按钮，则Form1的窗体消失。这个程序并不完整，要求：
(1)把Form2设为启动窗体；把Form1上按钮的标题改为“隐身”，把Form2上按钮的标题改为“上线”。
(2)去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后把修改后的文件存盘。
(3)工程文件和窗体文件仍按原名保存。
正确程序运行后的界面如卜图所示。
正确答案：
-
第5题：
在Form1的窗体上绘制一个命令按钮，名为Cmd1，标题为Display。编写适当的事件过程，使程序运行后，若单击命令按钮，则在窗体上显示ViSBa1 Basic；如果单击窗体，则命令按钮消失。程序运行情况如下图所示。
注意：
在程序中不能使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise16.vbp，窗体文件名为execise16.frm。
正确答案：
