《[计算机软件及应用]VB编程练习》由会员分享，可在线阅读，更多相关《[计算机软件及应用]VB编程练习（38页珍藏版）》请在金锄头文库上搜索。
1、VB编程练习1、 找出介于a和b之间所有能构成幻影素数的数。Option ExplicitPrivate 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 =
2、 js + 1 End If End If Next i If js = 0 Then List1.List(0) = 本区间无幻影素数End SubPrivate Function Prime(k As Integer) As BooleanDim i As Integer For i = 2 To Sqr(k) If k Mod i = 0 Then Exit Function Next i Prime = TrueEnd FunctionPrivate Function Change(ByVal t As Integer) As IntegerDim s As String Do Unt
3、il t = 0 s = s & CStr(t Mod 10) t = t 10 Loop Change = Val(s)End Function2、 验证任意一个不超过9位的自然数，经过下述的反复变换最终得到123。123称为陷阱数。Option ExplicitPrivate 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 SubPrivate Sub validat
4、e(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 + cEnd Sub3、 已知某个N阶方阵的元素均为150之间的整数。编写程序，找出
5、该方阵（二维数组）的所有凸点。Option ExplicitOption Base 1Private 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 = Tex
6、t1 & vbCrLf Next i Call Look_for(a)End SubPrivate 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 Integer, js As Integer ub = UBound(a, 1) Text2 = 方阵的凸点有： For i = 1 To ub M = a(i, 1): L = 1 For j = 2 To ub If a(i, j) M Then M = a(i, j)
7、L = j End If Next j For k = 1 To ub If a(k, L) M Then Exit For Next k If k ub Then js = js + 1 Text2 = Text2 & vbCrLf & a( & i & , & L & ) End If Next i If js = 0 Then Text2 = 方阵没有凸点End Sub4、随机生成由两位整数组成的4行5列的二维数组，求它的标记数组。Option ExplicitDim a(4, 5) As IntegerPrivate Sub Command1_Click() Dim i As Inte
8、ger, j As Integer For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(Rnd * 90) + 10 Picture1.Print a(i, j); Next j Picture1.Print Next iEnd SubPrivate Sub command2_click() Dim sign(4, 5) As String * 1, i As Integer, j As Integer Dim av As Single av = avr(a) For i = 1 To 4 For j = 1 To 5 If a(i, j) av Then
9、sign(i, j) = G ElseIf a(i, j) av Then sign(i, j) = L Else sign(i, j) = E End If Picture2.Print sign(i, j); ; Next j Picture2.Print Next iEnd SubPrivate Function avr(a() As Integer) As Single Dim sum As Integer, i As Integer, j As Integer For i = 1 To 4 For j = 1 To 5 sum = sum + a(i, j) Next j Next
10、i avr = sum / (4 * 5)End Function5、查找介于m与n之间的所有凸点数。所谓凸点数是一个不含数字0的5位整数。Option ExplicitPrivate Sub Command1_Click() Dim m As Long, n As Long, i As Long, j As Long Dim js As Integer m = Text1: n = Text2 For i = m To n If validate(i) Then List1.AddItem i js = js + 1 End If Next i If js = 0 Then List1.Ad
11、dItem 无凸点数End SubPrivate Function validate(n As Long) As Boolean Dim s As String, a(5) As Integer, i As Integer Dim k As Boolean s = n For i = 1 To Len(s) a(i) = Val(Mid(s, i, 1) If a(i) = 0 Then Exit Function Next i k = a(1) a(2) And a(2) a(4) And a(4) a(5) If k Then validate = TrueEnd Function6、随机
12、生成一个n行（n由InputBox函数输入，缺省值为5）2列的两位整数数组。将第1列元素作为排序主关键字，第2列元素作为排序次关键字，以行为单位对数组按从小到大进行排序，先按主关键字排序，主关键字相同则按次关键字排序。Option ExplicitDim a() As IntegerPrivate Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer n = InputBox(数组行数n=, 输入, 5) ReDim a(n, 2) For i = 1 To n For j = 1 To 2 a(i, j) = Int(Rnd * 90) + 10 Picture1.Print a(i, j); Next j Picture1.Print Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer, j As Int
