解释VB代码.(我是初学者请各位
窗体一
Private Sub Command1_Click()
[解]Command1点击事件过程开始
If Text1。Text <> "" Then
[解]如果Text1控件的Text属性值不等于空字符时,则:
Text2。 Text = 9 / 5 * Text1。Text + 32
[解]Text2控件的Text属性值等于9 / 5 * Text1。Text + 32
End If
[解]判断语句结束
End Sub
[解]Command1点击事件过程结束
Private Sub Command2_Click()
[解]Command2点击事件过程开始
If Text2。 T...全部
窗体一
Private Sub Command1_Click()
[解]Command1点击事件过程开始
If Text1。Text <> "" Then
[解]如果Text1控件的Text属性值不等于空字符时,则:
Text2。
Text = 9 / 5 * Text1。Text + 32
[解]Text2控件的Text属性值等于9 / 5 * Text1。Text + 32
End If
[解]判断语句结束
End Sub
[解]Command1点击事件过程结束
Private Sub Command2_Click()
[解]Command2点击事件过程开始
If Text2。
Text <> "" Then
[解]如果Text2控件的Text的属性值不等于空字符时,则
Text1。Text = (Text2。Text - 32) * 5 / 9
[解]Text1控件的Text属性值等于(Text2。
Text - 32) * 5 / 9
End If
[解]判断语句结束
End Sub
[解]Command2点击事件过程结束
Private Sub Command3_Click()
[解]Command2点击事件过程开始
Form2。
Show
[解]窗口Form2显示
End Sub
[解]Command2点击事件过程结束
窗体二:
Private Sub Command1_Click()
[解]Command1点击事件过程开始
End
[解]关闭窗体From2
End Sub
[解]Command1点击事件过程结束
Private Sub Text1_KeyPress(KeyAscii As Integer)
[解]Text1控件键盘按下事件过程开始
If KeyAscii = 13 Then
[解]如果参数KeyAscii的值等于13时,则
Text2。
Text = 9 / 5 * Text1。Text + 32
[解]Text2控件的Text属性值等于9 / 5 * Text1。Text + 32
End If
[解]判断语句结束
End Sub
[解]Text1控件键盘按下事件过程结束
Private Sub Text2_KeyPress(KeyAscii As Integer)
[解]Text2控件键盘按下事件过程开始
If KeyAscii = 13 Then
[解]如果参数KeyAscii的值等于13时,则
Text1。
Text = (Text2。Text - 32) * 5 / 9
[解]Text1控件的Text属性值等于(Text2。Text - 32) * 5 / 9
End If
[解]判断语句结束
End Sub
[解]Text2控件键盘按下事件过程结束。
收起