2010秋VB06上机答案.docVIP

2010年（秋）上机 Visual Basic（VB06）答案 一、改错 【题目】本程序的功能是求给定数据范围内，只有n个不相同的质因子的整数。 Option Explicit Private Sub CmdFind_Click() Dim pn() As Integer, n As Integer, k As Integer Dim st As String, j As Integer, fg As Boolean n = InputBox(质因子个数:, , 3) For k = 127 To 900 fg = False Call pf(k, pn, fg, n) If fg Then st = CStr(k) == For j = 1 To n - 1 st = st pn(j) , Next j st = st pn(j) List1.AddItem st End If Next k End Sub Private Sub pf(ByVal n As Integer, pn() As Integer, flag As Boolean, Cn As Integer) err 无ByVal Dim k As Integer, i As Integer k = 2 Do If n Mod k = 0 Then i = i + 1 ReDim Preserve pn(i) err 无Preserve pn(i) = k n = n \ k Else k = k + 1 End If Loop Until n = 1 If i = Cn Then For i = 1 To UBound(pn) - 1 For k = i + 1 To UBound(pn) If pn(i) = pn(k) Then Exit Sub err For Next k Next i flag = True End If End Sub 二、编程题 【题目】本程序的功能是，找出所有等于两个平方数之和的数。例如：26=1*1+5*5，所以，26就是符合要求的整数。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer Dim p As Integer, q As Integer, flag As Boolean a = Text1: b = Text2 For i = a To b flag = False Call judge(i, p, q, flag) If flag Then List1.AddItem i = p ^2+ q ^2 Next i End Sub Private Sub judge(n As Integer, p As Integer, q As Integer, flag As Boolean) Dim i As Integer For i = 1 To Sqr(n) p = i * i q = n - p If q 0 Then Exit For If Int(Sqr(q)) = Sqr(q) Then flag = True q = Sqr(q) p = Sqr(p) Exit Sub End If Next i End Sub Private Sub Command2_Click() Text1 = Text2 = List1.Clear Text1.SetFocus End Sub Private Sub Command3_Click() End End