VB作业题高手进~

来源：百度知道 编辑：UC知道 时间：2024/06/04 06:32:08
编写一个中英常用各单位转换程序，包括英寸—厘米；英尺—米；英里—公里；磅—公斤；摄氏度—华氏度。用户可以随意输入公制或英制的任意单位数值（可以输入小数），点击转换按钮程序可进行转换。如果用户输入了非法的数值，程序通过弹出对话框进行出错提示。

Private Sub Command1_Click()
Dim a As Double
Dim b As Double
b = Text1.Text
a = 10 * b(这是转换公式,我这里随便举个例子写的)
Label1.Caption = a
End Sub

这里b是公制单位a是转换后的单位输入b按公式转成a,b由用户输入.
比如把米转成厘米则:b是米单位,a是厘米单位,在文本框中输入10则点按钮后转换出a=1(这里的公式是a = b/10)

然后是判断用户输入的是否为数字:
If IsNumeric(Text1.Text) = flase Then
MsgBox "请输入一个数字"
End If

这段也是输入到按钮事件里.
公式你就自己去查了基本代码都打好了换公式就可以了如果要把很多转换放一起就多声请几个变量多拉几个文本框几个按钮.要是觉得麻烦可以联系我我给你编个简单的今天就打到这里了.