Private Sub Command3_Click()
Dim n, m As Integer
m = Val(InputBox("几名嫌疑人", "嫌疑人数量"))
Dim A(1 To 10, 1 To 5) As String
Do
A(n, 1) = InputBox("输入嫌疑人名字", "嫌疑人信息")
A(n, 2) = InputBox(A(n, 1) & "的性别", "嫌疑人信息", "男")
A(n, 3) = InputBox(A(n, 1) & "的籍贯", "嫌疑人信息")
A(n, 4) = InputBox(A(n, 1) & "的籍贯详址", "嫌疑人信息")
A(n, 5) = InputBox(A(n, 1) & "的住址/暂住地址", "嫌疑人信息")
' MsgBox "姓名:" & A(n, 1) & Chr(10) & "性别:" & A1 & Chr(10) & "籍贯详址:" & A2 & Chr(10) & "住址/暂住地址:" & A3 & Chr(10) & "姓名:" & A4, 0, "嫌疑个人信息"
n = n + 1
Loop While n > m