2005年春上机改错题01.doc

2005年春上机改错题01Option ExplicitPrivate 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 IEnd SubPrivate 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 Sub2005年春上机编程题01Option ExplicitOption Base 1Private 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 SubPublic Function sum(b() As Integer, m As Integer) As String Dim i As Integer For i = 1 To m sum = sum & CStr(b(i) Next iEnd Function2005年春上机改错题02Option ExplicitPrivate Sub Command1_Click() Dim s1 As String, s2 As String Dim i As Integer, key As Integer s1 = Text1.Text s2 = Text2 For i = 1 To Len(s2) key = Val(Mid(s2, i, 1) Call encode(s1, key) Next i Text3 = s1End SubPrivate Sub encode(s As String, k As Integer) Dim i As Integer, t As String, n As Integer t = Mid(s, 1, 1) n = k Mod Len(s) If n = 0 Then k = n n = k End If For i = 2 To k For i = 2 To n Mid(s, i - 1, 1) = Mid(s, i, 1) Next i Mid(s, i , 1) = tMid(s, i - 1, 1) = tEnd Sub2005年春上机编程题02Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, j As Integer, s As String Dim tem As String, n As Integer Dim len1 As Integer, a(8) As Integer, b(8) As Integer s = Text1 len1 = Len(s) i = 1 Do n = InStr(s, ,) If n = 0 Then Exit Do a(i) = Val(Left(s, n - 1) i = i + 1 s = Right(s, Len(s) - n) Loop For i = 1 To 8 b(i) = a(i) Next i Call sub1(a) s = For i = 1 To 8 For j = 1 To 8 If a(i) = b(j) Then s = s + Str(j) b(j) = -1 Exit For End If Next j Next i Text2 = sEnd SubPrivate Sub sub1(a() As Integer) Dim i As Integer, j As Integer, t As Integer For i = 1 To 7 For j = i + 1 To 8 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next iEnd Sub2005年春上机改错题03Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, k As Integer, s As String Dim f As Boolean Do k = k + 1 For i = 3 To 100 s = i & 2 f = False Call sub1(i), k, s, f) If f Then Text1 = Text1 & s & vbCrLf End If Next i Loop While k 6End SubPrivate Sub sub1(n As Integer, k As Integer, s As String, f As Boolean) Dim sum1 As Long, j As Integer, sum2 As Long, a As Integer sum1 = n 2 For j = 1 To k n = n + 1 sum1 = sum1 + n 2 s = s & + & n & 2 Next j n = n + 1 s = s & = & n & 2 sum2 = n 2 For a = 1 To k - 1 n = n + 1 sum2 = sum2 + n 2 s = s & + & n & 2 Next a If sum1 = sum2 Then f = True End IfEnd Sub2005年春上机编程题03Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, s1 As String, s2 As String, s3 As String Dim tem As String, n As Integer, j As Integer Dim a() As String s1 = LCase(Text1) s2 = Text2 Open d:data.txt For Input As #10 Do While Not EOF(10) Line Input #10, s3 j = j + 1 s1 = LCase(Text1) n = InStr(LCase(s3), s1) tem = Left(s3, n - 1) & s2 & Right(s3, Len(s3) - n - 1) ReDim Preserve a(j) a(j) = tem Loop Close 10 Open d:data.txt For Output As #10 For i = 1 To j Print #10, a(i) Next i CloseEnd Sub2005年春上机改错题04Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, p(2) As Integer Dim j As Integer Dim s As String, f As Boolean For n = 100 To 999 Call pnum(n, p, f) If f And n Mod 37 Then s = CStr(n) For j = 1 To 2 If p(j) Mod 37 0 Then MsgBox (验证失败) Exit Sub Else s = s & Str(p(j) End If Next j List1.AddItem s End If Next nEnd SubPrivate Sub pnum(ByVal n As Integer, p() As Integer, f As Boolean) Dim i As Integer, k As Integer, h As Integer f = False If InStr(CStr(n), 0) = 0 Then Exit Sub else f = True For i = 1 To 2 k = n Mod 10 h = n 20 p(i) = Str(k) & Str(h) Val(Str(k) & Str(h) n = p(i) Next iEnd Sub2005年春上机编程题04 题目将若干正整数排成圆圈依次编号(例如，26为第一号)。编写程序，找出拐点元素(所谓拐点元素，是指它比左右相邻元素都大或都小)，并输出拐点元素的值及位置。编程要求1程序参考界面如下图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。2按“运行”按钮，则生成一个由15个无重复数的两位随机整数组成的数列，并显示到文本框内；求出该数列中的拐点元素，按示例格式(数据、位置号)显示在列表框中；按“清除”按钮，则将文本框、列表框清空，将焦点置于文本框上；按“退出”按钮，结束程序运行。3.程序中应定义一个生成没有重复元素的两位随机整数数组的通用过程。要求将窗体文件和工程文件分别命名为f2.frm和P2.Vbp，并保存到软盘A的根目录下。Option ExplicitPrivate Sub Command1_Click() Dim a(15) As Integer, i As Integer, x As Integer, y As Integer Dim s As String Call sub1(a) For i = 1 To 15 x = (i + 15 - 1) Mod 15 y = (i + 15 + 1) Mod 15 If x = 0 Then x = 15 If y = 0 Then y = 15 If (a(x) a(i) And a(y) a(i) Or (a(x) a(i) And a(y) j Then b(j) = x Text1 = Text1 & Str(x) Exit Do End If Loop j = j + 1Loop Until j 15End Sub2005年春上机改错题05 下列程序的功能是：已知三角形三个顶点的坐标，通过距离公式求出三边长度，再求出三角形的面积(下图为参考界面)。Option ExplicitPrivate Sub Command1_Click() Dim xy(3, 2) As Single, i As Integer Dim st As String, n As Integer, n1 As Integer, s As String Text1 = (28.5,36.7),(12.3,10.9),(45.5,25.4) st = Text1 Do i = i + 1 n = InStr(st, ) s = Mid(st, 2, n - 1)Mid(st, 2, n - 2) n1 = InStr(s, ,) xy(i, 1) = Left(s, n1 - 1) xy(i, 2) = Mid(s, n1 + 1, n - n1 - 2) If n = Len(st) Thenn 0 Then Exit Sub Do a(n) = x Mod 10 x = x 10 n = n + 1 Loop While x 0 For i = n - 1 To 2 Step -1 If a(i) - a(i - 1) s = s & CStr(i) & = For j = 1 To 6 s = s & Str(cn(i) s = s & Str(cn(j) Next j s = s & vbCrLf End If Next i Text1 = sEnd SubPrivate Sub cd(n As Integer, cn() As Integer) Dim i As Integer, k As Integer For i = 1 To n k = k + 1 1 If n Mod i = 0 Then ReDim Preserve cn(k) cn(k) = i End If Next iEnd Sub2005年春上机编程题06Option ExplicitOption Base 1Private Sub Command1_Click() Dim i As Integer, k As Integer, j As Integer Dim n As Integer, p() As Integer, st As String Dim m As Integer For i = 2 To 100 If Prime(i) Then k = k + 1 ReDim Preserve p(k) p(k) = i End If Next i For i = 4 To 100 n = 0 For j = 1 To k If i Mod p(j) = 0 Then n = n + 1 End If Next j If n = 2 Then m = m + 1 st = st & Str(i) Else If m 3 Then Print st m = 0 st = End If Next iEnd SubPrivate Function Prime(n As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(n)If n Mod i = 0 Then Exit FunctionNext iPrime = TrueEnd Function2005年春上机改错题07Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, a(10) As Integer, s() As Integer Dim j As Integer, st As String For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Text1 = Text1 & Str(a(i) Next i ReDim s(1) s(1) = a(1) List1.AddItem Str(s(1) st = For i = 2 To 10 Call sort(a(i), s) For j = 1 To UBound(s) st = st & Str(s(j) Next j List1.AddItem st Next iEnd SubPrivate Su