2005年春上机改错题01.doc

2005年春上机改错题01 Option Explicit Private Sub Command1_Click() Dim I As Integer, S As String, Flg As Boolean For I = 2 To 10 Call Sub1(I, S, Flg) Flg = False If Flg Then Text1.Text = Text1 S vbCrLf End If Next I End Sub Private Sub Sub1(K As Integer, S As String, F As Boolean) Dim I As Integer, Sum1 As Integer, Sum2 As Integer Dim N As Integer, Start As Integer Do While Sum1 Sum2 And N 100 ‘位置错 Start = Start + 1 N = Start S = N: Sum1 = N For I = 1 To K - 1 N = N + 1 Sum1 = Sum1 + N S = S + N Next I S = S = N N = N + 1 Sum2 = N For I = 1 To K - 2 N = N + 1 Sum2 = Sum2 + N S = S + N Next I N = N + 1 If Sum1 = Sum2 Then F = True End If Loop End Sub 2005年春上机编程题01 Option Explicit Option Base 1 Private Sub Command1_Click() Dim i As Integer, a() As Integer, n As Integer Dim d(20) As Long, k As Integer, j As Integer, sd As Long Dim hang As Integer, f As Boolean n = Val(Text2) Randomize ReDim a(n) hang = 1 For i = 1 To 20 Do Do a(1) = Int(9 * Rnd) Loop While a(1) = 0 For k = 2 To n a(k) = Int(9 * Rnd) Next k sd = sum(a, n) For j = 1 To i If sd = d(j) Then Exit For Next j Loop While j i If hang Mod 5 = 0 Then Text1.Text = Text1.Text Str(sd) vbCrLf hang = 1 Else Text1.Text = Text1.Text Str(sd) hang = hang + 1 End If d(i) = sd f = True For j = 1 To n - 1 If a(j) = a(j + 1) Then f = False Next j If f = True Then List1.AddItem sd Next i End Sub Public Function sum(b() As Integer, m As Integer) As String