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

admin2020-06-30  33

问题 (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://jikaoti.com/ti/bOS0FFFM
0

最新回复(0)