解释VB代码.(我是初学者请各位帮帮忙忙)万分谢谢!

窗体一
Private Sub Command1_Click()
If Text1.Text <> "" Then
Text2.Text = 9 / 5 * Text1.Text + 32
End If
End Sub

Private Sub Command2_Click()
If Text2.Text <> "" Then
Text1.Text = (Text2.Text - 32) * 5 / 9
End If
End Sub

Private Sub Command3_Click()
Form2.Show
End Sub

窗体二:
Private Sub Command1_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = 9 / 5 * Text1.Text + 32
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = (Text2.Text - 32) * 5 / 9
End If
End Sub

第1个回答  2008-03-18
有什么不懂的??提出来啊,不会是整个都不懂吧!!
第2个回答  2008-03-18
这个只要学过一点VB的都能看懂吧。。
相似回答