问答题
完成下列问题：
问答题
在考生文件夹下有一个工程文件sjt3.vbp，在Form1的窗体中有1个文本框、2个命令按钮和1个计时器。程序的功能是在运行时，单击“开始计数”按钮，就开始计数，每隔1s，文本框中的数加1；单击“停止计数”按钮，则停止计数(如图3所示)。
[*]
要求：修改适当的控件的属性，在程序中的横线处填写正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。
[题目提供的源程序]
Private Sub C1_Click(Index As Integer)
Select Case (1)
Case 1
Timer1.Enabled=False
Case (2)
Timer1.Enabled=True
End Select
End Sub
Private Sub Timer1_Timer()
Text1.Text=Text1.Text (3)
End Sub
[*]
要求：修改适当的控件的属性，在程序中的横线处填写正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。
[题目提供的源程序]
Private Sub C1_Click(Index As Integer)
Select Case (1)
Case 1
Timer1.Enabled=False
Case (2)
Timer1.Enabled=True
End Select
End Sub
Private Sub Timer1_Timer()
Text1.Text=Text1.Text (3)
End Sub
【正确答案】[操作步骤]
第1步：打开工程文件sjt3.vbp。
第2步：分析并修改程序。
第3步：调试、运行并保存程序。
[1]Index [2]0 [3]+1
第1步：打开工程文件sjt3.vbp。
第2步：分析并修改程序。
第3步：调试、运行并保存程序。
[1]Index [2]0 [3]+1
【答案解析】[解析] 只要计时器按照1秒的时间间隔触发Timer事件，并在每次Timer事件中使文本框中的内容增加1就实现了题目要求的功能。文本框的内容增加1可用语句Text1=Text1+1实现。要让计时器按照1 s的时间间隔触发Timer事件，计时器的Interval属性应设置为1000(ms)。计时器不停地触发Timer事件，必须同时满足计时器的Interval属性大于0和Enabled属性为真两个条件。从题目源程序可以看出“开始计数”和“停止计数”按钮正是通过控制计时器的Enabled属性来达到计数和停止计数的作用。具体实现时，程序中“开始计数”按钮和“停止计数”按钮是一个命令按钮数组，根据Index参数判断当前被单击的按钮。
问答题
已知出租车行驶不超过4km时一律收费10元。超过4km时分段处理，具体处理方式为：15km以内每公里加收1.2元，15km以上每公里收1.8元。
在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击“计算”按钮，则根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。
在窗体文件中已经给出了全部控件(如图4所示)，但程序不完整，在程序中的横线处填写正确的内容。
[*]
注意：不得修改已经存在的内容和控件属性。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Dim s As Integer
Private Sub Command1_Click()
s=Val(InputBox("输入里程数(单位:km)"))
End Sub
Private Sub Command2_Click()
If s＞0 Then
'Select Case (1)
Case Is＜=4
' (2)
Case Is＜=15
f=10+ (3)
Case Is＞15
f=10+ (4) +(s-15)*1.8
End Select
Text1.Text=f
Else
MsgBox "请单击"输入"按钮输入里程数!"
End If
End Sub
在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击“计算”按钮，则根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。
在窗体文件中已经给出了全部控件(如图4所示)，但程序不完整，在程序中的横线处填写正确的内容。
[*]
注意：不得修改已经存在的内容和控件属性。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Dim s As Integer
Private Sub Command1_Click()
s=Val(InputBox("输入里程数(单位:km)"))
End Sub
Private Sub Command2_Click()
If s＞0 Then
'Select Case (1)
Case Is＜=4
' (2)
Case Is＜=15
f=10+ (3)
Case Is＞15
f=10+ (4) +(s-15)*1.8
End Select
Text1.Text=f
Else
MsgBox "请单击"输入"按钮输入里程数!"
End If
End Sub
【正确答案】[操作步骤]
第1步：打开工程文件sjt4.vbp。
第2步：分析并修改程序。其中Command2_Click()修改后结果如下：
第3步：调试、运行并保存程序。
[1]s [2]f=10 [3](s-4)*1.2 [4](s-4)*1.2
第1步：打开工程文件sjt4.vbp。
第2步：分析并修改程序。其中Command2_Click()修改后结果如下：
第3步：调试、运行并保存程序。
[1]s [2]f=10 [3](s-4)*1.2 [4](s-4)*1.2
【答案解析】[解析] 程序中在“输入”按钮的单击事件里将里程数存放到变量s中。在“计算”按钮的单击事件里首先判断s＞0这一条件，如果s＞0说明已输入了里程数，可以计算出租车费。计算时采用Select Case语句根据里程数来处理3个分支，当然判断表达式就应该是s。再根据已有程序可以看出存放出租车的变量为f，所以里程小于或等于4时，出租车费为f=10；超过4km并在15km内的出租车费为f=10+(s-4)*1.2；15km以上的出租车费为：f=10+(s-4)*1.2+(s-15)*1.8。