2. 计算机
  3. 在考生文件夹下有一个工程文件sjt4．vbp，其功能如下： ①单击“读数据”命令按钮，把考生文件夹下in4．dat文件中已按升序排列的60个数读入数组A，并在Text1中显示： ②单击“输入”按钮，弹出一个输入对话框，接收用户输入的任意一个

在考生文件夹下有一个工程文件sjt4．vbp，其功能如下： ①单击“读数据”命令按钮，把考生文件夹下in4．dat文件中已按升序排列的60个数读入数组A，并在Text1中显示： ②单击“输入”按钮，弹出一个输入对话框，接收用户输入的任意一个

admin2019-03-14  62
问题 在考生文件夹下有一个工程文件sjt4．vbp，其功能如下：
    ①单击“读数据”命令按钮，把考生文件夹下in4．dat文件中已按升序排列的60个数读入数组A，并在Text1中显示：
    ②单击“输入”按钮，弹出一个输入对话框，接收用户输入的任意一个整数；
    ③单击“插入”按钮，将输入的数插入到A数组中，使其仍能保持A数组从小到大排列，最后将A数组的内容重新在Text1中显示。
在窗体文件中已经给出了全部控件(如图所示)和程序。但程序不完整，要求去掉程序中的注释符，把程序中的“?”改为正确的内容，本程序只考虑插入一个整数的情况。
    注意：不得修改已经存在的内容和控件属性，最后将修政后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码如下： Dim a(100)As Integer，num As Integer Prirate Sub Command1_Click() Dim k As Integer Open App．Path＆"＼in4．dat"For Input As #1 For k=1 To 60 Input #1，a(k) Text1=Text1+Str(a(k))+Space(2) NPxt k Close End Sub Private Sub Command2_Click() Bum=InputBox("请输入一个数") End Sub Private Sub Command3_Click() For i=1 To 60 ’If aura＜a(i)Then? Next i ’For j=60 To i? ’a(j+1)= Next j ’?=mum Text1="" ’以下程序段将插入后的数组A重新显示在Text1中 ’For k=1 To? Text1=Text1+Str(a(k))+Space(2) Next k End Sub 参考答案： 第1个?处填入：Exit For 第2个?处填入：Step-1 第3个?处填入：a(j) 第4个?处填入：a(i) 第5个?处填入：61 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 根据题意通过文件操作和For循环语句，把考生文件夹下in4．dat文件中已按升序方式排列的60个数读人数组A，并运用“+”连接符将其显示在Text1中；在Command2_Click事件过程中InputBox函数弹出一个输入对话框，接收用户输入的任意一个整数，赋值给变量n。
    在Command3_Click事件过程中，将输入的数与数组中的数值进行比较，把n插入到A数组中合适的位置，并通过For循环语句将插入后的数组A重新显示在Text1中，使其仍保持A数组的升序排列。
转载请注明原文地址:https://www.kaotiyun.com/show/3pFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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