南京理工大学杜姗姗老师的vb上机作业全集.docVIP

1.幻影素数 Option Explicit Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer For x = 1 To 9 For y = 0 To 9 For z = 0 To 9 Call sos(x, y, z) Next Next Next End Sub Private Sub sos(x As Integer, y As Integer, z As Integer) Dim i As Integer, s As Integer, t As Integer s = x * 100 + y * 10 + z t = z * 100 + y * 10 + x For i = 2 To s - 1 If s Mod i = 0 Or t Mod i = 0 Then Exit For Next If i s - 1 And s t Then Print s, t End Sub 2.计算a+aa+aaa+......+aa...aaa(n个a的和） Option Explicit Private Sub Command1_Click() Dim a As String, n As Integer a = Text1: n = Text2 Call calculate(a, n) Text3.Text = calculate(a, n) End Sub Private Function calculate(x As String, y As Integer) As Long Dim s As Long, i As Integer, b As String For i = 1 To y b = b x s = s + CLng(b) Next calculate = s End Function 矩阵的生成与行列上最值的寻找 Option Explicit Option Base 1 Dim n As Integer Dim a() As Integer Private Sub Command1_Click() Dim i As Integer, j As Integer n = Text1 ReDim a(n, n) For i = 1 To n For j = 1 To n a(i, j) = Int(11 + Rnd * (89)) Print a(i, j), Next Print Next End Sub Private Sub Command2_Click() Dim min As Integer, max As Integer, b As Integer, c As Integer min = a(1, 1) 找主对角线上最小值 b = 2: c = 1 Do If a(b, b) min Then min = a(b, b): c = b b = b + 1 Loop Until b n Print 主对角线上的最小元素是a( c , c )= min 找副对角线上最大值 Dim d As Integer, e As Integer, f As Integer d = 2: e = 1: f = n max = a(1, n) Do If a(d, n + 1 - d) max Then max = a(d, n + 1 - d): e = d: f = n + 1 - d d = d + 1 Loop Until d n Print 副对角线上的最大元素是a( e , f )= max End Sub 注：红色字体是我为大家写的备注，有助大家理解 生成菱形 Option Explicit Private Sub Command1_Click() Dim a As String, b As String, c As String, d As String Dim i As Integer, j As Integer, n As Integer n = Text1.Text If n Mod 2 = 0 Then Label1.Caption = 请输入一个奇数 Else Cls For i = 1 To (n + 1) / 2 a = For j = 1 To ((n + 1) / 2 - i) a = a Next b = b * Print a b Next For i = 1 To (n - 1) / 2 c = For j = 1 To ((n + 1