Else
c = c + 1 End If Next i
Label1.Caption = a Label2.Caption = a Label3.Caption = a End Sub 4.
Private Sub Command1_Click()
Dim i As Integer, n As Integer, s As Single s = 1
n = InputBox(\
For i = 1 To n
s = s + i / ((i + 1) * (i + 2)) Next i
Text1.Text = s End Sub 5.
Private Sub Form_Click()
Dim i As Integer, j As Integer, k As Integer For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
If i ^ 3 + j ^ 3 + k ^ 3 = i * 100 + j * 10 + k Then Print i * 100 + j * 10 + k End If Next k, j, i End Sub
6.
Private Sub Form_Click()
Dim i As Integer, j As Integer Dim m As Integer, n As Integer Dim a As Integer, b As Integer For i = 1 To 99
For j = i + 1 To 100 m = i + j n = j - i
a = Sqr(m) b = Sqr(n)
If a ^ 2 = m And b ^ 2 = n Then
Print i, j End If Next j Next i End Sub 7.
Private Sub Form_Click()
Dim i As Integer, j As Integer, k As Integer For i = 0 To 9 For j = 0 To 12 k = 36 - i - j
If i * 4 + j * 3 + k / 2 = 36 Then Print i, j, k End If Next j Next i End Sub 8.
Private Sub Form_Click() Dim i As Integer, s As Single Do
i = i + 1
s = s + 1 / (i ^ 2) Loop Until 1 / (i ^ 2) < 10 ^ -5 s = 6 * s Print Sqr(s) End Sub
9.
Private Sub Form_Click()
Dim i As Integer, s As Single, p As Single s = 1 p = 1 Do
i = i + 1 p = p * i s = s + 1 / p Loop Until 1 / p < 10 ^ -5 Print s End Sub 10.
Private Sub Form_Click()
Dim i As Integer, j As Integer, s As Single For i = 1 To 50 For j = 1 To i s = s + j Next j Next i Print s End Sub
11.
Private Sub Form_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer m = InputBox(\
n = (m Mod 10) * 10 + m \\ 10 For i = 10 To 99
j = (i Mod 10) * 10 + i \\ 10 If i + m = j + n Then Print m, i Exit For End If Next i End Sub 习题四
二、程序填空
1.
Private Sub Form_Load() cmdEnd.Enabled = False End Sub
Private Sub cmdStart_Click()
Dim n As Integer, i As Integer, j As Integer, p As Integer Dim a(200) As String * 1, str1 As String, t As String str1 = Text1.Text n = Len(str1) For i = 1 To n
a(i) = Mid(str1, i, 1) Next i
For i = 1 To n - 1 p = i
For j = i + 1 To n
If a(p) > a(j) Then p = j Next j
If p <> i Then t = a(i): a(i) = a(p): a(p) = t
Next i
For i = 1 To n Print a(i); Next i
cmdEnd.Enabled = True cmdStart.Enabled = False End Sub
Private Sub cmdEnd_Click() End End Sub 2.
三、程序设计
1.
Private Sub Form_Click()
Dim x(10) As Integer, i As Integer
Dim Max As Integer, m As Integer, Min As Integer, n As Integer 'Max、m存最大值和最大值位置；Min、n存最小值和最小值位置
For i = 1 To 10
x(i) = InputBox(\请输入第\个数：\ Print x(i); '显示在窗体上 Next i
Print '显示换行 Max = x(1) Min = x(1) m = 1 n = 1
For i = 1 To 10
If Max < x(i) Then
Max = x(i)
m = i '记录最大值位置 End If
If Min > x(i) Then
Min = x(i)
n = i '记录最小值位置 End If
Next i
If m > 1 Then '如果最大元素不是第一个，则与第一个交换 x(m) = x(1) x(1) = Max End If
If n < 10 Then '如果最小元素不是第10个，则与第10个交换 x(n) = x(10) x(10) = Min End If
For i = 1 To 10 '在窗体上显示结果 Print x(i); Next i End Sub 2.
Private Sub Command1_Click()
Dim a(10) As Integer, b(10) As Integer, i As Integer '下面完成（1）： For i = 1 To 10
a(i) = InputBox(\请输入第\个数：\ Next i
'（1）完成，下面完成（2）： For i = 1 To 10
t = a(i) '取元素
While t > 0 '分解t的每一位，并加入到b(i)中
b(i) = b(i) + (t Mod 10) '取出t的个位数，加入b(i)中 t = t \\ 10 't缩小十倍，去掉原来的个位 Wend Next i
'（2）完成，下面完成（3）： For i = 1 To 10 Print a(i);
Next i Print
'（3）完成，下面完成（4）： For i = 1 To 10 Print b(i); Next i End Sub 3.
4.
Private Sub Form_Click()
Dim a() As Single, n As Integer, i As Integer Dim sum As Single, v As Single, s As Single n = InputBox(\请输入元素个数：\ ReDim a(n) For i = 1 To n