首页 > 考试 > 等级考试 > 二级 > Visual Basic >

2014全国计算机二级VB上机试题及答案:综合应用题3

2014-01-23

 三、综合应用题  在名为Form1的窗体上建立一个名为Txt1的文本框(其MultiLine属性为True,ScrollBars属性为2)和两个名称分别为Cmd1和Cmd2的命令按钮(其标题分别为“读取”和“保存”),如图56-5所示

 三、综合应用题

  在名为 Form1 的窗体上建立一个名为 Txt1 的文本框(其 MultiLine 属性为 True, ScrollBars 属性为 2)和两个名称分别为 Cmd1 和 Cmd2 的命令按钮(其标题分别为“读取” 和“保存”),如图 56-5 所示。

\

  要求程序运行后,如果单击“读取”按钮,则读入 dr1.dat 文件中的 100 个整数,放 入一个数组中(数组下界为 1),同时在文本框 Txt1 中显示出来;如果单击“保存”按钮,则计算其中前 50 个数之和,并把求和结果在文本框 Txt1 中显示出来,同时把结果存入考 生文件夹中的文件 dw2.dat 中。

  在考生的文件夹下有标准模块 model.bas,其中的 writedata 过程可以把结果存入指定的文件,考生可以把该模块文件添加到自己的工程中,直接调用此过程。

  注意:文件必须存放在考生文件夹中,窗体文件名为 vbsj5.frm ,工程文件名为vbsj5.vbp,计算结果存入 dw2.dat 文件,否则没有成绩。

 三、综合应用题

  【审题分析】在读取按钮的单击事件过程中,用 Open 语句以 Input 方式打开数据文件 dr1.dat,通过 For 循环语句(循环变i的初值为 1,终值为 100)将数据文件中的数据用 Input 语句依次读出并赋值给数组元素 a(i),同时显示在文本框中,每个数据项后接 5 个空格(Space(5))以保持一定间隔。在保存按钮的单击事件过程中,使用 For 循环语句(循环变i 的初值为 1,终值为 50)将数组中前 50 个元素的值累加到变 Sum 中,循环结束后通过调用标准模块中的 writedata 过程(以 Sum 为参数),将结果写入数据文件 dw2.dat。

  【操作步骤】

  步骤 1:新建一个标准 EXE工程。

  步骤 2:在窗体 Form1 中加入一个文本框和两个命令按钮,并分别设置他们的相关属性,属性及其值见表 56-5。

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

  步骤 4:打开代码编辑窗口输入如下代码:

  Dim a(1 To 100) As Integer

  Private Sub Cmd1_Click()

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

  Txt1.Text =

  For i = 1 To 100

  Input #1, a(i)

  Txt1.Text = Txt1.Text & a(i) & Space(1)

  Next i

  Close #1

  End Sub

  Private Sub Cmd2_Click()

  Txt1.Text =

  s = 0

  For i = 1 To 50

  s

  Next

  = s + a(i)

  Txt1.Text = s

  writedata dw2.dat, s

  End Sub

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

  【考试误区】本题主要事件过程代码要求考生自己设计,因此理清程序运行流程是关键。

相关文章
最新文章
热点推荐