参考答案
练习8-2：
Private Sub Command1_Click()
Do
n = CInt(Text1.Text)
Loop Until n > 0 And n < 13
m = n \ 3
Select Case m
Case 1
Print "   Spring"
Case 2
Print "   Summer"
Case 3
Print "   Autumn"
Case Else
Print "   Winter"
End Select
End Sub
练习8-6：
Private Sub Command1_Click()
For m = 1 To 10
x = Int(Rnd * 100 + 100)
If x Mod 8 = 0 Then
Print x;
a = a + x
End If
Next m
Print
Print "和为："; a
End Sub


Private Sub Form_Click()
Dim a
a = 0
For i = 1 To 4
a = a + i / (i + 1)
Next i
Print a
End Sub

3l题目4、     编写程序，计算1/2+2/3+3/4+4/5；

Private Sub Form_Click()
Print "                         " + "9*9 table"
Print
Print " *      1     2     3     4     5     6     7     8     9"
For i = 1 To 9
    
     Print " "
     Print i;
     For j = 1 To i
     Print "   "; j * i; "";
     Next j
    
Next i
    
End Sub
乘法表……谁来告诉我要怎么对齐 囧= =||||

乘法表答案= =|
有时间再看
Private Sub Form_Click()
Print Tab(30); "9*9 table"
Print: Print
Print " *   ";
For i = 1 To 9
Print Tab(i * 6); i;
Next i
Print
For j = 1 To 9
Print j; "   ";
For k = 1 To j
   temp = j * k
   Print Tab(k * 6); temp; " ";
   Next k
  
   Print
  
   Next j
End Sub

其他两题
3、     勾股定理中3个数的关系是：a2+b2=c2。编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是一个整数组合。
4、     给定三角形的3条边长，计算三角形的面积，编写程序，首先判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入，当输入－1时结束程序。
偶要去跑步了= =~下课。。。

求mod
a = Val(Text1.Text)
b = (a + 11) Mod 26
Cls
Print b

表示乘法表over
Private Sub Form_Click()
Print "                          " + "9*9 table"
Print
Print " *     1      2      3      4      5      6      7      8      9"
For i = 1 To 9
    
      Print " "
      Print i;
      For j = 1 To i
      Print Tab(6 * j); j * i;
      Next j
    
Next i
    
End Sub
--------------------------------
NOTE
Print Tab(6 * j); j * i; 

30以内的购股数
Private Sub Form_Click()
For a = 1 To 30
     For b = 1 To 30
         For c = 1 To 30
         If c * c = a * a + b * b And a <= b And b <= c Then
               Print Tab(5); a; Tab(10); b; Tab(15); c; Tab(20); a * a; Tab(25); b * b; Tab(30); c * c;
         End If
        
         Next c
    Next b
Next a
    
End Sub
-----------------------------
note
a <= b And b <= c
a<=b<=c 错误

随机产生10个100-200的整数，在窗体输出其中是8的倍数的数，求出它们的总和
Private Sub Form_Click()
For i = 1 To 10
Dim a
Randomize
a = Int((100 + 1) * Rnd) + 100
a = Val(a)
If a Mod 8 = 0 Then p = a
Print p;
q = q + p
Next i
Print "总合:"; q
End Sub


控件（二）
1、     上机运行例题9－6、7、8、9、10、11、12；
2、     编写程序，P260练习9－6、9-7。

又一段错误，，，无力了= =
Private Sub Command1_Click()
Dim T0
T0 = Trim(Label4.Caption) & ":" & Trim(Label5.Caption)
T0 = T0 & ":" & Trim(Label6.Caption)
Time = CDate(T0)
End Sub
Private Sub Form_Load()
Dim T0 As Data
VScroll1.Min = 23
VScroll1.Max = 0
VScroll2.Min = 59
VScroll2.Max = 0
VScroll3.Min = 59
VScroll3.Max = 0
VScroll1.LargeChange = 5
VScroll1.SmallChange = 1
VScroll2.LargeChange = 10
VScroll2.SmallChange = 1
VScroll3.LargeChange = 10
VScroll3.SmallChange = 1
T0 = Time
VScroll1.Value = Hour(T0)
VScroll2.Value = Minute(T0)
VScroll3.Value = Second(T0)
Label4.Caption = VScroll1.Value
Label5.Caption = VScroll2.Value
Label6.Caption = VScroll3.Value
End Sub
Private Sub VScroll1_Change()
Label4.Caption = VScroll1.Value
End Sub
Private Sub VScroll1_scroll()
Label4.Caption = VScroll1.Value
End Sub
Private Sub VScroll2_Change()
Label5.Caption = VScroll2.Value
End Sub
Private Sub VScroll2_Scroll()
Label5.Caption = VScroll2.Value
End Sub
Private Sub VScroll3_Change()
Label6.Caption = VScroll3.Value
End Sub
Private Sub VScroll3_Scroll()
Label6.Caption = VScroll3.Value
End Sub


好吧。。。date ....not data。。。= =|