【正文】 te Sub Command2_Click() End Sub F． 8 Private Sub Command1_Click() Dim maxw$ maxlen Text1 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_Change() Text1 = Text2 = Text3 = Text4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), ) Text5 = Format(Val(Text4) + Val(Text1), ) End Sub Private Sub VScroll1_Change() Text1 = Text2 = Text3 = Text4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), ) Text5 = Format(Val(Text4) + Val(Text1), ) End Sub G． 4 Dim t As Single Private Sub Command1_Click() t = InputBox(輸入倒計(jì)時(shí)分鐘數(shù) ) t = t * 60 = 0 = t = t End Sub Private Sub Command2_Click() = 1000 = True End Sub Private Sub Timer1_Timer() Dim m%, s% t = t 1 = t m = t \ 60 s = t Mod 60 Label1 = m amp。 分 amp。 s amp。 秒 If t = 0 Then MsgBox 時(shí)間到！ = 0 = False End If End Sub G． 5 Private Sub Command1_Click() = End Sub Private Sub Command2_Click() i = Shell(C:\WINDOWS\ + , vbNormalFocus) End Sub G． 6 rivate Sub bold_Click() = Not = Not End Sub Private Sub del_Click() Text1 = End Sub Private Sub end_Click() End End Sub Private Sub font12_Click() = 12 End Sub Private Sub font16_Click() = 16 End Sub Private Sub Form_Load() = False = False End Sub Private Sub italic_Click() = Not = Not End Sub Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu menu2 End Sub G． 7 Private Sub Command1_Click() = End Sub Private Sub Command2_Click() i = Shell(C:\WINDOWS\ + , vbNormalFocus) End Sub Private Sub return_Click(Index As Integer) Unload Form5 End Sub G． 8 G． 9 Private Sub 結(jié)束 _Click() End End Sub Private Sub 刪除最大值 _Click() max = (0) For i = 1 To 1 If max (i) Then max = (i): j = i Next i j End Sub Private Sub 刪除最小值 _Click() min = (0) For i = 1 To 1 If min (i) Then min = (i): j = i Next i j End Sub Private Sub 隨機(jī)產(chǎn)生 _Click() Randomize For i = 0 To 9 (i) = Int(Rnd * 30 + 70) Next i End Sub Private Sub 添加數(shù)據(jù) _Click() Int(Rnd * 30 + 70) End Sub Private Sub 統(tǒng)計(jì) _Click() Dim max%, min%, ave!, m%, n% max = (0) min = (0) ave = (0) m = 0 n = 0 For i = 1 To 1 If max (i) Then max = (i): m = i If min (i) Then min = (i): n = i ave = ave + (i) Next i = (n) = (m) = Format(ave / , ) End Sub G． 10 Private Sub experimentG2_Click() End Sub Private Sub experimentG3_Click() End Sub Private Sub experimentG4_Click() End Sub Private Sub experimentG5_Click() End Sub Private Sub font_12_Click() = 12 End Sub Private Sub font_16_Click() = 16 End Sub Private Sub rnd10_Click() Randomize For i = 0 To 9 (i) = Int(Rnd * 30 + 70) Next i End Sub Private Sub stat_Click() Dim max%, min%, ave!, m%, n% max = (0) min = (0) ave = (0) m = 0 n = 0 For i = 1 To 1 If max (i) Then max = (i): m = i If min (i) Then min = (i): n = i ave = ave + (i) Next i = (n) = (m) = Format(ave / , ) End Sub Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu caidan2, vbPopupMenuCenterAlign End Sub Private Sub xie_Click() = Not End Sub 實(shí)驗(yàn) H H． 1 Private Sub Command1_Click() Open c:\score For Output As 1 Print 1, 051023, 王海濤 , 66 Print 1, 052498, 周文英 , 88 Print 1, 050992, 陳建東 , 77 Open c:\score1 For Output As 2 Write 2, 051023, 王海濤 , 66 Write 2, 052498, 周文英 , 88 Write 2, 050992, 陳建東 , 77 Close i1 = Shell( + c:\score, vbNormalNoFocus) i2 = Shell( + c:\score1, vbNormalNoFocus) End Sub Private Sub Command2_Click() Dim no As String, name As String, s As Integer Open c:\score For Input As 1 Do While Not EOF(1) Line Input 1, linedata linedata Loop Open c:\score1 For Input As 2 Do While Not EOF(2) Input 2, no, name, s no amp。 name amp。 s Loop Close End Sub H． 2 Private Sub Command1_Click() Dim fib%(0 To 9), i% Open c:\ For Output As 1 For i = 0 To 9 If i = 0 Or i = 1 Then fib(i) = i Else fib(i) = fib(i 1) + fib(i 2) End If Print 1, Fib( amp。 i amp。 ), amp。 fib(i) Next i Close 1 i = Shell( + c:\, vbNormalNoFocus) End Sub