vb练习题，只要程序代码不要窗体，大神们帮帮忙( •ิ_• ิ)
展开全部
Private Sub Command1_Click()
Dim time As Integer
Dim price As Single
time = Text1.Text
If time < 10 Then
price = 30
ElseIf time >= 10 And time < 50 Then
price = 2.5 * time
ElseIf time >= 50 Then
price = 2 * time
If price >= 150 Then
price = 150
End If
End If
Label1.Caption = price
End Sub
画一个command1，一个text1和一个label1
Dim time As Integer
Dim price As Single
time = Text1.Text
If time < 10 Then
price = 30
ElseIf time >= 10 And time < 50 Then
price = 2.5 * time
ElseIf time >= 50 Then
price = 2 * time
If price >= 150 Then
price = 150
End If
End If
Label1.Caption = price
End Sub
画一个command1，一个text1和一个label1
更多追问追答
追问
谢谢啦^_^
追答
求采纳 @ vvvvvv@
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
