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

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

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

    (2)在考生文件央下有一个工程文件sjt4．vbp，文件in4．txt中有5组数据，每组10个，依次代表10个人语文、英语、数学、物理、化学这5门课程的成绩。程序运行时，单击“读入数据”按钮，可以从文件in4．txt中读入数据放到数组a中。单击“计算”按钮，则计算5门课程的平均分(平均分取整)，并依次放入Text1文本框数组中。单击“显示图形”按钮，则显示平均分的图表，如图所示。窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。
    注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案步骤1：打开本题工程文件，设置Cmd2的Enabled属性为False。 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 Private Sub Cmdl Click() Text1 (0)=Str(Time())’当单击"通话开始"按钮时，则将当前时间显示 Textl(1)．Text=""：Textl(2)．Text="" Cmd1．Enabled=False Cmd2．Enabled=True End Sub Private Sub Cmd2 C1ick() Textl(1)．Text=Str(Time())’当单击"通话结束"按缸则显示当前时间 t start=Hour(Textl(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 m0 Then’如果通话在3分钟以上 s=s+(m－3)*0．15’计算通话赍用 End If Textl(2)．Text=Str(S)+"元" Cmd1．Enabled=True ’使Cmdl可用 Cmd2．Enabled=False’Cmd2不可用 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 Dim a(5，10)As Integer Dim s(5) Private Sub Commandl C1ick() Open app．Path＆"＼in4．txt"For Tnput As #1 ’时文件进行读操作 For i=1 To 5 For j=1 To 10 Input#1，a(i，j)’依次将文件中的数据读入教组a中 Next j Next i Close #1 End Sub Private Sub Command2click() For i=1 To 5 S(i)=0 For j=1 To 10 s(i)=S(i)＋a(i,j)将10个人的各科成绩累加并存入S Next j S(j)=CInt(s(i)／10)’求平均值并取整 Text1(i－1)：s(i)’依次显示各科成绩 Next i End Sub Private Sub Command3_Click() For k=1 To 5’依次绘图并显示 Shapel(k－1)．Height=S(k)*20 m=Line2．Y1 Shape1(k－1)．Top=Line2．Y2Shape1(k－1)．Height Shape1(k－1)．Visible=True 设置图形可见 Next k End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 (1)单击“通话开始”按钮，通过Str(Time())语句在“开始时间”右侧的文本框中显示开始时间，即系统的当前时间，且“通话结束”命令按钮的Enabled属性设置为True，变为可用状态，“通话开始”命令按钮的Enabled属性设置为False，变为不可用。
    单击“通话结束”按钮，通过Str(Time())语句在“结束时间”右侧的文本框中显示结束时间，即系统的当前时间，同时把系统时间通过Minute()函数、Hour()函数和Second()函数换算成以秒为时间单位，计算通话费用，并将其显示在“通话费用”右侧的文本框中，“通话开始”命令按钮变为可用状态，“通话结束”命令按钮不可用。
    (2)单击“读入数据”按钮，运用文件操作和For循环语句从文件in4．txt中读入数据放到二维数组a中。在Command2_Click事件过程，计算5门课程的平均分，通过CInt()甬数对平均分取整，存人数组s(i)，并依次放入Text1文本框数组中。在Command3_Click事件过程中，通过形状控件的Height、Top属性和线条的Y1属性，画出直方图，并通过设置形状控件的Visible属性使平均分的直方图显示出来。
转载请注明原文地址:https://kaotiyun.com/show/nhHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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