《1、随机产生三个100》由会员分享，可在线阅读，更多相关《1、随机产生三个100（11页珍藏版）》请在金锄头文库上搜索。
1、1、随机产生三个 100 300 之间的整数，判断这三个整数是否能构成三角形，如果可以，求三角形的面积。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 Thenc = (x + y + z) / 2s = Sqr(c * (c - x) * (c - y) * (c - z)Print 三
2、角形面积是： & sElsePrint 构不成三角形End If2、随机产生 0 100 之间的 60 名学生的数学分数， 分别统计分数在0,10 、10,20 、 20,30 、30,40 、 40,50 、 50,60 、 60,70 、 70,80 、 80,90 、 90,100 、之间的学生人数。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 Thena = a + 1ElseIf
3、x = 80 Thenb = b + 1ElseIf x = 70 Thenc = c + 1ElseIf x = 60 Thend = d + 1ElseIf x = 50 Thene = e + 1ElseIf x = 40 Thenf = f + 1ElseIf x = 30 Theng = g + 1ElseIf x = 20 Thenh = h + 1ElseIf x = 10 Theni = i + 1Elsej = j + 1End If1Next mPrint a, b, c, d, e, f, g, h, i, j3、我国有 13 亿人口，按照人口年增长0.8% 计算，多少年
4、以后我国人口超过26 亿。Dim x As Double人数一定要定义成双精度的Dim n As Integerx = 1300000000n = 0Do While x = 0 Thenx1 = (-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 Integ
5、erDim j As IntegerDim max As Single, min As Single, sum As Single, aver As SingleFor i = 1 To 10十个选手的成绩max = 0min = 100sum = 0For j = 1 To 10十个评委的分数x = Rnd * 101产生 0 100 的分数If x max Then max = xIf x min Then min = xsum = sum + xNext javer = (sum - max - min) / 82Print aver;Next i6、求 1 到 100 以内的素数。Di
6、m i As Integer, j As Integer, prime As BooleanFor i = 1 To 100prime = TrueFor j = 2 To Sqr(i)判断一个数是否是素数If i Mod j = 0 Thenprime = FalseEnd IfNext jIf prime Then如果 prime = True 则 i 是素数Print i & 是素数 ElsePrint i & 不是素数 如果 prime = False则 i 不是素数End IfNext i7、求出 100 以内的所有勾股数（勾股数为a2+b 2=c 2,c 为自然数，且ab ）Dim
7、 a As Integer, b As Integer, c As IntegerFor a = 1 To 100For b = 1 To 100For c = 1 To 100If c * c = a * a + b * b And a b ThenPrint a; b; c;PrintEnd IfNext cNext bNext a8、把输入的字符串逆序输出。Dim str As String, strRe As StringDim i As Integerstr = Text1.Text原字符串For i = 1 To Len(str)strRe = Mid(str, i, 1) & s
8、trRe 字符串逆序Next iText2.Text = strRe 逆序后的字符串9、随机产生 0 100 之间的 60 名学生的数学分数， 分别统计分数在0,10、20,30、10,2030,40 、 40,50、 50,60、 60,70、 70,80、 80,90 、 90,100、之间的学生人数。（用数组实现）Dim i As Integer, s(1 To 10) As Integer, mark(1 To 60) As Integer, For i = 1 To 603mark(i) =int( Rnd * 101) 随机产生0 100 之间的分数Print mark(i);输出
9、 60 个分数Select Case mark(i)Case Is 10s(1)= s(1) + 1Case Is20s(2)= s(2) + 1Case Is30s(3)= s(3) + 1Case Is40s(4)= s(4) + 1Case Is50s(5)= s(5) + 1Case Is60s(6)= s(6) + 1Case Is70s(7)= s(7) + 1Case Is80s(8)= s(8) + 1Case Is90s(9)= s(9) + 1Case Is 100s(10) = s(10) + 1End SelectNext iPrint换行For i = 1 To 10Print s(i);输出各个分数段的人数Next i10、随机产生10 个同学的成绩60,100 随机整数存入数组，求出数组中的最高分，最低分。Dim i As Integer, mark(10) As Integer, min As Integer, max As IntegerFor i = 1 To 10mark(i) = Int(Rnd * 41 + 60) 随机产生60 100 之间的分数Print mark(i);
