Question

vb试题求解

程序的功能为;为本框text1和text2中输入两个正整数a和b，单机命令按钮，则弹出消息框提示用户。要求消息框中有'是“和'否”两个按钮，提示内容为：“输入数据正确吗”如果用户单机“是”，计算a+b之值在text3之显示，如果用户单机“否”，则在text1中聚焦 补充完整程序

Private Sub Command1_Click()
Dim a As Integer, b As Integer
'**********found*************' '请不要删除该行'
If ___(1)___("数据正确吗?" , vbYesNo) = vbYes Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Else
'**********found*************' '请不要删除该行'
___(2)___
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub

Answer 1

Private Sub Command1_Click()
Dim a As Integer, b As Integer
'**********found*************' '请不要删除该行'
If MsgBox("数据正确吗?", vbYesNo) = vbYes Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Else
'**********found*************' '请不要删除该行'
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub

Answer 2

Dim a As Integer, b As Integer
'**********found*************' '请不要删除该行'
If MsgBox("数据正确吗?", vbYesNo) = vbYes Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Else
'**********found*************' '请不要删除该行'
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If

Answer 3

Private Sub Command1_Click()
Dim a As Integer, b As Integer
If MsgBox("数据正确吗?", vbYesNo) = vbYes Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Else
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub