(1)在考生文件央下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。稗序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当

admin2016-09-06  27

问题 (1)在考生文件央下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。稗序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当的控什的属性,并去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但小能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。

    (2)已知出租乍行驶不超过4公里时一律收费10元。超过4公里时分段处理,具体处理方式为:15公里以内每公里加收1.2元,15公里以上每公里收1.8元。
    在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击“输入”按钮,将弹出一个输入对话框,接收出租车行驶的里程数;单击“计算”按钮,则可根据输入的里程数计算应付的出租车费,并将计算结果在名称为Text1的文本框内显示。
    在窗体文件中已经给出了全部控件(如图所示),但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
    注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。

选项

答案(1)【操作步骤】 步骤1:打开本题工程文件,设置计时器Interval属性为1000.Enabled属性设置为False。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Private Sub C1_C1ick(Index As Integer) Select Case Index’通过控件下标确定单击哪一个按钮 Case 1 Timer1.Enabled=False Case 0’控制下标从0开始,此处应为0 Timer1.Enabled=True End Select End Sub Private Sub Timer1 Timer() Text1.Text=Text1.Text+1’Text1中的内容加1显示 End Sub 步骤3:凋试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打丌本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Dim s As Integer Private Sub Command1_Click() s=Val(InputBox("输入里程数(单位:公里)"))’s用于存储里程教 End Sub Private Sub Command2_Click() If s>0 Then Select Case s’对s进行判断 Case Is<=4 f=10’根据题意s<=4时f=10 Case Is<=15 f=10+(s-4)*1.2’同理 Case Is>15 f=10+11*1.2+(s-15)*1.8’同理 End Select Text1.Text=f’在Text1中显示结果 Else MsgBox"请单击"输入"按钮输入里程数!" End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存柱。

解析
转载请注明原文地址:https://kaotiyun.com/show/WZLp777K
0

最新回复(0)