1．输入一个华氏温度，要求在窗体上输出其对应的摄氏温度值。（摄氏温度与华氏温度的转换公式为：C=5/9*(F-32),其中C代表摄氏温度，F代表华氏温度）。提示：整个代码放在Form_click 事件中，通过单击窗体来运行程序。 第一步：定义两个变量。 第二步：通过inputbox语句提示用户输入一个华氏温度。 第三步：利用华氏与摄氏温度的转换公式，把华氏变化成摄氏温度。 第四步：通过print语句在窗体上分别显示华氏温度和转换后的摄氏温度。2．计算圆的面积。(1) 单击窗体执行程序(2) 用inputbox函数输入圆的半径 (3) 用msgbox函数输出圆的面积3．计算三角形的面积。（1）要求用三个文本控件，其中两个用于输入三角形的底和高，其余一个用来输出三角形的面积；（2）要求用三个标签控件，用来显示提示语；（3）一个按钮控件，用来作为“求面积”的处理。
追问：太感谢啦～！！答案：第一题：
代码：
Private Sub Form_Click()
Dim f As Single, c As Single
f = Val(InputBox("请输入一个华氏温度:"))
c = 5 / 9 * (f - 32)
Print "对应的摄氏温度是"
Print c
End Sub
图：
第二题：
代码：
Private Sub Form_Click()
Dim pi As Double, r As Double, s As Double
pi = 3.1415926
r = Val(InputBox("请输入圆的半径:"))
s = pi * r ^ 2
MsgBox ("该圆的面积是:" + Str(s))
End Sub图：
第三题:
初始界面：
代码：
Private Sub Form_Initialize()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End SubPrivate Sub Command1_Click()
Dim di As Single, gao As Single, s As Single
di = Val(Text1.Text)
gao = Val(Text2.Text)
s = di * gao / 2
Text3.Text = Str(s)
End Sub图：
我用的是VS，如果不行可以加我QQ364145350，我再给你弄。1. Dim c As Double, f As Doublef = InputBox("请输入华氏温度：", "数据输入") c = 5 / 9 * (f - 32) Print(c)2.Dim s As Double, r As Double r= InputBox("请输入半径：", "数据输入") s = r * r * 3.141592 MsgBox("圆的面积为：" & s, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "结果") 3. txtmianji.text = Txtdi.Text * Txtgao.Text / 2
