求帮忙编写一个VB if-then 程序!金星 木星 土星 海王星 Jupiter,Saturn ,Venus ,Neptune光从太阳到金星用161.5 分钟用下列信息完成程序木星距离太阳4.8亿英里土星距离太阳9亿英里金星距离太阳18亿英里

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/05 23:46:32

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

求帮忙编写一个VB if-then 程序!金星 木星 土星 海王星 Jupiter,Saturn ,Venus ,Neptune光从太阳到金星用161.5 分钟用下列信息完成程序木星距离太阳4.8亿英里土星距离太阳9亿英里金星距离太阳18亿英里
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 程序!金星 木星 土星 海王星 Jupiter,Saturn ,Venus ,Neptune光从太阳到金星用161.5 分钟用下列信息完成程序木星距离太阳4.8亿英里土星距离太阳9亿英里金星距离太阳18亿英里 编写一个vb程序,输入两个正整数,求他们的最大公约数和最小公倍数,谢谢! 用VB编写一个至少30句的程序 VB编写程序：已知abc三个数,使数字从大到小排列,用一个if语句和一个嵌套的if语句如何实现啊啊啊啊急啊. 编写一个程序,输入两个整数a,b,判断a能否被b整除 （用基本语言回答）输入.....IF.....THEN ...........END IF输出... 编写一个程序,求回文数. 用VB编写一个程序,求一个不超过5位的十进制整数各位数值的和（例如,输入2634,输出15）. 编写一个求3个数中最大值和最小值的VB程序,然后用这个过程分别求5个数和7个数的最大最小值. 用VB编写一个解一元二次方程 AX2+BX+C=0的程序 编写程序,判断一个正整数（>=3)是否为素数是VB题, 如何设计用vb语言编写一个程序,输入三个数,输出其中的最大数 用VB编写一个判断两个正整数的最大公因数的程序怎么写啊? vb例题：任意输入一个整数,编写程序判断该整数的奇偶数 编写一个函数过程,判断已知数m是否为完数.完数vb程序 编写VB程序,求满足三位数中的各个数位之和大于13的数的个数. VB：斐波那契数列第一项是1,第二项是1,用递归算法编写一个程序,求数列前N项的和 VB程序,编写一个用辗转相除法,求俩自然数m、n的最大公约数和最小公倍数.用DO……LOOP循环语句 编写求一个整数的各位数的乘积的vb程序如234的各位乘积为2*3*4=24