本帖最后由 LTSC1809 于 2023-6-3 17:03 编辑
没啥好说的,上代码,如果有好的建议请跟帖,另外如果有人能帮忙写成hta那就太好了(注意要求,我也会写hta,但是我要求选择从华氏度到摄氏度还是摄氏度到华氏度以及帮助做成三个按钮,然后输入框和运行结果的矿不要弹出,直接在页面上创建文本框和文字,因为我不会js,所以判断按钮按下然后运行指定的vbs脚本这个我不会,js一点也看不懂,但是hta有些地方只能js,很无奈):- Function C_F(input)
- Dim output
- input=CDbl(input)
- output=32+input*1.8
- C_F=output
- End Function
- Function F_C(input)
- Dim output
- input=CDbl(input)
- output=(input-32)/1.8
- F_C=output
- End Function
- Dim inbox
- inbox=InputBox("输入CF来使用摄氏度到华氏度转换"&vbcrlf&"输入FC来使用华氏度到摄氏度转换"&vbcrlf&"输入“help”来查看帮助:","华氏度和摄氏度转换器")
- If inbox="CF" Then
- Dim incf,outcf
- incf=InputBox("输入摄氏度:","摄氏度到华氏度")
- outcf=C_F(incf)
- MsgBox incf&"℃="&outcf&"℉",vbokonly,"输出"
- ElseIf inbox="FC" Then
- Dim incf2,outcf2
- incf2=InputBox("输入华氏度:","华氏度到摄氏度")
- outcf2=F_C(incf2)
- MsgBox incf2&"℉="&outcf2&"℃"
- ElseIf inbox="help" Then
- MsgBox "华氏度和摄氏度换算公式:"&vbcrlf&"华氏度=32+摄氏度×1.8"&vbcrlf&"摄氏度=(华氏度-32)÷1.8"&vbclrf&"如果你觉得工具好用的话,去b站给LTSC1809点个赞吧",vbokonly,"help"
- Else
- MsgBox "无效输入",vbokonly,"Error"
- End If
复制代码
|