新建工程,在FORM1加入一个文本框,一个命令按钮,把下面语句粘贴进去就可以了。Private Sub form_load() Text1.Text = "" End Sub Private Sub command1_click() On Error Resume Next Dim temp As Single, c As String temp = Val(Text1.Text) temp = 5 * (temp - 32) / 9 c = Format(temp, "0.00") MsgBox "华氏 " & Text1.Text & "转换为摄氏等于" & c End Sub
Text1.Text = ""
End Sub
Private Sub command1_click()
On Error Resume Next
Dim temp As Single, c As String
temp = Val(Text1.Text)
temp = 5 * (temp - 32) / 9
c = Format(temp, "0.00")
MsgBox "华氏 " & Text1.Text & "转换为摄氏等于" & c
End Sub
上CSDN不多,这是作业帖?不知道,希望这里面的版主不要封我,无意!
三边长为:a,b,c,令q=(a+b+c)/2, 则面积S=sqrt(q(q-a)(q-b)(q-c))
悲哀中~~
说过了,刚上CSDN不久,不知道具体该怎么去问问题,可能我的方法不对,但还是希望老朋友给点意见,你也不可能一开始什么都知道什么都会.再次重申,我不知道所谓作业帖,如有犯规纯属无意!!
再次鄙视WM_JAWIN!!