杭州交通信息网亚克力 真空镀:VB 小问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/27 18:00:42
实现 点击确定按钮后通过输入内容来达到换算单位功能
要求 使用 单选按钮
比如说 输入 1 选择单选按钮名称 英里
结果为 1.60935 千米。
输入 1 选择 英寸
结果为 2.54001厘米 这样的
要求 使用 单选按钮
比如说 输入 1 选择单选按钮名称 英里
结果为 1.60935 千米。
输入 1 选择 英寸
结果为 2.54001厘米 这样的
新建一个form。添加一个文本框；两个单选按钮；caption分别设置成“英里”和“英寸”；再添加一个label，一个按钮，caption为“换算”。
代码：
Private Sub Command1_Click()
If Option1.Value = True Then
Label1.Caption = Val(Text1.Text) * 1.60935 & "千米"
Else
Label1.Caption = Val(Text1.Text) * 2.54001 & "厘米"
End If
End Sub
你可以加我QQ564464412
因为我在这里实在表达不怎么清楚,在QQ上可以详细说,不是很麻烦的