Question

求帮忙编写一个VB if-then 程序!

Answer 1

Private Sub btnstart_Click()

'按要求写了If-Then语句,不过个人认为Select-Case比较适合这个.

If Me.txbplanet.Text = "Jupiter" Then

'Format格式化结果,保留2位小数.

Me.lbltime.Caption = "光从太阳到金星的时间为：" & Format((1800000000 / 186282) / 60, "##.##") & "分钟"

ElseIf Me.txbplanet.Text = "Saturn" Then

Me.lbltime.Caption = "光从太阳到木星的时间为：" & Format((480000000 / 186282) / 60, "##.##") & "分钟"

ElseIf Me.txbplanet.Text = "Venus" Then

Me.lbltime.Caption = "光从太阳到土星的时间为：" & Format((900000000 / 186282) / 60, "##.##") & "分钟"

ElseIf Me.txbplanet.Text = "Neptune" Then

Me.lbltime.Caption = "光从太阳到海王星的时间为：" & Format((2800000000# / 186282) / 60, "##.##") & "分钟"

Else

MsgBox "请输入正确信息!", 64, "提示"

End If

End Sub

希望能帮到你.