VB编程练习.doc

VB编程练习 找出介于a和b之间所有能构成幻影素数的数。 Option Explicit Private Sub Command1_Click() Dim i As Integer, js As Integer Dim t As Integer, a As Integer, b As Integer a = Text1: b = Text2 List1.AddItem 幻影素数对： For i = a To b If Prime(i) Then t = Change(i) If Prime(t) And i t Then List1.AddItem i 与 t 是幻影素数对 js = js + 1 End If End If Next i If js = 0 Then List1.List(0) = 本区间无幻影素数 End Sub Private Function Prime(k As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(k) If k Mod i = 0 Then Exit Function Next i Prime = True End Function Private Function Change(ByVal t As Integer) As Integer Dim s As String Do Until t = 0 s = s CStr(t Mod 10) t = t \ 10 Loop Change = Val(s) End Function 验证任意一个不超过9位的自然数，经过下述的反复变换最终得到123。123称为陷阱数。 Option Explicit Private Sub Command1_Click() Dim n As Long n = Text1 List1.AddItem n Do While n 123 Call validate(n) List1.AddItem n Loop List1.AddItem 验证成功！ End Sub Private Sub validate(n As Long) Dim a As Integer, b As Integer, c As Integer Dim i As Integer, t As Integer c = Len(CStr(n)) For i = 1 To c If Mid(CStr(n), i, 1) Mod 2 = 0 Then a = a + 1 Else b = b + 1 End If Next i If a = 0 Then t = a: a = b: b = t End If n = a * 100 + b * 10 + c End Sub 已知某个N阶方阵的元素均为1~50之间的整数。编写程序，找出该方阵（二维数组）的所有凸点。 Option Explicit Option Base 1 Private Sub command1_click() Dim a() As Integer, i As Integer, j As Integer, n As Integer n = InputBox(输入方阵的阶 n :, , 5) ReDim a(n, n) Randomize For i = 1 To n For j = 1 To n a(i, j) = Int(50 * Rnd) + 1 Text1 = Text1 Right( a(i, j), 3) Next j Text1 = Text1 vbCrLf Next i Call Look_for(a) End Sub Private Sub Look_for(a() As Integer) Dim ub As Integer, M As Integer, L As Integer Dim i As Integer, j As Integer, k As Inte