轉換溫度2010
轉換溫度2010
stty0910 周一 9月 13, 2010 10:20 am
Dim trantemp As Single
If RadioButton1.Checked = True Then
trantemp = (Val(TextBox1.Text) - 32) * 5 / 9
Else
trantemp = Val(TextBox1.Text) * 9 / 5 + 32
End If
Label2.Text = trantemp.ToString & "度"
If RadioButton1.Checked = True Then
trantemp = (Val(TextBox1.Text) - 32) * 5 / 9
Else
trantemp = Val(TextBox1.Text) * 9 / 5 + 32
End If
Label2.Text = trantemp.ToString & "度"
stty0910- 終極管理員
- 文章數 : 68
注冊日期 : 2010-08-06
年齡 : 30
來自 : 地球某個角落 -
這個論壇的權限：
您 無法 在這個版面回復文章