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

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

admin2015-06-30  33
问题 考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个文本框，名称分别为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“取数”、 “排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5．dat文件中的50个整数读到数组中，并在Text1中显示出来；“排序”按钮的功能是对这50个数按升序排序，并显示在Text2中；“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5．dat文件中，如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写“排序”按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 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 程序结束 参考答案 第1个？处填入：a(k) 第2个？处填入：ch "排序"按钮的代码 Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch = "" For i = 50 To 2 Step -1 For j = 1 To 49 If a(j) > a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i For j = 1 To 50 ch = ch + Str(a(j)) + "" Next j Text2.Text = ch End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘
解析
转载请注明原文地址:https://kaotiyun.com/show/ntQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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