VB实验题答案.docVIP

实验4-3-3 Private Sub Form_Click() Dim esp As Double, a As Double, b As Double, c As Double Dim fa As Double, fb As Double, fc As Double esp = Val(InputBox(输入误差)) a = 0 b = 1 c = (a + b) / 2 Do Until Abs(a - c) esp Or Abs(b - c) esp fa = a ^ 3 - a ^ 4 + 4 * a ^ 2 - 1 fb = b ^ 3 - b ^ 4 + 4 * b ^ 2 - 1 fc = c ^ 3 - c ^ 4 + 4 * c ^ 2 - 1 If fa * fc 0 Then a = c ElseIf fb * fc 0 Then b = c End If c = (a + b) / 2 Loop Print Format(c, ####0.#########) End Sub 实验4-3-4 Private Sub Command1_Click() Dim s As String, i As Long, x As Long i = Val(Text1.Text) x = i Do While x 0 s = s x Mod 10 x = x \ 10 Loop Text2.Text = s End Sub 实验5-1-2 Option Base 1 Private Sub Command1_Click() Dim a As Variant, b As Variant, i As Integer a = Array(2, 8, 7, 6, 4, 28, 70, 25) b = Array(79, 27, 32, 41, 57, 66, 78, 80) Dim c(8) As Integer, s1 As String, s2 As String, s3 As String For i = 1 To UBound(a) c(i) = a(i) + b(i) s1 = s1 a(i) s2 = s2 b(i) s3 = s3 c(i) Next i Text1.Text = s1 Text2.Text = s2 Text3.Text = s3 End Sub 实验5-1-3 Option Base 1 Dim a(20) As Integer Private Sub Command1_Click() Dim i As Integer, s As String Randomize For i = 1 To 20 a(i) = Int(100 * Rnd) + 1 s = s a(i) Next i Text1 = s End Sub Private Sub Command2_Click() Dim i As Integer Dim max As Integer, sum As Integer, index As Integer Dim s As String index = 1 For i = 1 To 20 sum = 0 For j = 0 To 3 If i + j 20 Then sum = sum + a(i + j - 20) Else sum = sum + a(i + j) End If Next j If sum max Then max = sum index = i End If Next i Text2 = CStr(sum) For i = 0 To 3 If index + i 20