“VB程序设计教程”答案汇总.docVIP

随机数产生 Private Sub Form_Click() For i = 101 To 200 Step 2 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j If j = i Then List1.AddItem i Next i End Sub 四 实验21 Private Sub Command1_Click() For i = 100 To 200 For j = 10 To 14 If i = j ^ 2 Then n = n + 1 m = i End If Next j Next i Text1 = m Text2 = n End Sub 4 实验16 Private Sub Form_Click() s = 1 While s = 100000 i = i + 1 s = s * (2 * i) Wend Print s=; s End Sub 4 实验 17 Private Sub Form_Click() Do While Sum = 5000 i = i + 1 Sum = Sum + i ^ i Loop Print sum=; Sum - i ^ i End Sub 4 实验 23 Private Sub Form_Click() Dim a As Intege r, b As Integer a = Int(100 * Rnd + 1) b = Int(100 * Rnd + 1) Text1 = a Text2 = b r = a Mod b While r 0 a = b b = r r = a Mod b Wend Text3 = b c = (Val(Text1) * Val(Text2)) / b Text4 = c End Sub 6 实验8 Private Sub Form_Click() Randomize Dim a(8, 8) As Integer For i = 1 To 8 For j = 1 To 8 a(i, j) = Int((999 - 100 + 1) * Rnd + 100) Print a(i, j); If Max a(i, j) Then Max = a(i, j) n = i m = j End If Next j Print Next i Print 最大值的元素是：; Max Print 行号：; n Print 列号：; m End Sub 4 实验24 Private Sub Form_Click() For i = 1 To 9 For j = 1 To 9 Print Trim(i); *; Trim(j); =; Format(i * j, !@@@); Next j Print Next i End Sub 4实验27 Private Sub Command1_Click() Dim a As Integer Randomize a = Int(101 * Rnd + 0) Text1.Text = a End Sub Private Sub Command2_Click() For i = 2 To a - 1 If a Mod i = 0 Then Exit For Next i If i = a - 1 Then Text2.Text = 是素数 Else Text2.Text = 不是素数 End If 5.6 Private Sub Option1_Click() Shape1.Shape = 3 End Sub Private Sub Option2_Click() Shape1.Shape = 1 End Sub Private Sub Option3_Clic