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

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/05/17 09:29:01

求帮忙编写一个VB if-then 程序!
金星木星土星海王星 Jupiter,Saturn ,Venus ,Neptune
光从太阳到金星用161.5 分钟
用下列信息完成程序
木星距离太阳4.8亿英里
土星距离太阳9亿英里
金星距离太阳18亿英里
海王星距离太阳28亿英里
光速每秒186282英里
时间（以秒为单位）等于路程除以186282
计算光到每个星球的时间,答案要求以分钟为单位
输入数据（INPUT DATA）：每个星球的数值
一个textbox（txbplanet）一个lable（lbltime）一个按钮（btnstart）

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

希望能帮到你.

求帮忙编写一个VB if-then 程序! vb编写一个用于求随机数的程序用vb编写一个用于求随机数的程序, 求用vb编写下面的程序编写一个计算个人所得税的程序（用VB编写）编写一个vb程序,输入两个正整数,求他们的最大公约数和最小公倍数,谢谢! 编写一个按月收入额计算个人收入调节税的程序计算方法如下{If…Then…ElseIf 结构} VB语言编写一个程序 do while 或 for next 求编写一个matlab程序 VB编写程序：已知abc三个数,使数字从大到小排列,用一个if语句和一个嵌套的if语句如何实现啊啊啊啊 VB编写三角函数的程序帮忙编写一个c语言程序,