累加求和1到100
Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 For i = 1 To 100 sum = sum + i Next
Text1.Text = sum End Sub
Private Sub Command2_Click() End End Sub
1到100的奇数和
Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0
For i = 1 To 100 step 2 sum = sum + i
Next
Text1.Text = sum End Sub
Private Sub Command2_Click() End
求n!
Private Sub Command1_Click()
Dim fact As Double, n As Integer, i As Integer n = Val(Text1.Text) fact = 1 For i = 1 To n fact = fact * i Next
Text2.Text = fact End Sub
计算人口
Private Sub Label1_Click()
Dim p As Single, r As Single, i As Single p = 14 r = 0.012 i = 0
While p <= 20 p = p * (1 + r) i = i + 1 Wend
Print: Print
Print i; \年后，我国人口将达到\亿\End Sub
累加求和1到100 （Do while）
Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0
i = 1
Do While i <= 100 sum = sum + i i = i + 1 Loop
Text1.Text = sum End Sub
Private Sub Command2_Click() End
End Sub
（Do Until）
Private Sub Command1_Click()
Dim i As Integer, sum As Integer sum = 0
i = 1
Do until i >100 sum = sum + i i = i + 1 Loop
Text1.Text = sum End Sub
Private Sub Command2_Click() End
End Sub
求平均成绩
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single Dim pj As Single
a = 60: b = 70: c = 80: d = 90 pj = (a + b + c + d) / 4 Text1.Text = Str(pj) End Sub
成绩鉴定
Private Sub Command1_Click() Dim x As Single x = Text1.Text If x >= 90 Then Text2.Text = \优秀\ElseIf x >= 80 Then Text2.Text = \良好\ElseIf x >= 70 Then Text2.Text = \中\ElseIf x >= 60 Then Text2.Text = \及格\Else
Text2.Text = \不及格\End If End Sub
求圆的周长
Private Sub Command1_Click() Dim r As Double
Const pi = 3.1415926
r = Val(InputBox(\请输入圆的半径\Print \圆的周长为:\End Sub
输入两个整数m n，使得m>=n,并输出m n
Private Sub Command1_Click()
Dim m As Integer, n As Integer, a As Integer m = Val(InputBox(\请输入m:\输入, \n = Val(InputBox(\请输入n:\输入, \If n > m Then a = m m = n n = a
End If
Print \Print \
End Sub
计算sum=1/1!+1/2!......+1/10!
Private Sub Command1_Click()
Dim m As Integer, n As Long, s As Double n = 1 s = 0
For m = 1 To 10 n = n * m s = s + 1 / n Next Print s End Sub
定义一个下标上界为10的整型数组，并随机函数为其赋值（值处于【0,100】之间，计算数组中所有偶数的和
Private Sub Command1_Click() Randomize
Dim a%(10) Dim i%, s%
For i = 0 To 10 a(i) = 101 * Rnd() Next
For i = 0 To 10 If a(i) Mod 2 = 0 Then s = s + a(i) End If
Next
Print \所有偶数的和为:\End Sub
输入一个四位数，分别输出它的个位数字、十位数字、百位数字、和千位数字。（待修改）
Private Sub Command1_Click() Dim a%, i%, k%, m%, s$
a = Val(InputBox(\请输入一个四位数\i = a Mod 10
j = (a Mod 100) \\ 10 k = (a Mod 1000) \\ 100 m = a \\ 1000
s=\个位数字是:\十位数字是:\百位数字是:\千位数字是:\Print s End Sub
计算sum=2!+4!+6!+......+10!
Private Sub Command1_Click() Dim a!, i%, sum! i = 1: a = 1 Do a = 2 * i
If i Mod 2 = 0 Then sum = sum + a End If
i = i + 1
Loop While i <= 10 Print sum End Sub
用inputbox输入一个年份，判断该年份是否是闰年，若是则输出Yes,否则输出No
Private Sub Command1_Click() Dim j%
j = Val(InputBox(\请输入年份\
If j Mod 400 = 0 Or j Mod 4 = 0 And j Mod 100 <> 0 Then MsgBox (\Else
MsgBox (\End If End Sub
计算并输出下面级数前n项（n=20）中奇数项的和。1*2*3-2*3*4+3*4*5-4*5*6+........+（-1）……（n-1）*n*(n+1)*(n+2)+.....
Private Sub Command1_Click() Dim s!, i%
For i = 1 To 20 Step 2
s = s + i * (i + 1) * (i + 2) Next
MsgBox (s) End Sub