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

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

2014-01-22

  在名为Form1的窗体上建立一个名称为Txt1的文本框,其MultiLine属性为True,ScrollBars属性为2;3个名称分别为Cmd1、Cmd2和Cmd3的命令按钮,它们的标题分别为“读数”、“计算”和“保存”。  要求程

  在名为 Form1 的窗体上建立一个名称为 Txt1 的文本框,其 MultiLine 属性为 True, ScrollBars 属性为 2;3 个名称分别为 Cmd1、Cmd2 和 Cmd3 的命令按钮,它们的标题分 别为“读数”、“计算”和“保存”。

  要求程序运行后,如果单击“读数”按钮,则读入 dr2.dat 文件中的 100 个整数,放 入一个数组中(数组下界为 1),同时在文件框中显示出来;如果单击“计算”按钮,则 计算小于或等于 300 的所有数之和,并把结果在文本框 Txt1 中显示出来,如果单击“保 存”按钮,把该结果存入考生文件夹中的文件 dw1.dat 中(在考生文件夹下有标准模块 model.bas,其中的 writedata 过程可以把结果存入指定的文件,考生可以把该模块文件添 加到自己的工程中,直接调用此过程),如图 52-5 所示。

\

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

  【审题分析】本题源程序已提供 Writedate 自定义过程,需编写"读数"、"计算"和"保存"命令的单击事件过程。程序设计思路:在"读数"按钮的单击事件过程中,用 Open 语句以 Input 方式打开数据文件 dr1.dat,通过 For 循环语句(初值为 1,终值为 100)将数据文件中的数据用 Input 语句依次读出并赋值给数组元素 arr(i),同时显示在文本框中,为使数据间保持一定间隔,每个数据后用 Space(5)加入 5 个空格;在"计算"按钮的 Click 事件过程中,利用 For 循环语句(循环变 i 的初值为 1,终值为 100)依次将数组 arr 中小于或等于 300 的元素的值显示在文本框中(条件表达式为:arr(i)<=300),并将其值累加到变Sum,循环结束后将结果显示在窗体上。在"保存"按钮的 Click 事件过程中,通过调用WriteData 过程将文本框中的值写入数据文件 dw1.dat。

  【操作步骤】

  步骤 1:新建一个"标准 EXE"工程,按下表在窗体中画出控件并设置其相关属性。

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

  步骤 3:在代码编辑窗口编写以下事件过程。

  参考代码:

  Dim arr(1 To 100) As Integer

  Private Sub Cmd1_Click()

  Txt1.Text = ""

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

  ′ó?ò??ì3?????úμè????ê?ר?? https://club.topsage.com/forum-49-1.html ê??ˉ??àí

  For i = 1 To 100

  Input #1, arr(i)

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

  Next

  Close #1

  End Sub

  Private Sub Cmd2_Click()

  Dim sum As Integer

  For i = 1 To 100

  If arr(i) <= 300 Then

  sum = sum + arr(i)

  End If

  Next

  Txt1.Text = sum

  End Sub

  Private Sub Cmd3_Click()

  writedata "dw1.dat", Txt1.Text

  End Sub

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

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