Private Sub Form_Load()
Dim S$
Dim Infor$()
Dim TotalN%
Dim Found As Boolean
Dim N()
Dim PoliceID$
Open App.Path & "\records.txt" For Input As #1
Do Until EOF(1)
TotalN = TotalN + 1
Line Input #1, S
ListTask.AddItem Infor(0)
If Infor(2) = "無效" Then InvalidN = InvalidN + 1
Found = False
For i = 0 To ListPolice.ListCount - 1
If ListPolice.List(i) = Infor(0) Then
Found = True
Exit For
End If
Next i
If Found = False Then
ListPolice.AddItem Infor(0)
End If
Loop
Close #1
ReDim N(ListPolice.ListCount - 1)
For i = 0 To ListTask.ListCount - 1
PoliceID = ListTask.List(i)
For j = 0 To ListPolice.ListCount - 1
If ListPolice.List(j) = PoliceID Then
N(j) = N(j) + 1
Exit For
End If
Next j
Next i
For i = 0 To ListPolice.ListCount - 1
List3.AddItem "警員" & ListPolice.List(i) & "檢查的身份證數量為" & N(i)
Next i
txtN.Text = TotalN
txtPercent.Text = Format(InvalidN / TotalN, "0.0%")
End Sub
uj5u.com熱心網友回復：
你的infor陣列好像沒有初始化;uj5u.com熱心網友回復：
所以這個需要怎么改呀？
uj5u.com熱心網友回復：
抱著學習的態度來這，看到你的帖子，實際測驗后給你回復。這是我第一次在CSDN論壇發帖！缺少一個把字串分配給字符陣列的陳述句，比如在如下位置加入陳述句
Line Input #1, S
Infor = Split(S, "，") '增加：把一個字串按,分割后分配給字串陣列Infor
ListTask.AddItem Infor(0)
其中“，”號改成你錄入資訊的分割號即可。
另外說一句，我覺得你應該有賦初值的習慣，以防止程式意外發生。如：
'增加初始化
TotalN = 0
S = ""
InvalidN = 0
PoliceID = ""
以上請參考！
uj5u.com熱心網友回復：
啊啊啊啊啊啊啊十分感謝了
uj5u.com熱心網友回復：
哦。不客氣。既然問題解決了，分呢？uj5u.com熱心網友回復：
我怎么才能把分給你啊
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/18491.html
標籤：VB基礎類