vb重点程序代码.docVIP

杨辉三角 Option Base 1 Private Sub Form_Click() Dim n As Integer, a(9, 9) As Integer, i As Integer, j As Integer On Error GoTo k 下列代码中若出现错误，转到标号为K的语句执行。 n = InputBox(请输入n，0n10) For i = 1 To n: a(i, 1) = 1: a(i, i) = 1: Next i For i = 3 To n For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j, i For i = 1 To n Print Tab(30 - 2 * i); For j = 1 To i Print Space(4 - Len(Trim(Str(a(i, j))))); Trim(Str(a(i, j))); Next j Print Next i Exit Sub k: MsgBox 输入n值小于1或大于10，数组下标超界。 End Sub 输出棱形 Private Sub Command1_Click() Dim i As Byte, j As Byte, n As Byte Do n = InputBox(n=, 1--9) Loop While n 1 Or n 9 For i = 1 To 2 * n - 1 If n = i Then Picture1.Print Space(n - i); For j = 1 To 2 * i - 1 Picture1.Print Chr(64 + i); Next j Else Picture1.Print Space(i - n); For j = 2 * (i - n) - 1 To 2 * n - 3 Picture1.Print Chr(64 + 2 * n - i); Next j End If Picture1.Print Next i End Sub 最大公约数 Private Sub Command2_Click() Dim i As Integer, gys As Long, n As Integer n = InputBox(n=, 数组元素的个数n) ReDim a(n) As Integer For i = 1 To n a(i) = InputBox(a( + Str(i) + )=, 输入数组各元素) Next i gys = a(1) Do For i = 2 To n If a(i) Mod gys 0 Then gys = gys - 1: Exit For Next i Loop Until i = n + 1 Print gys End Sub 最小公约数 Private Sub Command1_Click() Dim i As Integer, gbs As Long, n As Integer n = InputBox(n=, 数组元素的个数n) ReDim a(n) As Integer For i = 1 To n a(i) = InputBox(a( + Str(i) + )=, 输入数组各元素) Next i gbs = a(1) Do For i = 2 To n If gbs Mod a(i) 0 Then gbs = gbs +a(1) : Exit For Next i Loop Until i = n + 1 Print gys End Sub 随机数排序 Private Sub Command1_Click() Dim n As Byte, i As Byte, j As Byte, k As Byte, temp As Single n = InputBox(请输入数组元素个数, 输入数据) ReDim a(n) As Single For i = 1 To n a(i) = Int(Rnd * 90) + 10 Next i For i = 1 To n - 1 For j = i + 1 To n If a(j) a(i) Then k = a(i): a(i) = a(j): a(j) = k Next j Next i For i = 1 To n Print a(i); Next i Print End