UC知道VB 难题请教高手
来源：百度知道 编辑：UC知道 时间：2024/05/31 18:45:05
怎么使文本框text1中输入随机的4位数字，点击确定，然后如果与已经存在的某个数据如果吻合就显示存在，否则显示不存在。。。比如说一个数字的时候可以这么写：
Private Sub Command1_Click()
If Text1.Text = "4567" Then
Command1.Caption = "存在"
Else
Command1.Caption = "不存在"
End If
End Sub
但是初学不知道很多数字比如说100个的时候怎么去实现这种效果呢。。不知道怎么表示。。。本来是菜鸟，请高手举枪暴打！！谢谢追加追加
Private Sub Command1_Click()
If Text1.Text = "4567" Then
Command1.Caption = "存在"
Else
Command1.Caption = "不存在"
End If
End Sub
但是初学不知道很多数字比如说100个的时候怎么去实现这种效果呢。。不知道怎么表示。。。本来是菜鸟，请高手举枪暴打！！谢谢追加追加
private sub command1_click()
dim sz(99) as string,i as long
'...省略你给数组赋值的过程。类似：sz(0)="6548":sz(1)="4567"...等等
for i=0 to 99
if trim(text1.text) =trim(sz(i)) then
command1.caption="存在"
exit sub
end if
next i
command1.caption="不存在"
end sub
随手写来，希望对你有用。
随机数 有随机数的生成函数 还可以确定所需要的数字的范围
你有好多个数需要存在数组里边
然后用 for循环来对比
所以你的问题可以分解为3个问题 你分别g.cn 搜索
vb 随机数
vb 数组
vb for
就可以找到你的答案了
你需要建立一个数组，把存在的数逐个赋值到数组中，然后把Text1中输入的随即数字与你数组里的数逐个进行比较。
某个数据 应该保存起来吧。建议保存在数据库里。
可以用循环啊FOR 那个