VB题，将摄氏温度转化为华氏温度
答案:2 悬赏:30
解决时间 2021-03-16 08:49
- 提问者网友：萌萌小主
- 2021-03-15 17:55
程序运行后，弹出一个对话框拥有接收输入的摄氏温度值，确定输入后再弹出的消息框中显示转换后的华氏温度值
最佳答案
- 二级知识专家网友：堕落奶泡
- 2021-03-15 19:27
Private Sub Command1_Click()
str1$ = InputBox("请输入要转化的摄氏温度：", "输入", 100)
If IsNumeric(str1$) Then
MsgBox "摄氏温度 " & str1$ & " 转化为华氏温度为 " & 1.8 * Val(str1$) + 32, vbOKOnly, "输出"
End If
End Sub
str1$ = InputBox("请输入要转化的摄氏温度：", "输入", 100)
If IsNumeric(str1$) Then
MsgBox "摄氏温度 " & str1$ & " 转化为华氏温度为 " & 1.8 * Val(str1$) + 32, vbOKOnly, "输出"
End If
End Sub
全部回答
- 1楼网友：如果这是命
- 2021-03-15 21:05
text1.text =（val(text2.text) - 32）*（5 / 9）
text1是摄氏度，text2是华氏度，反过来是
text2.text = val(text1.text) * 9 / 5 + 32
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯
| • 手机登qq时，显示手机磁盘不足，清理后重新登 |
| • 刺客的套装怎么选啊？ |