【正文】 Print a(i)。 X1。 Next i Print Print s=。 時， pi=。 項 End Sub D． 4 Private Sub Command1_Click() Dim namp。 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)。 i Text5 = Format(b / t, ) 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。 x。 amp。 y。 立方根為 :。 Space(5)。 pf。 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)。 分離出的十位數(shù) x3 = x \ 100 39。 年后人數(shù)超過 26億 End Sub B． 4 Private Sub Command1_Click() Dim x, dx, cd x = dx = UCase(x) cd = Len(x) Print 大寫字母為 :。 聲明兩個變量 f = Val(Text1) c = 5 / 9 * (f 32) Text2 = Format(c, ) 39。 = 260 * 16 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。自動 = 200 End Sub Private Sub Command2_Click() 39。Caption = 窗體大小不變 39。 260是圖的高度，象素單位， 200是窗體的標題欄高度 End Sub A． 5 Sub Command1_Click() = 隸書 = 25 End Sub Sub Command2_Click() = = = End Sub 實驗 B B． 1 Private Sub Command1_Click() Text2 = Format(5 / 9 * (Val(Text1) 32), ) End Sub Private Sub Command2_Click() Text1 = Format(9 / 5 * Val(Text2) + 32, ) End Sub 或 Private Sub Command1_Click() Dim f!, c! 39。 保留兩位小數(shù) End Sub B． 2 Private Sub Command1_Click() Label2 = Format(Val(Text1) * Val(Text1) * , ) End Sub Private Sub Command2_Click() Label3 = Format(Val(Text1) * * 2, ) End Sub Private Sub Text1_LostFocus() If Not IsNumeric() Then MsgBox 輸入有非數(shù)字字符，請重新輸入 , , 警告 = End If End Sub 或 Private Sub Command1_Click() Label2 = Format(Val(Text1) * Val(Text1) * , ) End Sub Private Sub Command2_Click() Label3 = Format(Val(Text1) * * 2, ) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not IsNumeric() Then = End If End If End Sub B． 3 Private Sub Command1_Click() n = Int(Log(2) / Log() + 1) Label1 = n amp。 分離出的個位數(shù) x2 = (x Mod 100) \ 10 39。 Spc(18 4 * (i 1))。 String(2 * i 1, ★) Next i End Sub Private Sub Command2_Click() Cls End Sub B． 8 Private Sub Form_Click() x = Val(InputBox(輸入一正實數(shù) , 計算 , 0)) pf = Format(x * x, ) pfg = Format(Sqr(x), ) lf = Format(x * x * x, ) lfg = Format(x ^ (1 / 3), ) Print 平方為 :。 pfg。 Space(5)。 。 x amp。 z End Sub Private Sub Command2_Click() Dim x!, y!, z! x = InputBox(input x) y = InputBox(input y) z = InputBox(input z) Print x y z Print 排序前 。 。 y amp。 Format(Sqr(Abs(de)) / t, ) amp。 i End If End Sub Private Sub Command2_Click() Text1 = Text2 = Text3 = Text4 = Text5 = End Sub C． 7 Private Sub Text3_LostFocus() Select Case Trim(Text3) Case + Text4 = Val(Text1) + Val(Text2) Case Text4 = Val(Text1) Val(Text2) Case * Text4 = Val(Text1) * Val(Text2) Case / If Val(Text2) = 0 Then MsgBox 分母為零，重新輸入 Text2 = Else Text4 = Val(Text1) / Val(Text2) End If End Select End Sub C． 8 Private Sub Text1_LostFocus() Select Case Trim(Text1) Case 1 Text2 = Monday Case 2 Text2 = Tuesday Case 3 Text2 = Wednesday Case 4 Text2 = Thursday Case 5 Text2 = Friday Case 6 Text2 = Saturday Case 7 Text2 = Sunday Case Is 7, Is 1 MsgBox 數(shù)字為 1~7，重新輸入 Text1 = End Select End Sub 或者 Private Sub Text1_LostFocus() If Text1 7 Or Text1 1 Then MsgBox 數(shù)字為 1~7，重新輸入 Text1 = Else Text2 = Choose(Text1, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday) End If End Sub 實驗 D D． 1 Private Sub Form_Click() For i = 1 To 9 Print Tab(10 i)。 s, i。 n amp。 n For i = 1 To n t = t * 10 + a s = s + t Print t。 z課安排在 For z = 5 To 6 For x = 1 To z 2 For Y = x + 1 To z 1 X1 = Choose(Weekday(x), 周一 , 周二 , 周三 , 周四 , 周五 , 周六 , 周日 ) Y1 = Choose(Weekday(Y), 周一 , 周二 , 周三 , 周四 , 周五 , 周六 , 周日 ) z1 = Choose(Weekday(z), 周一 , 周二 , 周三 , 周四 , 周五 , 周六 , 周日 ) 。 。 Max。 Avg End Sub E． 2 Private Sub Form_Click() Dim a a = Array(56, 78, 98, 88, 76, 78) For i = 0 To 5 Print String(a(i) \ 5, ◆ )。90～ 100分的人數(shù) s(9) = s(9) + 1 Case 6 To 8 39。 Format(s(i), 0)。 Next j Next i End Sub Private Sub Command2_Click() For i = 0 To 3 For j = i To 3 Tab(j * 6)。 sb End Sub E． 6 Private Sub Form_Click() n = InputBox(輸入 n值 ) ReDim a6%(n + 1, n + 1) a6(0, 0) = 1: a6(1, 1) = 1: a6(1, 0) = 1 For i = 2 To n + 1 For j = 2 To i a6(i, j) = a6(i 1, j 1) + a6(i 1, j) a6(i, j)。 amin End Sub Sub s(b(), min)