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

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

admin2020-04-08  41
问题 考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个文本框，名称分别为Textl、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5．dat文件中的50个整数读到数组中，并在Textl中显示出来；“排序”按钮的功能是对这50个数按升序排序，并显示在Text7．中；“存盘”按钮的功能是把排好序的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， a(k) ’将取出的数据存入数组a中 ch=ch+Str(a(k))+＂＂’将数 据存入ch Next k Close#1 Textl．Text= ch ′在Textl文本框中显示文件内容 End Sub Private Sub C2_C1ick() End Sub Private Sub C3 Click() Open＂out5．dat＂For Output As#1 Print#1，Text2．Text Close#1 End Sub 需编写的“排序”按钮的代码 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(3+i) a(j+1)=a(j) a(j)=t End If Next j Next i For j=l To 50′将排序后的数组重新赋给ch ch=ch+Str(a(j))+＂＂ Next j Text2．Text=ch End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】注意冒泡排序的用法，理解位置交换的含义和方法，在交换时要有一个中间变量来起到传递的作用，否则会使其中一个值丢失而产生错误。
解析 str函数用于数值转化为字符串，语法为：Str(number)。
转载请注明原文地址:https://jikaoti.com/ti/3tx0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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