[電腦討論]

陣列找缺少的字串

程式碼
Dim a() As String
Dim b() As String
Dim c() As String
Dim n As Integer, max As Integer, i As Integer
Private Sub Command1_Click()
If a(n) <> b(n) Then
List1.Clear
For i = 0 To n - 1
List1.AddItem c(n)
Next i
End If

End Sub

Private Sub Command2_Click()
i = i + 1
n = 0
End Sub

Private Sub Form_Load()
n = 0: max = 10: i = 1
ReDim a(max)
ReDim b(max)
Text1.Text = ""
Text2.Text = " "
End Sub

Private Sub Text1_keypress(keyascii As Integer)
Dim j As Integer
j = i Mod 2
If j = 1 Then
    If keyascii = 13 Then
    keyascii = 0
        If n > max Then
        max = max + 20
        ReDim Preserve a(max)
        ReDim Preserve b(max)
        End If
    a(n) = Text1.Text
    n = n + 1
    Text1.Text = ""
    End If
ElseIf j = 0 Then
    If keyascii = 13 Then
    keyascii = 0
        If n > max Then
        max = max + 20
        ReDim Preserve a(max)
        ReDim Preserve b(max)
        End If
    b(n) = Text1.Text
    n = n + 1
    Text1.Text = ""
    End If
End If
   
Text1.Text = " "

End Sub



卡在Command1
用Command1來找出a、b之間缺少哪個字
比如說:a輸入1、2、3、4 按下Command2
             b輸入1、2、3按下Command2之後 少4
Command1是找2個陣列裡面少哪個數字
現在顯示不出來  要怎麼修改?

[ 本帖最後由 kiwimp21 於 2008-12-3 10:57 編輯 ]
喜歡這篇文章嗎?
回覆 1
您需要登入後才可以回帖 登入 | 註冊會員

本版積分規則 回覆 15 個字以上可拿獎勵,
規則詳見此

精選熱門商品

提示訊息
go_top