在名称为Form1的窗体上画一个文本框，其名称为Text1，可以多行显示，并有垂直滚动条；然后再画三个命令按钮，其名称分别为Command1、Command2 和Command3，标题分别为“取数”、“排序”和“存盘”，如图1－297（a）所示，编写适当的

admin2019-05-14 56

问题在名称为Form1的窗体上画一个文本框，其名称为Text1，可以多行显示，并有垂直滚动条；然后再画三个命令按钮，其名称分别为Command1、Command2 和Command3，标题分别为“取数”、“排序”和“存盘”，如图1－297（a）所示，编写适当的事件过程。程序运行后，如果单击“取数”命令按钮，则将in5.txt 文件中的100个整数读到数组中，并在文本框中显示出来，如图1－297（b）所示；如果单击“排序”命令按钮，则对这100个整数按从大到小的顺序进行排序，并把排序后大于500 的数在文本框中显示出来；如果单击“存盘”命令按钮，则把文本框中所有的数（即排序后大于500的数）保存到考生文件夹下的文件out5.txt 中。

注意：1）必须把排序后大于500的所有整数保存到文件out5.txt 中，否则没有成绩。2）存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。

选项

答案【操作步骤】步骤1：新建一个“标准EXE”工程。步骤2：在窗体Form1中加入一个文本框和三个命令按钮，并分别设置它们的相关属性，属性及值如表2－159所示。 [*] 步骤3：打开代码编辑窗口，编写三个命令按钮的单击事件代码。参考代码： Private N(100) As Integer Private Sub Command1_Click() Open "in5.txt" For Input As #1 For i = 1 To 100 Input #1, N(i) Text1 = Text1 & " " & N(i) Next i Close #1 End Sub Private Sub Command2_Click() Dim i, j As Integer For i = 1 To 100 For j = i To 100 If N(i) < N(j) Then tmp = N(i) N(i) = N(j) N(j) = tmp End If Next j Next i Text1.Text = "" For i = 1 To 100 If N(i) ＞ 500 Then Text1 = Text1 & " " & N(i) End If Next i End Sub Private Sub Command3_Click() Open "out5.txt" For Output As #1 Write #1, Text1.Text Close #1 End Sub 步骤4：按要求将文件保存在考生文件夹中。步骤5：运行程序，先单击“取数”按钮，然后单击“排序”按钮，最后单击“存盘”按钮。

解析

转载请注明原文地址:https://kaotiyun.com/show/BHUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类