《18个VB经典例题》由会员分享，可在线阅读，更多相关《18个VB经典例题（9页珍藏版）》请在金锄头文库上搜索。
1、.1、随机产生三个100300之间的整数，判断这三个整数是否能构成三角形，如果可以，求三角形的面积。Dim x As Integer, y As Integer, z As IntegerDim c As Single, s As Singlex = Int(Rnd * 201 + 100)y = Int(Rnd * 201 + 100)z = Int(Rnd * 201 + 100)If x + y z And x + z y And y + z x Then c = (x + y + z) / 2 s = Sqr(c * (c - x) * (c - y) * (c - z) Print
2、三角形面积是： & s Else Print 构不成三角形End If2、随机产生0100之间的60名学生的数学分数，分别统计分数在、之间的学生人数。Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%Dim x As SingleFor m = 1 To 60 产生60名学生的分数 x = Rnd * 101 产生0100的分数 Print x; If x = 90 Then a = a + 1 ElseIf x = 80 Then b = b + 1 ElseIf x = 70 Then c = c + 1 ElseIf x = 60 Then d = d
3、+ 1 ElseIf x = 50 Then e = e + 1 ElseIf x = 40 Then f = f + 1 ElseIf x = 30 Then g = g + 1 ElseIf x = 20 Then h = h + 1 ElseIf x = 10 Then i = i + 1 Else j = j + 1 End IfNext mPrint a, b, c, d, e, f, g, h, i, j3、我国有13亿人口，按照人口年增长0.8%计算，多少年以后我国人口超过26亿。Dim x As Double 人数一定要定义成双精度的Dim n As Integerx = 13
4、00000000n = 0Do While x = 0 Then x1 = (-b + Sqr(d) / (2 * a) 求方程的两个根 x2 = (b + Sqr(d) / (2 * a) x1 = Format(x1, .#) 对根规范化输出 x2 = Format(x2, .#)End IfPrint x1, x25、某次歌手大奖赛，共有10名选手，有10名评委打分。要求评委给10位选手打分，去掉一个最高分，去掉一个最低分，求出该选手的平均分。Dim i As IntegerDim j As IntegerDim max As Single, min As Single, sum As
5、Single, aver As SingleFor i = 1 To 10 十个选手的成绩 max = 0 min = 100 sum = 0 For j = 1 To 10 十个评委的分数 x = Rnd * 101 产生0100的分数 If x max Then max = x If x min Then min = x sum = sum + x Next j aver = (sum - max - min) / 8 Print aver;Next i6、求1到100以内的素数。Dim i As Integer, j As Integer, prime As BooleanFor i =
6、 1 To 100 prime = True For j = 2 To Sqr(i) 判断一个数是否是素数 If i Mod j = 0 Then prime = False End If Next j If prime Then 如果prime = True则i是素数 Print i & 是素数 Else Print i & 不是素数 如果prime = False则i不是素数 End IfNext i7、求出100以内的所有勾股数（勾股数为a2+b2=c2,c为自然数，且ab）Dim a As Integer, b As Integer, c As IntegerFor a = 1 To
7、100 For b = 1 To 100 For c = 1 To 100 If c * c = a * a + b * b And a b Then Print a; b; c; Print End If Next c Next bNext a8、把输入的字符串逆序输出。Dim str As String, strRe As StringDim i As Integer str = Text1.Text 原字符串 For i = 1 To Len(str) strRe = Mid(str, i, 1) & strRe 字符串逆序 Next i Text2.Text = strRe 逆序后的字
8、符串9、随机产生0100之间的60名学生的数学分数，分别统计分数在、之间的学生人数。（用数组实现）Dim i As Integer, s(1 To 10) As Integer, mark(1 To 60) As Integer,For i = 1 To 60 mark(i) =int( Rnd * 101) 随机产生0100之间的分数 Print mark(i); 输出60个分数 Select Case mark(i) Case Is 10 s(1) = s(1) + 1 Case Is 20 s(2) = s(2) + 1 Case Is 30 s(3) = s(3) + 1 Case I
9、s 40 s(4) = s(4) + 1 Case Is 50 s(5) = s(5) + 1 Case Is 60 s(6) = s(6) + 1 Case Is 70 s(7) = s(7) + 1 Case Is 80 s(8) = s(8) + 1 Case Is 90 s(9) = s(9) + 1 Case Is max Then max = mark(i) 找出最大数 If mark(i) mark(n + 1) Then mark(n + 2) = mark(n + 2) + 1Print mark(i); 输出学生成绩Next iPrint mark(n + 1); mark(n + 2) 输出平均分与高于平均分的人数12、随机生成包含10个数组元素的有序数组，然后第一个与第六个进行交换，第二个与第七个进行交换。，并把原数组以及交换后的数组分别在窗体上显示出来。Dim s(1 To 10) As IntegerFor i = 1 To 10 产生10个数s(i) = Int(Rnd * 101)Print s(i); 输出交换前的数值Next iPrintFor i = 1 To 5 实现交换t = s(i)s(i) = s(5 + i)s(5+ i) = t
