【正文】 hange() 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(輸入倒計時分鐘數(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。 在 s1中去除 s2子串 i = InStr(s1, s2) Loop End Sub Private Sub Command1_Click() 39。 a(j)。 =1。 n。 + amp。 = amp。 ★ Else Text1 End If Text1 = End If End If End Sub Function IsH(ss As String) As Boolean Dim i%, Ls% IsH = True ss = Trim(ss) Ls = Len(ss) For i = 1 To Ls \ 2 If Mid(ss, i, 1) Mid(ss, Ls + 1 i, 1) Then IsH = False Exit Function End If Next i End Function F． 5 Function prime(ByVal m As Integer) As Boolean prime = True Dim i% For i = 2 To m 1 If (m Mod i) = 0 Then prime = False: Exit Function 39。 Sin(x) End Sub Private Sub Command2_Click() Print 調(diào)用自定義函數(shù) MySin的結(jié)果 。 Tab(12)。 Tab(6)。 Next i Call s(a(), amin) Print Print min=。 。 sa B數(shù)組副對角線元素和為： 。 b(i, j)。 。 個 Next i End Sub E． 4 Private Sub Command1_Click() Dim d%(1 To 10) For i3 = 1 To 10 Randomize d(i3) = Int(Rnd * 91 + 10) Next i3 For i = 1 To 10 For j = 1 To 10 i If d(j) d(j + 1) Then t = d(j): d(j) = d(j + 1): d(j + 1) = t End If Next j Next i For i = 1 To 10: d(i)。 )的人數(shù)有 。 存放其他三個分數(shù)段的下標有規(guī)律，根據(jù) K獲得 s(k) = s(k) + 1 End Select Next i For i = 5 To 9 If s(i) 0 Then s(。 If (i + 1) Mod 4 = 0 Then Next i End Sub Private Sub Command2_Click() Dim s(5 To 9) For i = 0 To 19 k = a(i) \ 10 Select Case k Case 0 To 5 s(5) = s(5) + 1 Case 9 To 10 39。 a(i) Print Next i End Sub E． 3 Dim a%(19) Private Sub Command1_Click() For i = 0 To 19 a(i) = Int(Rnd * 101) a(i)。 Avg=。 Min=。 Next i Max = a(1) Min = a(1) Avg = a(1) For i = 2 To 10 If a(i) Max Then Max = a(i) If a(i) Min Then Min = a(i) Avg = Avg + a(i) Next i Avg = Avg / 10 Print Print Max=。 z1 Next Y Next x Next z End Sub 實驗 E E． 1 Private Sub Form_Click() Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 71 + 30) Print a(i)。 Y1。 X1。 y課安排在 。 Next i Print Print s=。 a, n=。 時， pi=。 n = InputBox(輸入 n值 ) pi = 2 For i = 1 To n pi = pi * (2 * i) / (2 * i 1) * (2 * i) / (2 * i + 1) Next i Print 當 n= amp。 項 End Sub D． 4 Private Sub Command1_Click() Dim namp。 s = 1 t = 1 For i = 1 To 100000 t = t + i s = s + 1 / t If 1 / t Then Exit For Next i Print For結(jié)構(gòu) 。 String(2 * i 1, Trim(Str(i))) Next i End Sub D． 2 Private Sub Form_Click() For i = 1 To 10 Step 1 Print Tab(i)。 Format(Sqr(Abs(de)) / t, ) amp。 i Text5 = Format(b / t, ) amp。 + amp。 amp。 amp。 z If x y Then t = x: x = y: y = t If y z Then t = y: y = z: z = t If x y Then t = x: x = y: y = t End If End If Print 排序后 amp。 y。 x。 amp。 amp。 z If x y Then t = x: x = y: y = t If x z Then t = x: x = z: z = t If y z Then t = y: y = z: z = t Print 排序后 amp。 y。 x。 立方根為 :。 lf。 Space(5)。 平方根為 :。 pf。 String(10 (2 * i 1), ☆ )。 String(2 * i 1, ★ ) Next i End Sub Private Sub Command2_Click() Cls End Sub 進一步要求： Private Sub Command1_Click() Print For i = 1 To 5 Print Tab(15 i * 2)。 String(2 * i 1, ★ )。 分離出的十位數(shù) x3 = x \ 100 39。 cd End Sub B． 5 Private Sub Command1_Click() Text1 = Int(Rnd * 900 + 100) End Sub Private Sub Command2_Click() Dim x%, x1%, x2%, x3% x = Val(Text1) x1 = x Mod 10 39。 年后人數(shù)超過 26億 End Sub B． 4 Private Sub Command1_Click() Dim x, dx, cd x = dx = UCase(x) cd = Len(x) Print 大寫字母為 :。 聲明兩個變量 cc = Val(Text2) ff = 9 / 5 * cc + 32 Text1 = Format(ff, ) 39。 聲明兩個變量 f = Val(Text1) c = 5 / 9 * (f 32) Text2 = Format(c, ) 39。 = 260 * 16 + 200 39。 = 260 * 16 39。 該事件的作用窗體始終與圖一樣大 39。手動 = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() 50 If 0 Then = End Sub A． 3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A． 4 Private Sub Form_Click() Caption = 單擊窗體，改變圖片 Picture = LoadPicture( + \) Print 歡迎使用 VB End Sub Private Sub Form_DblClick() Cls Caption = 雙擊窗體，卸去圖片 Picture = LoadPicture() 39。實驗 A A． 1 Private Sub Command1_Click() Label3 = Text1 End Sub A． 2 Private Sub Form_Load() = 0 End Sub Private Sub Command1_Click() 39。自動 = 200 End Sub Private Sub Command2_Click() 39。 End Sub Private Sub Form_Load() Caption = 裝入窗體 Picture = LoadPicture( + \) Print 裝入圖 End Sub Private Sub Form_Resize() 39。Caption = 窗體大小不變 39。 260是 ，象素單位 39。 260是圖的高度，象素單位， 200是窗體的標題欄高度 End Sub A． 5 Sub Command1_Click() = 隸書 = 25 End Sub Sub Command2_Click() =