2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个文本框，名称为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat 文件中的

在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个文本框，名称为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat 文件中的

admin2019-05-14  70
问题 在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个文本框，名称为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat 文件中的50 个整数读到数组中，并在Text1 中显示出来；“排序”按钮的功能是对这50 个数按升序排序，并显示在 Text2 中；“存盘”按钮的功能是把排好序的50 个数保存到考生目录下的out5.dat 文件中。如图1－120 所示。

    在窗体中已经给出了全部控件和部分程序，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写“排序”按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： Private Sub C1_Click() Dim k As Integer Dim ch As String Open App.Path & "\in5.dat" For Input As #1 ch = "" For k = 1 To 50 Input #1, a%(k%) ch = ch + Str(a(k)) + " " Next k Close #1 Text1.Text = ch$ End Sub Private Sub C2_Click() Dim k As Integer, i As Integer, j As Integer Dim ch As String For i = 1 To 49 k = i For j = i + 1 To 50 If a(k) > a(j) Then k = j End If Next j j = a(k) a(k) = a(i) a(i) = j Next i ch = "" For k = 1 To 50 ch = ch + Str(a(k)) + " " Next k Text2.Text = ch End Sub 步骤2：按要求将文件保存至考生文件夹中。 步骤3：按＜F5＞键运行程序，先单击“取数”按钮，再单击“排序”按钮，最后单击“存盘”按钮。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/PUUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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