2. 简单应用（2小题，每题20分，计40分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　（1）在考生文件夹下有一个工程文件sjt3.vbp，其窗体上有一个名称为Label1的控件数组，含三个标签，标题分别是“开始时间”、“结束时间”和“通话费用”；有一个名称为Text1 的控件数组，含三个初始值为空的文本框；此外还有二个名称分别为Cmd1和Cmd2的命令按钮，标题分别是“通话开始”和“通话结束”。其中通过属性窗口对“通话结束”命令按钮的初始状态设置为禁用，如图所示。该程序的功能是计算公用电话计时收费。计时收费标准为：通话时间在3分钟以内时，收费0.5元； 3分钟以上时，每超过1分钟加收0.15元，不足1分钟按1分钟计算。程序执行的操作如下：

　　1）如果单击“通话开始”按钮， 则在“开始时间”右侧的文本框中显示开始时间， 且“通话结束”命令按钮变为可用状态，“通话开始”命令按钮不可用；

　　2）如果单击“通话结束”按钮， 则“结束时间”右侧的文本框中显示结束时间，同时计算通话费用， 并将其显示在“通话费用”右侧的文本框中，“通话开始”命令按钮变为可用状态， “通话结束”命令按钮不可用。

　　在窗体文件中已经给出了全部控件（如图所示）和程序，但程序不完整，要求去掉程序中的注释符，把 ？改为正确的内容，以实现上述功能。

　　注意：

　　不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。

　　由于所提供的窗体控件不完整，通过“通话结束”的属性窗口将Enabled属性设为False。

　　由于所提供的窗体程序不完整，在“通话开始”按钮的Private Sub Cmd1_Click()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'? = Str(Time())

　　改为

　　Text1(0).Text = Str(Time())

　　在“通话结束”按钮的Private Sub Cmd2_Click()事件过程中，有三处地方需要修改。

　　1) 将语句

　　's = ? + (m - 3) * 0.15

　　改为

　　s = s + (m - 3) * 0.15

　　2) 将语句

　　'? = True

　　改为

　　Cmd1.Enabled = True

　　3) 将语句

　　'? = False

　　改为

　　Cmd2.Enabled = False

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt3.vbp、sjt3.frm、sjt3.vbw

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt3.vbp文件并运行。

　　（2）在考生文件夹下有一个工程文件sjt4.vbp，文件in4.txt中有5组数据，每组10个，依次代表语文、英语、数学、物理、化学这 5门课程10个人的成绩。程序运行时，单击“读入数据”按钮，可从文件 in4.txt中读入数据放到数组a中。单击“计算”按钮，则计算5门课程的平均分（平均分取整），并依次放入Text1 文本框数组中。单击“显示图形”按钮，则显示平均分的直方图，如图所示。窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的 ？改为正确的内容。

　　注意：

　　不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，并打开窗体文件sjt4.frm。

　　由于所提供的窗体控件不完整，在"读入数据"按钮的Private Sub Command1_Click()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'Open App.Path & "/in5.txt" For ? As #1

　　改为

　　Open App.Path & "/in5.txt" For Input As #1

　　在"计算"按钮的Private Sub Command2_Click()事件过程中，有二处地方需要修改。

　　1) 将语句

　　's(i) = ?

　　改为

　　s(i) = a(i, j) + s(i)

　　2) 将语句

　　☆国家教育部考试中心题库☆ 222

　　'? = CInt(s(i) / 10)

　　改为

　　s(i) = CInt(s(i) / 10)

　　在"显示图形"按钮的Private Sub Command3_Click()事件过程中，有二处地方需要修改。

　　1) 将语句

　　'Shape1(k - 1).Top = ? - Shape1(k - 1).Height

　　改为

　　Shape1(k - 1).Top = m - Shape1(k - 1).Height

　　2) 将语句

　　'Shape1(k - 1).? = True

　　改为

　　Shape1(k - 1).Visible = True

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt4.vbp、sjt4.frm、sjt4.vbw

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt4.vbp文件并运行。