2010秋VB01上机答案.docVIP

2010年（秋）上机 Visual Basic（VB01）答案 一、改错 【题目】本程序的功能是，找出10～100之间的所有只有奇数真因子的整数。所谓数据n的真因子是指除1和n之外的因子。 Private Sub Cmd1_Click() Dim fac() As Integer, n As Integer Dim i As Integer, sn As String, flag As Boolean flag = False err 位置错 For n = 10 To 100 flag = False Call jsyz(n, fac, flag) If flag Then sn = n : For i = 1 To UBound(fac) sn = sn fac(i) , Next i List1.AddItem Left(sn, Len(sn) - 1) End If Next n End Sub Private Sub jsyz(n As Integer, fa() As Integer, flag As Boolean) Dim i As Integer, k As Integer err n As Integer重复定义 For i = 2 To n - 1 If n Mod i = 0 Then If i Mod 2 0 Then k = k + 1 ReDim Preserve fa(k) err无Preserve fa(k) = i Else Exit Sub End If End If Next i If k 0 Then flag = True End Sub 二、编程题 【题目】编写程序，随机生成一个元素值为10～40之间整数的4行5列数组；找出该二维数组的最大元素与最小元素,并将最大元素与最小元素的值以及相应的行号和列号输出到图片框中。（注意：等于数组最大元素值与最小元素值的数组元素都可能有多个） Option Explicit Option Base 1 Private Sub CmdRun_Click() Dim a(4, 5) As Integer, i As Integer, j As Integer Dim maxi As Integer, mini As Integer Randomize For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(Rnd * 31) + 10 Pic1.Print a(i, j); Next j Pic1.Print Next i Call maxmin(a, maxi, mini) For i = 1 To 4 For j = 1 To 5 If a(i, j) = maxi Then Pic2.Print maxi; i; j Next j Next i For i = 1 To 4 For j = 1 To 5 If a(i, j) = mini Then Pic2.Print mini; i; j Next j Next i End Sub Private Sub maxmin(a() As Integer, maxv As Integer, minv As Integer) Dim i As Integer, j As Integer maxv = a(1, 1): minv = a(1, 1) For i = 1 To UBound(a, 1) For j = 1 To UBound(a, 2) If a(i, j) maxv Then maxv = a(i, j) ElseIf a(i,