文档介绍：计算二的n次幂
代码
Private Sub Command1_Click()
Dim n As Integer, mi As Double
Dim i As Integer
n = Int(Val(InputBox("")))
mi = 1
For i = 1 To n
mi = mi * 2
Next i
Print " 2 的"; n; "次幂为："; mi
End Sub
编写程序，随机生成100个两位整数，并统计出其中小于等于40、大于40小于等于70及大于70的数据个数。
代码
Private Sub Command1_Click()
Dim x As Integer, i As Integer
Dimt1 As Integer,t2 As Integer,t3 As Integer
t1 = 0:t2 = 0:t3 = 0
Randomize
For i = 1 To 100
x = Int(Rnd * 90 + 10)
If x <= 40 Then
t1 =t1 + 1
ElseIf x < 70 Then
t2 =t2 + 1
Else
t3 =t3 + 1
End If
Next i
Printt1,t2,t3
End Sub
编写程序，单击窗体时在窗体上输出如下所示的图形。
代码
Private Sub Form_Click()
Dim i As Integer, begin As Integer
begin = 5
For i = 1 To 5
Print Tab(begin);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
begin = begin - 1
Next i
begin = 2
For i = 4 To 1 Step -1
Print Tab(begin);
or j = 1 To 2 * i - 1
Print "*";
Next j
Print
begin = begin + 1
Next i
End Sub
编写程序，计算并输出下面级数前n项(n=80)的部分和。
1-1/2+1/3-1/4+1/5+……＋1/n
代码
Inputbox中输入2，出现上述结果
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim sum As Double
n = Val(InputBox(""))
sum = 0
For i = 1 To n
If i Mod 2 <> 0 Then
sum = sum + (1 / i)
Else
sum = sum - (1 / i)
End If
Next i
Print sum
End Sub
有100匹马，驮100担货：大马驮3担，中马驮2担，两匹小马驮1担，问有大、中小马各多少？
代码
显示结果如上所示
Private Sub Form_Click()
Dim x As Integer, y As Integer, z As Integer
Print "大马", "中马", "小马"
For x = 0 To 33
For y = 0 To 50
z = 100 - x - y
If (x * 3 + y * 2 + z * ) = 100 Then
Print x, y, z
End If
Next y
Next x
编写程序，要求从键盘输入0-6中的任一