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

admin2019-05-14  57

问题 在名称为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
0

相关试题推荐
最新回复(0)