Question

vb题，急用 vb题，急用单击命令按钮command1，用inputbox()函数录入50名学生

vb题，急用
vb题，急用单击命令按钮command1，用inputbox()函数录入50名学生的学号(no)、姓名(name)和班级(class)，保存在文件”c:\info.txt”中，单击命令按钮 command2，读取文件中的数据，找出学号前4位以”2013”开头的学生的信息，将该生信息(学号、姓名和班级)显示在窗

Answer 1

Public Sub SaveTXT(TextStr As String, paths As String)
If Dir(paths) = "" Then MsgBox "ERROR": Exit Sub
If paths = "" Then Exit Sub
Open paths For Append As #1
Print #1, TextStr
Close
End Sub
Private Sub Command1()
Dim i as integer
Dim allinfo as string
Dim no(49) as string
Dim name(49) as string
Dim class(49) as string
For i = 0 to 49
no(i)=inputbox("请输入第" & i & "只学生的学号")
name(i)=inputbox("请输入第" & i & "只学生的姓名")
class(i)=inputbox("请输入第" & i & "只学生的班级")
if left(no,4)="2013" Then Print "学号/姓名/班级:" & No(i) & "/" & name(i) & "/" & class(i)
allinfo=allinfo & "学号/姓名/班级:" & No(i) & "/" & name(i) & "/" & class(i) & vbcrlf
next
savetxt allinfo,"C:\info.txt"
End Sub
应该是不会出错的