【正文】 sum 平均成績(jī) amp。 amp。 stud(i).mark Next i Close 1 End Sub H． 5 Private Type studtype no As Integer name As String * 20 sex As String * 1 mark As Single End Type Dim std As studtype Dim record As Integer Private Sub Command1_Click() With std .no = Val() .name = .sex = IIf(, 1, 0) .mark = Val() End With Open c:\score For Random As 1 Len = Len(std) record = LOF(1) / Len(std) + 1 = record Put 1, record, std Close 1 End Sub Private Sub Command2_Click() Open c:\score For Random As 1 Len = Len(std) record = Val() Get 1, record, std = = If = 1 Then = True Else = True End If = record = LOF(1) / Len(std) Close 1 End Sub Private Sub Command3_Click() With std .no = Val() .name = .sex = IIf(, 1, 0) .mark = Val() End With Open c:\score For Random As 1 Len = Len(std) record = Val() Put 1, record, std Close 1 End Sub Private Sub Command4_Click() Open c:\score For Random As 1 Len = Len(std) record = 1 Get 1, record, std = = If = 1 Then = True Else = True End If = record = LOF(1) / Len(std) Close 1 = 1 End Sub Private Sub Command5_Click() Open c:\score For Random As 1 Len = Len(std) record = Val() 1 If Val() = 1 Then MsgBox 超出記錄范圍 , 2 + vbExclamation, 警告 : Close 1 Else Get 1, record, std = = If = 1 Then = True Else = True End If = record = LOF(1) / Len(std) Close 1 = Val() 1 End If End Sub Private Sub Command6_Click() Open c:\score For Random As 1 Len = Len(std) record = Val() + 1 If record Val() Then MsgBox 超出記錄范圍 , 2 + vbExclamation, 警告 : Close Else Get 1, record, std = = If = 1 Then = True Else = True End If = record = LOF(1) / Len(std) Close 1 = Val() + 1 End If End Sub Private Sub Command7_Click() Open c:\score For Random As 1 Len = Len(std) record = Val() Get 1, record, std = = If = 1 Then = True Else = True End If = record = LOF(1) / Len(std) Close 1 = record End Sub Private Sub Form_Load() Open c:\score For Random As 1 Len = Len(std) = LOF(1) / Len(std) Close 1 End Sub H． 6 Private Type studtype no As Integer name As String * 6 mark As Integer End Type Dim std As studtype Dim record As Integer Private Sub Command1_Click() With std .no = Val() .name = .mark = Val() End With Open c:\score1 For Random As 1 Len = Len(std) record = LOF(1) / Len(std) + 1 Put 1, record, std Close 1 = = = End Sub Private Sub Command2_Click() Dim sum, count As Integer Open c:\score1 For Random As 1 Len = Len(std) For i = 1 To record Get 1, i, std sum = sum + count = count + 1 amp。 sum / 10 End Sub H． 3 H． 4 Private Type studtype no As String * 4 name As String * 6 mark As Single End Type Dim student As studtype, stud(1 To 5) As studtype, t As studtype Private Sub Command1_Click() Open d:\ For Random As 1 Len = Len(student) With student .no = 0001 .name = 星期一 .mark = 66 End With Put 1, 1, student With student .no = 0002 .name = 星期二 .mark = 99 End With Put 1, 2, student With student .no = 0003 .name = 星期三 .mark = 88 End With Put 1, 3, student With student .no = 0004 .name = 星期四 .mark = 55 End With Put 1, 4, student With student .no = 0005 .name = 星期五 .mark = 77 End With Put 1, 5, student Close 1 End Sub Private Sub Command2_Click() Open d:\ For Random As 1 Len = Len(student) For i = 1 To 5 Get 1, i, student Print , , stud(i) = student Next i Close 1 For i = 1 To 5 For j = i + 1 To 5 If stud(i).mark stud(j).mark Then t = stud(i): stud(i) = stud(j): stud(j) = t Next Next i Open d:\ For Random As 2 Len = Len(student) For i = 1 To 5 Put 2, i, stud(i) Next i Close 1 End Sub Private Sub Command3_Click() Open d:\ For Random As 1 Len = Len(student) For i = 1 To 5 Get 1, i, stud(i) Print stud(i).no。 n Loop Close 1 合計(jì)： amp。 fib(i) Next i Close 1 i = Shell( + c:\, vbNormalNoFocus) End Sub Private Sub Command2_Click() Dim st$, n%, sum% Open c:\ For Input As 1 Do While Not EOF(1) Input 1, st, n sum = sum + n st amp。 i amp。 name amp。 s amp。 , maxw Text2 = maxw End Sub Sub maxlen(s$, maxw$) Dim word$ maxw = Do While s i = InStr(s, ) word = Left(s, i 1) If Len(word) Len(maxw) Then maxw = word s = Mid(s, i + 1) Loop End Sub 實(shí)驗(yàn) G G． 1 Private Sub Command1_Click() Combo1 If Option1 Then Pentium II If Option2 Then Pentium I If Option3 Then Celeron Text1 If Check1 Then 聲卡 If Check2 Then Modem If Check3 Then 網(wǎng)絡(luò)適配器 End Sub Private Sub Text1_LostFocus() st = UCase(Trim(Text1)) le = Len(st) If Not IsNumeric(Left(st, le 2)) Or Right(st, 2) MB Then MsgBox 有不合法字符！ Text1 = End If End Sub G． 2 Private Sub Check1_Click() = Not End Sub Private Sub Check2_Click() = Not End Sub Private Sub Command1_Click() If Option1 Then Sin(Val(Text1)) ElseIf Option2 Then Exp(Val(Text1)) ElseIf Option3 Then Sqr(Val(Text1)) End If End Sub Private Sub return_Click(Index As Integer) Unload Form2 End Sub G． 3 Private Sub HScroll1_Change() Text1 = Text2 = Text3 = Text4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), ) Text5 = Format(Val(Text4) + Val(Text1), ) End Sub Private Sub HScroll2_C