vb制作角度单位换算.docVIP

下面我简单写了一个例子，你看一看是否符合你的条件 请在窗体上放上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 Sub 分享给你的朋友吧： i贴吧 新浪微博 腾讯微博 QQ空间 人人网 豆瓣 MSN 对我有帮助 7 回答时间：2009-1-5 20:51 | 我来评论 向TA求助 回答者： skygress2 | 四级 擅长领域： 电脑/网络 游戏 VB 参加的活动： 暂时没有参加的活动 提问者对于答案的评价： 谢谢 一并感谢诸位 hoyogoo 兄 有些单位关系不一定是10的倍数 2008-12-10 帮忙用VB编一单位换算的小程序 2009-4-10 求一个VB编写的单位换算小程序 2007-9-30 VB中的单位换算！ 2010-1-19 用casio计算器角度单位换算方法 3 2009-6-3 如何添加单位换算器到word的工具栏里？？？ 1 查看同主题问题： 单位换算 制作 0回答519．Private Sub Form_Click() Dim a As Integer Static b As Integer... 0回答vb6.0怎么添加msflexgrid 0回答20谁有vb写的GSM程序，请帮忙传一份。谢谢。mail haitao.wang@deltaww.c... 0回答5VB 获取一个窗体上子控件上按钮的句柄，窗体上有三个无标题类名相同的... 0回答“信息科技考试单机训练”里面如何运行VB环境？ 1回答5vb中 如何将一个窗体里的text1 到text6里面的内容写入记事本···· 0回答10vb的结业报告怎么写呢？ 1回答VB问题，如何显示缩略图？ 更多等待您来回答的问题 其他回答 共5条 呵呵 用组合框啊 可以输入 也可以选择单位 回答者： lijinfeng042 | 六级 | 2009-1-5 19:02 如果你要求用按钮，那就用数组控件，没什么的，你很棒。 回答者： 好人1号 | 三级 | 2009-1-5 19:09 还是用数组，但你具体的要求我没看明白。你可以把具体要求发到我邮箱里： lzbwl@163.com 回答者： 比贾闯懂球 | 二级 | 2009-1-5 19:34 我只用了2个textbox,2个combox，即可实现你所说的功能。 把下面代码保存为Form1.frm,然后双击此文件打开源代码，运行即可。如果你想增加其他长度单位，请在说明处增加即可。 VER