上机试卷(改错).docVIP

2009年春04 本程序的功能是：随机生成5组数，每组数由5个3位整数组成，要求每一个数必须且只能含有一个数字8。 Option explicit Option base 1 Private sub command1_click( ) Dim a(5) as integer Dim i as integer, j as integer, s as string s=”” for i=1 to 5 j=1 do while j=5 a(j)=int(100+rnd*900) if in8(a(i)) then j=j+1 end if loop for j=1 to 5 s=s “ ” a(j) next j list1.additem s next i end sub private function in8(n as integer) as Boolean dim i as integer, js as integer do until n=0 if n mod 10=8 then js=js+1 end if n=n\10 loop if js=1 then in8=true end function 2009年春05 本程序的功能是：生成12个只有两个相同数字的3位随机数。（例如797） Option explicit Option base 1 Private Sub Command1_Click() Dim k As Integer, n As Integer, num() As Integer, i As Integer Do n = Int(Rnd * 900) + 100 If validate(n) Then k = k + 1 ReDim num(k) num(k) = n End If Loop Until k = 12 For i = 1 To UBound(num) If i Mod 4 0 Then Text1 = Text1 Str(num(i)) Else Text1 = Text1 Str(num(i)) vbCrLf End If Next i End Sub Private Function validate(n As Integer) As Boolean Dim p(3) As Integer, i As Integer, j As Integer, k As Integer Do i = i + 1 p(i) = n Mod 10 n = n \ 10 Loop Until n 0 For i = 1 To UBound(p) - 1 For j = i + 1 To UBound(p) If p(i) = p(j) Then k = k + 1 Next j Next i If k = 1 Then validate = True End Function 2009年春06 找出介于100、999之间的由三个不同数字组成的完全平方数。所谓完全平方数是指其平方根为整数的数。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim i As Integer, p As Single For i = 100 To 999 If pf(i) And verify(i) Then p = Sqr(i) List1.AddItem i = p * p End If Next i End Sub Private Function pf(n As Integer) As Boolean If Sqr(n) = Int(Sqr(n)) Then pf = True End Function Private Function verify(n As Integer) As Boolean Dim a() As Integer, k As Integer, i As Integer, j As Integer Do