程式碼Dim a() As StringDim b() As StringDim c() As StringDim n As Integer max As Integer 陣列找缺少的字串 - 趣味新聞網

發表日期 2008-11-26T22:49:37+08:00

     程式碼
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 編輯 ]

分享鏈接