2. 计算机
  3. (1)在考生文件夹下有一个工程文件sjt3．vbp，其窗体上有一个控件数组，名称为Label1，含三个标签，标题分别是“开始时间”、“结束时间”和“通话费用”；有一个名称为Text1的控件数组，含三个初始内容为空的文本框；此外还有两个名称分别为Cmd1和C

(1)在考生文件夹下有一个工程文件sjt3．vbp，其窗体上有一个控件数组，名称为Label1，含三个标签，标题分别是“开始时间”、“结束时间”和“通话费用”；有一个名称为Text1的控件数组，含三个初始内容为空的文本框；此外还有两个名称分别为Cmd1和C

admin2020-06-30  69
问题  (1)在考生文件夹下有一个工程文件sjt3．vbp，其窗体上有一个控件数组，名称为Label1，含三个标签，标题分别是“开始时间”、“结束时间”和“通话费用”；有一个名称为Text1的控件数组，含三个初始内容为空的文本框；此外还有两个名称分别为Cmd1和Cmd2的命令按钮，标题分别是“通话开始”和“通话结束”。其中通过属性窗口对“通话结束”命令按钮的初始状态设置为不可用，如图所示。该程序的功能是计算公用电话计时收费。计时收费的标准是：通话时间在3分钟以内时，收费0．5元；3分钟以上时，每超过1分钟加
收0．15元，不足1分钟按1分钟计算。程序执行的操作如下：
    ①如果单击“通话开始”按钮，则在“开始时间”右侧的文本框中显示开始时间，且“通话结束”命令按钮变为可用，“通话开始”命令按钮变为不可用。
    ②如果单击“通话结束”按钮，则在“结束时间”右侧的文本框中显示结束时间，同时计算通话费用，并将其显示在“通话费用”右侧的文本框中，“通话开始”命令按钮变为可用，“通话结束”命令按钮变为不可用。
    在窗体文件中已经给出了全部控件(如图所示)和程序，但程序不完整，要求去掉程序中的注释符，把?改为正确的内容，以实现上述功能。
    注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。

    (2)在考生文件夹下有一个工程文件sjt4．vbp，文件in4．txt中有5组数据，每组10个，依次代表10个人语文、英语、数学、物理、化学这5门课程的成绩。程序运行时，单击“读人数据”按钮，可以从文件in4．txt中读人数据放到数组a中。单击“计算”按钮，则计算5门课程的平均分(平均分取整)，并依次放入Text1文本框数组中。单击“显示图形”按钮，则显示平均分的图表，如图所示。窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。
    注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案(1)【操作步骤】 步骤1：打开本题工程文件，设置Cmd2的Enabled属性为False。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Cmd1_Click() ’? = Str(Time()) Text1(1)．Text = ""： Text1(2)．Text = "" Cmd1.Enabled = False Cmd2.Enabled = True End Sub Private Sub Cmd2_Click() Text1(1)．Text = Str(Time()) t start = Hour(Text1(0)．Text) * 3600 + Minute(Text1(0)．Text) * 60 + Second(Text1(0)．Text) t end = Hour(Text1(1)．Text) * 3600 + Minute(Text1(1)．Text) * 60 + Second(Text1(1)．Text) t = t end - t start m = t \ 60 If m < t / 60 Then m = m + 1 s = 0.5 If m - 3 > 0 Then 　　 ’s = ? + (m - 3) * 0.15 End If Text1(2)．Text = Str(s) + "元" ’？= True ’？= False End Sub 程序结束 参考答案 第1个？处填入：Text1(0) 第2个？处填入：s 第3个？处填入：Cmd1.Enabled 第4个？处填入：Cmd2.Enabled 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(5, 10) As Integer Dim s(5) Private Sub Command1_Click() ’　Open App.Path & "\in4.txt" For ? As #1 For i = 1 To 5 　　　　For j = 1 To 10 　　　　　　Input #1, a(i, j) 　　　　Next j Next i Close #1 End Sub Private Sub Command2_Click() For i = 1 To 5 　　　　s(i) = 0 　　　　For j = 1 To 10 ’　s(i) = ? 　　　　Next j ’　？ = CInt(s(i) / 10) 　　　　Text1(i - 1) = s(i) Next i End Sub Private Sub Command3_Click() For k = 1 To 5 　　　　Shape1(k - 1)．Height = s(k) * 20 　　　　m = Line2.Y1 ’　Shape1(k - 1)．Top = ? - Shape1(k - 1)．Height ’　Shape1(k - 1)．? = True Next k End Sub 程序结束 参考答案 第1个？处填入：Input 第2个？处填入：s(i) + a(i, j) 第3个？处填入：s(i) 第4个？处填入：Line2.Y2 第5个？处填入：Visible 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/I6Hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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