1、输入3个数，输出最大的数
Private Sub Command1_Click() Dim x%,y%,z% x = Val(Text1)
y = Val(Text2) z = Val(Text3)
If x>y then t=x else t=z
If t>z then text4=t else text4=z End Sub
2、有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根。
Sub Command1_Click() Dim a%,b%,c% a = Val(Text1)
b = Val(Text2) c= Val(Text3)
If b*b-4*a*c >=0 then MsgBox “有实根！” Else
MsgBox “无实根！” End If End Sub
3、输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！”
Sub Command1_Click()
Dim x% X=val(text1) If x>=60 then
MsgBox “恭喜！成绩通过！” Else
MsgBox “抱歉！成绩没有通过！” End If End Sub
4、输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）
Private Sub Command1_Click() Dim y%
y = Val(Text1)
If (y Mod 4 = 0 And y Mod 100 <> 0) Or ( y Mod 400 = 0) Then MsgBox (y & \年是闰年\ Else
MsgBox (y & \年是平年\ End If End Sub
5、输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
方法1：
Sub Command1_Click() Dim x% x=val(text1)
If x > =90 and x<=100 Then MsgBox “优”
ElseIf x > =80 and x<=89 Then MsgBox “良”
ElseIf x > =70 and x<=79 Then MsgBox “中”
ElseIf x > =60 and x<=69 Then MsgBox “及格” Elseif x<60 then
MsgBox “不及格” End If End Sub
方法2：
Sub Command1_Click() Dim x% x=val(text1) Select Case x
Case 90 to 100
MsgBox “优秀” Case 80 to 89
MsgBox “良好” Case 70 to 79
MsgBox “中等” Case 60 to 69
MsgBox “及格” Case 0 to 59
MsgBox “不及格” End Select End Sub
6、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。
Private Sub Command1_Click() Dim x%, x1%, x2%, x3% Text1 = Int(Rnd * 900 + 100) x = Val(Text1) x1 = x Mod 10
x2 = (x Mod 100) \\ 10 x3 = x \\ 100
Text2 = x1 * 100 + x2 * 10 + x3 End Sub
7、输入两个整数，求它们的最大公约数。
Sub Command1_Click() Dim m%, n%
m = Val(Text1)
n = Val(Text2)
r=m mod n
Do while r<>0 m=n n=r
r=m mod n Loop
Text3=n End Sub
8、编程求200--400范围内5的倍数或7的倍数之和。
Private Sub Command1_Click() Dim s1%, s2%, s3%, i% s1 = 0
For i = 200 To 400
If i Mod 5 = 0 Or i Mod 7 = 0 Then s1 = s1 + i End If Next i Print s1 End Sub
9、计算100~300之间所有能被3或7整除的数之和。
Private Sub Command1_Click() Dim s%, i% s = 0
For i = 100 To 300
If i Mod 3 = 0 Or i Mod 7 = 0 Then s = s + i Next i
Print \ End Sub
10、分别统计1-100中，满足3的倍数、7的倍数的数各有多少。
Sub Command1_Click() Dim m%, n% x=0: y=0
For n=1 to 100
if n Mod 3=0 then x=x+1 if n Mod 7=0 then y=y+1 next n text1=x text2=y End Sub
11、某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。
Sub Command1_Click()
Dim a(6) As Integer，i%，Min%，Max%，Sum% a(0) = Val(Text1.Text) a(1) = Val(Text2.Text) a(2) = Val(Text3.Text) a(3) = Val(Text4.Text) a(4) = Val(Text5.Text) a(5) = Val(Text6.Text) a(6) = Val(Text7.Text) Sum = a(0) Max = a(0) Min = a(0)
For i = 1 To 6 ‘边找最大、最小值，边求和 If Min > a(i) Then Min = a(i) If Max < a(i) Then Max = a(i) Sum = Sum + a(i) Next i
Print “平均分”； (Sum - Min - Max) / 5 ‘去掉最大值，最小值，求平均值 End Sub
12、输入一串字符，统计其中字母A(不区分大小写)出现的次数。
Sub Command1_Click() Dim i%, c$, n%
For i = 1 To Len(Text1) c = Mid(Text1, i, 1)
If c = \ Then n = n + 1 Next i
Label2 = \和a的个数=\End Sub
13、我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将
超过26亿。
Sub Command1_Click()
Dim n as Integer, x as single N=0 X=13
Do while x<=26 X=x*1.008 N=n+1 Loop Text1=n End Sub
14、小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？
Sub Command1_Click()
Dim n%,i%
X=1 ‘第7天的桃子数 For i=6 to 1 step -1
X=(x+1)*2
Next i
Print “最初共有桃子：”; x; “只。”
End Sub
15、求100以内的素数。
Private Sub Command1_Click()
Dim i As Integer, m As Integer, tag As Boolean j = 0
For m = 2 To 100 tag = True
For i = 2 To m - 1
If (m Mod i) = 0 Then tag = False Next i
If tag Then Print m; j = j + 1
If j = 10 Then j = 0: Print End If Next m End Sub
16、百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。
Private Sub Command1_Click() Dim x%, y%, z%, n%