3-24 公倍数
Dim i As Integer, n As Integer, gbs As Double
n = Val(InputBox("请输入n个个数", ""))
ReDim a(1 To n) As Double
For i = 1 To n
a(i) = Val(InputBox("输入这n个数", ""))
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 gbs
程序10.(1)
Option Base 1
Private Sub Form_Click()
Dim n As Integer, i As Integer, j As Integer, k As Integer, c%()
n = Val(InputBox("请输入行数n："))
n = n + 1
ReDim c(n, n)
For i = 1 To n
c(i, 1) = 1
c(i, i) = 1
Next i
For i = 3 To n
For j = 2 To i - 1
c(i, j) = c(i - 1, j - 1) + c(i - 1, j)
Next j
Next i
For i = 1 To n
For j = 1 To i
Print c(i, j);
Next j
Print
Next i
End Sub
(2)
Private Sub Form_Click()
Dim n As Integer, i As Integer, j As Integer, k As Integer, c%()
Do ‘假设n范围在 1-9
n = Val(InputBox("请输入行数n："))
Loop Until n > 0 And n < 10
n = n + 1
ReDim c(n, n)
'产生杨辉三角形
For i = 1 To n
c(i, 1) = 1
c(i, i) = 1
Next i
For i = 3 To n
For j = 2 To i - 1
c(i, j) = c(i - 1, j - 1) + c(i - 1, j)
Next j
Next i
'打印杨辉三角形，每个数字占 4列
For i = 1 To n '打印 n 行
Print Tab((4 * n - 4 * i) / 2); '确定打印起始列
For j = 1 To i '打印 i 个数字
Print Space(4 - Len(Trim(Str(c(i, j))))) & Trim(Str(c(i, j)));
Next j
Print
Next i
End Sub
产生9个数，再插入一个数 按顺序排列
Dim i As Double
ReDim a(0 To 9) As Double
For i = 1 To 9
a(i) = Int(Rnd * 100) + 1
Next i
For i = 1 To 9
For j = i + 1 To 9
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 1 To 9
Print a(i);
Next i
Dim x As Double
a(0) = Val(InputBox("", ""))
For i = 1 To 9
If a(i) < a(0) Then
temp = a(i)
a(i) = a(0)
a(0) = temp
End If
Print
Next i
For i = 0 To 9
Print a(i);
Next i