18个VB经典例题.docx资源-CSDN文库

版权申诉

97 浏览量 2021-12-27 21:05:06 上传评论收藏 22KB DOCX 举报

资源推荐

资源详情

资源评论

.

1、随机产生三个 100－300 之间的整数，判断这三个整数是否能构成三角形，如果可以，

求三角形的面积。

Dim x As Integer, y As Integer, z As Integer

Dim c As Single, s As Single

x = 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 三" 角形面积是：" & s

Else

Print 构" 不成三角形"

End If

2、随机产生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 Single

For m = 1 To 60 '产生 60 名学生的分数

x = Rnd * 101 '产生 0－100 的分数

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 + 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 If

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余9页未读，立即下载

内容反馈

版权申诉

进击的朱亚文

粉丝: 0
资源: 4万+

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈

feedback-tip