Question

VB中的文本框内容对比

某窗体上有若干文本框，每个文本框应输入指定内容。求代码——若某一文本框中内容不是预设值（不同的文本框有不同的预设值）的话，单击command便会提示第几个输入错误。谢谢
一楼大哥，能不能帮我把代码写出来，如果我试验没错多加分。
二楼大哥，您的代码如果text其中一位错了，后面的即使没错它也算错诶。
那个循环好像不严密吧

Answer 1

1.首先，把这些文本框建立为控件数组
text(1),text(2),text(3),text(4),text(5)

2.然后，建立一个存储预设值的数组
并与上面的文本框一一对应
zhi(1),zhi(2),zhi(3),zhi(4),zhi(5)

3.用循环来检测每个文本框的值与预设是否相等
for i=1 to 5
if text(i).text <> zhi(i) then msgbox("第" & i & "个文本框输入错误")
next i

4.具体思路就是这样，可以自己适当增添其他代码.

Answer 2

Dim a As String 'a 是TEXT1的预设值

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To Len(Text1.Text)
If Left(a, i) <> Left(Text1.Text, i) Then MsgBox "第" & i & "位错误"
Next i
End Sub

Private Sub Form_Load()
a = "QWER"
End Sub
直接粘贴复制可用，增加其他TEXT 方法参考TEXT1的写法

SORRY 写错了
Dim a As String 'a 是TEXT1的预设值

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To Len(Text1.Text)
If Mid(a, i, 1) <> Mid(Text1.Text, i, 1) Then MsgBox "第" & i & "位错误"
Next i
End Sub

Private Sub Form_Load()
a = "QWER"
End Sub