vb 中Byte的使用

来源：百度知道 编辑：UC知道 时间：2024/07/02 11:48:24
假设有Text1、Text2,Text1中有20个数字，Text2中有50个数字，我想Text1和Text2进行逐位比较，如果前20位相等，则提示成功（或图片什么的），如果不相等则显示失败（或图片什么的）。我是菜鸟，弄了好几天了还没整明白，另初次提问，不周之处，多包涵！如有可能，能否将Text2汉城数据库什么的，呵呵，有点贪了~
我试了，但不知为什么输入字符可以比较，但输入数字就显示下标越界

Private Sub Command1_Click()
Dim a() As Byte, b() As Byte, Diff As Boolean
a() = Text1
b() = Text2
For i = 0 To 19
If a(i) <> b(i) Then
Diff = True
Exit For
End If
Next
If Diff Then
MsgBox "不相等"
Else
MsgBox "相等"
End If
End Sub

if left(text1,20)=left(text2,20) then msgbox"成功" else "失败"