重点题().doc.docVIP

随机文件 Open t5.txt For Random As #1 Len = Len(Pers) 向文件里输入内容 RecNum = LOF(1) / Len(Pers) Do Pers.Name = InputBox(请输入姓名) Pers.Tel = InputBox(请输入电话) Pers.Pos = InputBox(请输入邮政编码) RecNum = RecNum + 1 Put #1, RecNum, Pers asp = InputBox(More(Y/N)?) Loop While UCase(asp) = N Close 1 Private Sub Command2_Click() Open t5.txt For Random As #1 Len = Len(Pers) 从文件中读出内容，并写在窗体上 RecNum = LOF(1) / Len(Pers) Cls For i = 1 To RecNum Get #1, i, Pers Print Pers.Name; Pers.Tel; Pers.Pos Next i Close 1 End Sub Private Sub Command1_Click() Open in5.txt For Random As #1 Len = Len(Stud) 从文件中读出内容，写在text中 RecNum = 1 做题时，也可以试运行一次，看到底有多少 Do While Not EOF(1) 条目 Get #1, RecNum, Stud Text1.Text = Text1.Text Stud.Name Text1.Text = Text1.Text Stud.Sex Text1.Text = Text1.Text Str(Stud.Age) Text1.Text = Text1.Text + vbCrLf RecNum = RecNum + 1 Loop Close 1 End Sub 素数 Public Function prime(x As Integer) （ 判断素数的通用过程 找到他前面或后面的一个） k = Int(Sqr(x) + 0.5)（一定不要忘记） For i = 2 To k If x Mod i = 0 Then prime = False Exit Function End If Next prime = True End Function Private Sub Command2_Click() a% = Val(Text1.Text)（一定不要忘记） Do a% = a% + 1 （也可以是a=a-1） Loop Until prime(a%) Text2.Text = a% End Sub Dim i As Integer (找到后面或前面的素数连着三个或更多) Dim n As Integer Dim counter As Integer Dim arr(2) As Integer n = Val(Text1.Text) counter = 0 For i = n - 2 To 1 Step -2 If IsPrime(i) Then arr(counter) = i counter = counter + 1 If counter = 3 Then Exit For End If End If Next For i = 0 To 2 Label1(i).Caption = arr(i) Next Private Sub Command1_Click() 通用对话框 Dim n As Long CD1.FileName = CD1.Filter