VB编程题目 求教!!!

来源：百度知道 编辑：UC知道 时间：2024/05/12 20:12:03
两道很简单的题目
可惜上课睡觉了
没听
望大虾们指点下下

1.用CASE语句编写以下题目
出租车 3公里下7元 3到10公里 7+每公里一元
10公里 再加10元

2.分别用do loop until 和 do while loop编写以下题目
求1到100的和

拜托了!!!!!!!!!!!!

Private Sub Command1_Click()
第一个
a = CDbl(Text1.Text)
Select Case a
Case Is < 3
MsgBox "需付7元钱!"
Case Is < 10
MsgBox "需付" & 7 + (a - 3) * 1 & "元钱!!"
Case Is >= 10
MsgBox "需付" & 17 + (a - 3) * 1 & "元钱!!!"
End Select
End Sub

2.1不过这个until这个我用的少
i = 1
a = 0
Do While i <= 100
a = a + i
i = i + 1
Loop
MsgBox a

a = 1
b = 0
Do Until a > 100
Dim check
check = True
b = b + a
a = a + 1
Loop
MsgBox b

这个还用讲啊？