2014年全国计算机二级VB上机考试试题六

　　三、综合应用题

　　【审题分析】在"读数"按钮的单击事件过程中，用 Open 语句以 Input 方式打开数据文件 dr1.dat，通过 For 循环语句(初值为 1，终值为 50)将数据文件中的数据用 Input语句依次读出并赋值给数组元素 arr(i)，同时显示在文本框中。在"排序"按钮的单击事件过程中，利用"冒泡法"对数组中的元素按从大到小进行排序。在"保存"按钮的单击事件过程中，使用 For 循环语句将数组中各元素按顺序将其值显示在文本框中，并通过调用标准模块中的 Writedata 过程(以数组名和数组上界为参数)，将文本框中的内容写入数据文件 dw2.dat。为使数据间保持一定间隔，每个数据后用 Space(5)加入 5 个空格。

　　【操作步骤】

　　步骤 1：新建一个"标准 EXE"工程，在窗体 Form1 上加入 1 个文本框和 3 个命令按钮，在属性设置窗口分别设置它们的属性，属性及其值见表 55-4。

　　表 55-4

　　步骤 2：选择【工程】?【添加模块】命令，打开添加模块对话框，将考生文件夹下的 mode1.bas 添加到当前工程中。

　　步骤 3：打开代码编辑窗口，编写以下代码：

　　参考代码：

　　Dim arr(1 To 50) As Integer

　　Private Sub Cmd1_Click()

　　Txt1.Text = ""

　　Open App.Path & "\dr1.dat" For Input As #1

　　For i = 1 To 50

　　Input #1, arr(i)

　　Txt1.Text = Txt1.Text & arr(i) & Space(5)

　　Next

　　Close #1

　　End Sub

　　Private Sub Cmd2_Click()

　　For i = 1 To 50

　　For j = i + 1 To 50

　　If arr(i) < arr(j) Then

　　t = arr(i)

　　arr(i) = arr(j)

　　arr(j) = t

　　End If

　　Next

　　Next

　　End Sub

　　Private Sub Cmd3_Click()

　　Txt1.Text = ""

　　For i = 1 To 50

　　Txt1.Text = Txt1.Text & arr(i) & Space(5)

　　Next

　　Writedata arr, 50

　　End Sub

　　步骤 4：按要求将文件保存至考生文件夹中。

　　编辑推荐：

　　2014年上半年计算机等级考试报名时间及入口专题

　　各地2014年计算机等级考试费用汇总

　　2014年计算机等级考试时间