填空题

考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个文本框，名称分别为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中，并在Text1中显示出来；“排序”按钮的功能是对这50个数按升序排序，并显示在Text2中；“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中，如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的改为正确的内容，并编写“排序”按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。


Dim a(50) As Integer
Private Sub C1 Click()
Dim k As Integer, ch As String
Open "in5.dat" For Input As #1
ch ＝ ""
For k ＝ 1 To 50
'　Input #1,？
　　　　ch ＝ ch ＋ Str(a(k)) ＋ " "
Next k
Close #1
'　Text1.Text ＝？
End Sub
Private Sub C2 Click()
End Sub
Private Sub C3 Click()
Open "out5.dat" For Output As #1
Print #1, Text2.Text
Close #1
End Sub

点击查看答案&解析