2. 计算机
  3. 打开考生文件夹下的sj5．vbp。在名称为Forml的窗体上建立一个名为Textl的文本框和两个命令按钮，名称分别为commandl和Command2，命令按钮上分别显示“读入”和“排序”。程序运行时，单击“读入”按钮，将in．txt文件中的50个数读入，

打开考生文件夹下的sj5．vbp。在名称为Forml的窗体上建立一个名为Textl的文本框和两个命令按钮，名称分别为commandl和Command2，命令按钮上分别显示“读入”和“排序”。程序运行时，单击“读入”按钮，将in．txt文件中的50个数读入，

admin2009-03-26  34
问题 打开考生文件夹下的sj5．vbp。在名称为Forml的窗体上建立一个名为Textl的文本框和两个命令按钮，名称分别为commandl和Command2，命令按钮上分别显示“读入”和“排序”。程序运行时，单击“读入”按钮，将in．txt文件中的50个数读入，．单击“排序”则把数组a中的数值按照降序排列。请在有“?”号的地方填正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。
    注意：存盘时不得改变文件名和文件夹。
选项
答案根据题意，在窗体上添加一个Text控件和两个Command控件，Text的名称为Textl、Text属性为空、MultiLine属性为True、ScrollBar属性为2，Command的名称分别为Commandl和Command2、Caption属性分别为‘‘读入’’和‘‘排序”。双击Commandl命令按钮，编写如下代码： Dim a(50)As Long’全局变量 Private Sub Commandl Click() Textl．Text="" Open App．Path&"＼in．txt"For Input As#1’打开"in．txt"文件 Dim i As Integer Dim temp As Integer For i=1 To 50 Input#l，temp a(i)=temp’按顺序读入到数组中 Next i For i=1 To 50 Textl．Text=Textl．Text+CStr(a(i))+vbCrLf’将数组中的数放人Text中显示 Next i CIose#1 End Sub Private Sub Command2_Click() Dim i As Integer Dim j As Integer Dim k As Integer Dim temp As Integer Dim str As String str="" For i=1 To 50 ’降序排列 temp=a(i) For j=1 To i If a(j)str ’在Textl中显示 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/eV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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