6在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。

　　本题描述如下：

　　在名称为Form1的窗体上有一个文本框，名称为Text1、MultiLine属性为True、ScrollBars属性为2;两个命令按钮，名称分别为Command1和Command2、标题分别为"读取"和"排序保存"，如图52-5所示。程序运行后，如果单击"读取"按钮，则读入in.txt文件中的50个整数，放入一个数组中(数组下界为1);如果单击"排序保存"按钮，则对这50个整数按从小到大的顺序进行排序，把排序后的全部数据在文本框 Text1中显示出来，然后存入考生文件夹的out.txt文件中。(考生文件夹下的标准模块mode5.bas中的writedata过程可以把指定个数的数组元素存入out.txt文件。)

　　图52-5

　　注意：文件必须存放在考生文件夹下，窗体文件名为sj5.frm，工程文件名为sj5.vbp，排序结果存入out.txt文件中,否则没有成绩。

　　参考解析：

　　根据题意，将一个文本框控件，两个单选按钮控件和一个命令按钮添加到窗体中，文本框的名称为Text1，单选按钮的名称分别为Option1和Option2，Caption分别为“求100到250之间能被5整除的数的个数”和“求300到400之间能被6整除的数的个数”，命令按钮的名称为Command1，Caption属性为“计算显示”，设置完成后，双击Command1进入代码窗口，补充后的具体代码如下：

　　Private Sub Command1_Click()

　　Dim min As Integer′下限

　　Dim max As Integer′上限

　　Dim i As Integer′循环计数

　　Dim num As Integer′个数

　　Dim tmp As Integer′除数

　　If Option1.Value=True Then′选中Option1时

　　min=100

　　max=250

　　tmp=5

　　Else′选中Option2时

　　min=300

　　max=400

　　tmp=3

　　End If

　　num=0

　　For i=min To max′利用循环来逐个判断

　　If i Mod tmp=0 Then

　　num=num+1′如果能被除数整除，则个数加1

　　End If

　　Next i

　　Text1.Text=num′在Text1文本框中显示出来

　　Open "App.Path&\out5.txt" For Output As #1

　　Print #1, Text1.Text

　　Close #1

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　相关推荐：

　　2015年计算机二级考试《VB》考前练习题汇总

　　2015年计算机二级考试《VB》考前预测试卷汇总

　　2015年9月计算机等级考试各科目考前必做试题

　　2015年计算机二级《C语言》冲刺试题及答案汇总