求助大神、求一个基础VB代码

晕死 有计算公式 调用函数即可 分分钟的事啊

Dim Cval# '变量定义
Private Sub Command1_Click()
Cval = C2F(Text1.Text) '输入摄氏温度，调用副程序C2F 返回华氏计算值 赋值给变量 Cval
MsgBox Format(Cval, "0.0") '弹框显示计算结果 并使用Format函数保留一位小数
End Sub
Function C2F(Tstr$) As Single '摄氏转换华氏的副程序 Tstr是按钮点击时导入的参数Text1.text
C2F = Val(Tstr) * 9 / 5 + 32 '计算后返回
End Function

你看看这个代码 画葫芦会吧？ 不会的话 Q我吧138449666 免费帮你写 把公式给我即可 懒得百度 哈哈