作业帮 > 综合 > 作业

如何用vb 制作一个单位换算器呢?

来源：学生作业帮 编辑：搜搜考试网作业帮 分类：综合作业 时间：2024/04/29 03:15:39
如何用vb 制作一个单位换算器呢?
想用VB做一个单位换算器,比如长度单位换算器,有19个长度单位,应该怎么写代码能方便一些那?我用了19个text控件,每个单位都要写于其它单位的关系来 烦死了 请问能不能以某个单位为基准,少些一些代码那?
VB新手 如有小白 请勿见笑
主要是这些单位之间的关系该怎么表示清楚
如何用vb 制作一个单位换算器呢?
我大概明白楼主的意思了,不知道对不对!
楼主好像是需要把19个长度单位一一写入关系,然后换算,按照排列组合的原理,代码数量应该是惊人的.
其实编程没有这么麻烦,不多的代码就搞定了!
下面我简单写了一个例子,你看一看是否符合你的条件
请在窗体上放上text1(0),text1(1),combo1(0),combo1(1),command1 这样几个控件
Dim biaozhun(1) As Single,bianliang(1) As Single
Private Sub Combo1_Click(Index As Integer)
Select Case Combo1(Index).Text
Case "千米"
biaozhun(Index) = 1000
Case "百米"
biaozhun(Index) = 100
Case "十米"
biaozhun(Index) = 10
Case "米"
biaozhun(Index) = 1
Case "分米"
biaozhun(Index) = 0.1
Case "厘米"
biaozhun(Index) = 0.01
Case "毫米"
biaozhun(Index) = 0.001
Case Else
MsgBox "单位符号错误",vbOKOnly,"警告"
Combo1(Index).ListIndex = 3
End Select
End Sub
Private Sub Command1_Click()
If IsNumeric(Text1(0).Text) = False Then MsgBox "请输入数字!",vbOKOnly,"警告":Exit Sub
bianliang(0) = Val(Text1(0).Text)
bianliang(1) = bianliang(0) * biaozhun(0) / biaozhun(1)
Text1(1).Text = Trim(Str(bianliang(1)))
MsgBox "换算成功",vbOKOnly,"恭喜"
End Sub
Private Sub Form_Load()
For i = 0 To 1
Combo1(i).AddItem "千米"
Combo1(i).AddItem "百米"
Combo1(i).AddItem "十米"
Combo1(i).AddItem "米"
Combo1(i).AddItem "分米"
Combo1(i).AddItem "厘米"
Combo1(i).AddItem "毫米"
Combo1(i).ListIndex = 3
Next i
End Su
如何用VB制作随机数程序 如何用分数表示单位换算的结果 如何用VB来制作一个解一元一次方程的程序,界面已有（如下图）,只求代码!如：4x+1=5 x=? 如何用Authorware制作一个语文课件 求助高手一个三角函数公式,如何用VB写出来? 如何用VB随机取一个整数(无范围)? 家庭如何制作豆腐呢?如何用黄豆浆制作豆腐呢? 如何用最简单的材料制作一个弹簧秤? 如何用8050三极管制作一个简易逆变器 如何用橡皮筋制作一个简易的测力计 如何用一张长方形的纸制作一个小盒子? 如何用滑轮和轮轴制作一个简单机械