作业帮 > 综合 > 作业

(解析算法)作业1:出租车计价器

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/06 09:01:54
(解析算法)作业1:出租车计价器
如果在4公里以内为10元,超过4公里每公里为2元;等待时间在5分钟以内不计费,超出5分钟的每5分钟为1公里计费.
(枚举算法)作业2:今有鸡兔同笼,上有三十五头,下有九十四足,问鸡兔各几何?
(解析算法)作业1:出租车计价器
作业1:出租车计价器:
做三个文本框:里程(公里)、等待时间(分钟)、车费(元)根据需要可再加三个标签补充说明.一个“计算”按钮的代码:Private Sub Command1_Click()s = Val(Text1.Text)t = Val(Text2.Text)If t > 5 Then s = s + (t - 5) / 5If s < 4 Then y = 10 Else y = 10 + 2 * (s - 4)Text3.Text = Format(y, "0.00")End Sub
作业2:Private Sub Command1_Click()  h = 35: f = 94  For j = 1 To h    t = h - j    If 2 * j + 4 * t = f Then Print "Ji:"; j, "Tu:"; t  Next jEnd Sub