VB编写程序基础教程
1》编写程序，输出100~1000之间的所有质数，并给出100~1000之间质数的个数及其和 Private Sub Command1_Click() Dim i%, j%, k%, s% k = 0 s = 0 For i = 100 To 1000 For j = 2 To i
If i Mod j = 0 Then Exit For Next j
If j = i Then k = k + 1 s = s + i Print i End If Next i
Print "质数个数为："; k, "其和为："; s End Sub
2》输出如下图形 1 333 55555 7777777
Private Sub Command1_Click() Dim i%, j% For i = 1 To 4
Print Tab(15 - 2 * i)
For j = 1 To 2 * i - 1 Print 2 * i - 1; Next j Print Next i End Sub
3》输入三角形的三边A,B,C的值，判断能否构成三角形，如能求出三角形的面积 Private Sub Command1_Click() Dim a%, b%, c%, x!, s!
a = InputBox("请输入三角形的边长a：") b = InputBox("请输入三角形的边长b：") c = InputBox("请输入三角形的边长c：") If a + b > c And a + c > b And b + c > a Then Print "能构成三角形" x = (a + b + c) / 2
s = Sqr(x * (x - a) * (x - b) * (x - c)) Print "面积为："; s Else
新市场营销法则 助推企业成长 电子商务营销 食品餐饮营销 建筑房产营销 消费品营销
Print "不能构成三角形！" End If End Sub
4》编一程序：根据上网时间算出上网费用。为鼓励上网，每月上网收费不超过100元
３０元基数 <１０小时 费用＝ 2元/小时 10~60小时 1.5元/小时 >60小时
Private Sub Command1_Click() Dim a%, p%
a = InputBox("请输入上网的时间：") If a > 0 Then Select Case a Case Is < 10 p = 30
Case Is < 60 p = a * 2 Case Else p = a * 1.5 End Select Else
MsgBox "没有上网，无需缴费！" End If
If p > 100 Then p = 100
Print "您本月的上网时间是"; a; "小时，需缴费："; p; "元！" End Sub
5》编写程序，单击窗体上打印如下所示图形
*
***
*****
*******
*********
*******
*****
***
*
方法1
Private Sub Command1_Click() Dim i%, j% j = j + 1
For i = -4 To 4
Print Tab(20 + Abs(i))； For j = 1 To 9 - Abs(2 * i)
Print "*"; Next j Print Next i End Sub 方法2
Private Sub Command1_Click() Dim i%
For i = 1 To 5
Print Tab(20 - i); String(2 * i - 1, "*"): Print Next i
For i = 4 To 1 Step -1
Print Tab(20 - i); String(2 * i - 1, "*"): Print Next i End Sub
6》勾股定理中的三个数的关系是：a^2+b^2=c^2编写程序，输出100以内满足上述关系的证书组合
Private Sub Command1_Click() Dim a%, b%, c% For a = 1 To 100 For b = a To 100 For c = b To 100
If a ^ 2 + b ^ 2 = c ^ 2 Then Print "勾股定理组合："; a, b, c End If Next c Next b Next a End Sub
7》求公式：e=1+1/1!+1/2!+1/3!+。。。。。。+1/n! 直到N=20的E的值 Private Sub Command1_Click() Dim i%, s!, k! k = 1 s = 1
For i = 1 To 20 k = k * i s = s + 1 / k Next i Print s End Sub
8》某次大赛有7个评委打分，满分为100分。去掉一个最高分，一个最低分，求出平均分为该参赛者的得分，编写程序，输入评委的打分，输出参赛者的得分 Private Sub Command1_Click()
Dim max%, min%, i!, s!, f! max = 0 min = 100 For i = 1 To 7 f = InputBox("请输入评委的打分：") If f > max Then max = f If f < min Then min = f s = s + f Next i aver = (s - max - min) / 5 Print "参赛者的得分："; aver, "最高分："; max, "最低分："; min End Sub 9》有一列数：1、1、2、3、5、8、13、21.。。。。，求出这个数列的前20项和 Private Sub Command1_Click() Dim f1!, f2!, f3!, i%, j%, n%, s! f1 = 1 f2 = 1 s = 2 Do While i <= 20 - 3 f3 = f1 + f2 f1 = f2 f2 = f3 s = s + f3 i = i + 1 Loop Print s End Sub 10>求1000以内分别被3、5、7除，余数都为1的正整数的个数及其www.和 Private Sub Command1_Click() Dim n%, s%, gs! s = 0 gs = 0 For n = 1 To 1000 If (n Mod 3 = 1) And (n Mod 5 = 1) And (n Mod 7 = 1) Then Print n gs = gs + 1 s = s + n End If Next n Print Print "共"; gs; "个" Print "其和为"; s End Sub 11》编写程序，输出下列三角形（用循环做）
河 河南 河南农 河南农业 河南农业大 河南农业大学 Private Sub Command1_Click() Dim a$, i%, k% a = "河南农业大学" k = Len(a) For i = 1 To k Print Tab(3); Left(a, i) Next i End Su 12》编写程序，求2的N次幂，N的值由键盘输入。 Private Sub Command1_Click() Dim n%, mi#, i% n = Int(Val(InputBox("n="))) mi = 1 For i = 1 To n mi = mi * 2 Next i Print mi End Sub 13》编写程序，随即生成100个两位整数，并统计出其中小于等于40、40<n<=70 、n>70的数据个数 Private Sub Command1_Click() Dim x%, i%, gs1!, gs2!, gs3! gs1 = 0: gs2 = 0: gs3 = 0 Randomize For i = 1 To 100 x = Int(Rnd * 90) + 10 Print x If x <= 40 Then gs1 = gs1 + 1 ElseIf x < 70 Then gs2 = gs2 + 1 Else gs3 = gs3 + 1 End If Next i Print "n<=40的个数1="; gs1, "40<n<+70的个数2="; gs2, "n>70的个数3="; gs3 End Sub
