Question

Vb的问题快快快快

我在窗体上建了command1和2text1和2。我想点一下按钮1在text1产生10000到99999的随机数按钮1的enable=false，在text2的框框里输入那段数，如果正确，form2.show错误，UNload me

Answer 1

private sub command1_click()
randomize
text1.text=int(rnd*90000)+10000
command1.enabled=false
end sub

private sub command2_click()
if text2.text=text1.text then form2.show
unload me
end sub

Answer 2

Private Sub Command1_Click()
Randomize
Text1.Text = Int(Rnd*90000+10000)
Command1.Enable = False
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
If Text2.Text = Text1.Text Then
Msgbox "错误"
Unload Me
End If
End If
End Sub