计算机江苏二级考试.docVIP

计算机二级上机练习 1．编写程序，生成两个均由两位随机整数组成的数组，每个数组中10个元素互不相同，找出同时存在于这两个数组中的数据并输出。要求程序自定义一个通用Sub过程，用于生成无重复数的两个数组。 Option Explicit Dim a(10) As Integer, b(10) As Integer Private Sub Command1_Click() Dim i As Integer Call arry(a) Call arry(b) For i = 1 To 10 Text1.Text = Text1.Text Str(a(i)) Text2.Text = Text2.Text Str(b(i)) Next i End Sub Private Sub Command2_Click() Dim i As Integer, j As Integer, k As Integer For i = 1 To 10 For j = 1 To 10 If a(i) = b(i) Then k = k + 1 Text3.Text = Text3.Text Str(a(i)) End If Next j Next i If k = 0 Then Text3.Text = 无共同元素！ End If End Sub Private Sub arry(d() As Integer) Dim i As Integer, j As Integer, n As Integer Randomize For i = 1 To 10 n = Int(Rnd * 90) + 10 For j = 1 To i If n = d(j) Then Exit For Next j If j = i Then i = i - 1 Else d(i) = n Next i End Sub Private Sub Command3_Click() Text1.Text = : Text2.Text = : Text3.Text = End Sub 2．找出2个不同的数字组成的回文平方数。 Option Explicit Private Sub Command1_Click() Dim a(0 To 9) As Integer, i As Long, flg As Boolean Dim l As Long, j As Integer, sum As Integer For i = 10 To 1000 l = i * i Erase a Call sub1((1), a, flg) If flg Then For j = 0 To 9 sum = sum + a(j) Next j If sum = 2 Then List1.AddItem CStr(i) ^2 Str(l) End If End If sum = 0 Next i End Sub Private Sub sub1(x As Long, a() As Integer, bl As Boolean) Dim n As Integer, idx As Integer, i As Integer bl = False n = Len(CStr(x)) For i = 1 To n / 2 If Mid(CStr(x), i, 1) Mid(CStr(x), n - i + 1, 1) Then Exit Sub End If Next i bl = True For i = 1 To n idx = x Mod 10 a(idx) = 1 x = (x \ 10) Next i End Sub 3．找出100以内所有只有两个不同质因子的数（即该数除1和自身外只有两个因子，并且这两个因子都是素数）。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim I As Integer, K As Integer, S As String Dim Counter As Integer, P(2) As Integer For I = 6 To 100 Counter = 0 For K = 2 To I - 1 If I Mod K = 0 Then Counter = Co