(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个名称为Labell的控件数组,含三个标签,标题分别是“开始时间”、“结束时间”和“通话费用”;有一个名称为Textl的控件数组,含三个初始值为空的文本框;此外还有两个名称分别为Cmdl和Cm

admin2010-09-02  13

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

(2)在考生文件夹下有一个工程文件sjt4.vbp,文件in4.txt中有5组数据,每组10个,依次代表语文、英语、数学、物理、化学这5门课程10个人的成绩。程序运行时,单击“读入数据”按钮,可从文件m4.mr中读入数据放到数组a中。单击“计算”按钮,则计算5门课程的平均分(平均分取整),并依次放入Textl文本框数组中。单击“显示图形”按钮,则显示平均分的直方图,如图1-74所示。窗体文件中已经有了全部控件,但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

选项

答案第1小题 【操作步骤】 步骤l:打开考生文件下的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Textl(0).text=Str(Time()) s=s+ (m-3) *0.15 Cmdl.Enabled=True Cmd2.Enabled=False 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤l:打开考生文件下的本题工程文件sjt4.vbp。在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Open App.Path&"\in4.txt"For Input As#1 s(i) =s(i) +a(i,j) 8(i)=CInt(s(i)/10) Shapel(k-1).Top=m-Shapel(k-1).- Height Shape1.(k-1).Visible=True 步骤2:按要求将文件保存至考生文件夹中。

解析 第1小题
    Enabled属性用于设置控件或菜单项在程序运行时是否有效,值为True时表示有效,值为False时表示无效(显示为灰色)。
    题目要求在单击“通话开始”按钮时,在“开始时间”右侧的文本框中显示开始时间,故Cmdl Click事件过程中的?处应改为:Textl(0).text。
    在单击“通话结束”按钮时,先计算通话时长,再计算通话费用。若通话时长在3分钟以上,则通话费用为:s+(m-3)*0.15。设置Cmdl的.Enabled属性值为True,将使“通话开始”命令按钮变为可用,设置Cmd2的Enabled属性值为Fasle,将使“通话结束”命令按钮不可用。
第2小题
    “读入数据”按钮的单击事件过程中,Open语句用于打开数据文件以读入数据,故?应改为:Input。“计算”按钮的单击事件过程中,原程序用嵌套For循环来计算5门课程的平均分,其中内循环体中变量s(i)用于统计:某课程的总分,表达式为:s(i)=s(i)+a(i,j),外循环体中变量s(i)的最终值应为某课程的平均分。“显示图形”按钮单击事件过程的For循环中,根据每门课程的平均分,先计算出对应直方图的高度,然后计算该直方图的Top属性值(应为水平直线的Y1(或Y2)属性值减去直方图的高度),最后显示该直方图(通过设置其Visible实现)。
转载请注明原文地址:https://kaotiyun.com/show/mFmp777K
0

最新回复(0)