2010秋VB03上机答案.docVIP

2010年（秋）上机 Visual Basic（VB03）答案 一、改错 【题目】本程序的功能是，在5张卡片上写有1～5五个数字，进行排列相邻卡片以及Private Sub CmdRun_Click() Dim i As Long, j As Integer, S As String * 5, Char(5) As String * 1 Dim BL As Boolean ‘BL = False 位置错 For i = 12345 To 54321 BL = False S = CStr(i) Call Validate(S, Char, BL) If BL Then For j = 2 To Len(S) If Abs(Char(j - 1) - Char(j)) = 1 Then Exit For End If Next j If j Len(S) And Abs(Char(1) - Char(5)) 1 Then err Or List1.AddItem i End If End If Next i End Sub Private Sub Validate(S As String, Ch() As String * 1, Flg As Boolean) Dim i As Integer, j As Integer For i = 1 To 5 Ch(i) = Mid(S, i, 1) If Ch(i) = 0 Or Ch(i) 5 Then Exit Sub err Exit For For j = 1 To i - 1 If Ch(i) = Ch(j) Then Exit Sub End If Next j Next i Flg = True End Sub 二、编程题 【题目】编写程序，在1001～9999范围内找出满足下列条件的数对一个首尾数字相同的素数，将该数字的百位和十位数字互换后得到一个新的4位数也是一个素数；并要求数对的第一个数比第二个数小。例如：(1021 1201)、(1201 1021)只取第一对。Option Explicit Private Sub CmdRun_Click() Dim p As String, k As Integer, n As Integer For k = 1001 To 9999 p = CStr(k) If Left(k, 1) = Right(p, 1) Then Call Transform(k, n) If Prime(k) And Prime(n) And k n Then Text1 = Text1 ( k n ) vbCrLf End If End If Next k End Sub Private Function Prime(n As Integer) As Boolean Dim k As Integer For k = 2 To Sqr(n) If n Mod k = 0 Then Exit Function Next k Prime = True End Function Private Sub Transform(n As Integer, M As Integer) Dim i As Integer, S1 As String, S2 As String S1 = CStr(n) For i = Len(S1) To 1 Step -1 S2 = S2 Mid(S1, i, 1) Next i M = Val(S2) End Sub Private Sub CmdClear_Click() Text1 = CmdRun.SetFocus End