来看一道很简单的VB题

来源：百度知道 编辑：UC知道 时间：2024/05/28 14:16:37
我要使text1.text等于text2.text或2468 里的随便一个数。
怎么写代码呀？好急呀，各位高手帮帮忙啦！

你要的程序代码来了,既精简又实现了你要的功能!!!自己已经验证OK!!!

Private Sub Text2_KeyPress(KeyAscii As Integer)
If InStr(Text1.Text, Chr(KeyAscii)) = 0 And InStr("2468", Chr(KeyAscii)) = 0 Then
MsgBox "输入错误!",48,"提示"
KeyAscii = 0
Beep
End If
End Sub

这是在text2中输入时的代码,你可以移到其他事件中,也可以把里面的msgbox取掉!!!以后共同学习!!!

text1.text=text2.text

text1.text=text2.text
or
text1.text=2

判断:
text1.text=text2.text or
text1.text=2 or
text1.text =4 or
text1.text =6 or
text1.text= 8

附值:
text1.text=text2.text
text1.text=int(rnd()*4+1)*2