求vb程序设计教程习题代码2

提问网友发布时间：2023-10-20 06:06

声明：本网页内容为用户发布，旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:1656858193@qq.com

共2个回答

热心网友回答时间：2024-05-16 12:42

Dim a As Integer
Dim i As Integer = 0
Dim forty As Integer = 0
Dim seventy As Integer = 0
Dim aboveSeventy As Integer = 0
For i = 0 To 99
Randomize()
a = 100 * Rnd()
If (a < 40) Then
forty += 1
ElseIf a >= 40 And a <= 70 Then
seventy += 1
Else
aboveSeventy += 1
End If

Next
MessageBox.Show(forty & " " & seventy & " " & aboveSeventy)

热心网友回答时间：2024-05-16 12:42

经测试通过
Dim a As Integer, LessThan40 As Integer, Is40To70 As Integer, MoreThan70 As Integer
For i = 1 To 100
a = Int(Rnd() * 89) + 10
Select Case a
  Case Is <= 40
   LessThan40 = LessThan40 + 1
  Case Is > 70
   MoreThan70 = MoreThan70 + 1
  Case Else
   Is40To70 = Is40To70 + 1
End Select
Next
MsgBox "小于等于40的" & LessThan40 & "个" & vbCrLf & "大于40小于等于70的" & Is40To70 & "个" & vbCrLf & "大于70的" & MoreThan70 & "个"

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。

已解决

等待解决

很久没用了，现在用怎么才可以登陆上去？31 自己原来的老，多年没用了，现在还能继续登录使用吗？不同颜色玫瑰花的花语寓意是什么？432 Aa连续自交n代后,此时纯合体所占比例为多少? 条形统计图，折线统计图，扇形统计图各有什么特点56 苹果手机如何一次登陆两个？1677 本人准备在2011年10月末11月初左右领着我的6岁儿子去北... 二级建造师知识点：　承包人提出索赔的期限46 2010二级建造师实务索赔的题目锁骨骨折二次手术取钢板后再次骨折是什么原因右肩锁骨骨折,上了固定钢板,2年多后,螺丝钉断裂一颗在骨头里面,取钢板... 急急急!!!内江巨腾公司报名,,,,,24 联想F310硬盘,插上电脑后突然识别不了,指示灯亮,拿起硬盘听到里面嘟嘟的... 内江巨腾自离过的人还可以再进厂不？5 内江巨腾到底好不好？我正准备被家里催着去，我看了网上的一些评...99 美国东西海岸旅游一般都是什么时间去呢？21 在美国亚马逊网上买什么东西划算?2 湖北省有几个市463 为什么玩DNF时老闪退 2.4万啤酒生产线洗瓶机工作原理是什么？7 已知复数z=1+i/1-i (i为虚数单位)则|z|等于多少己知i为虚数单位，则复数z=1-i/1+i的模为多少？已知i是虚数单位，则 (1+i)(1+ 1 i ... ...通过手术进行矫正,手术成功出院,但一个月后复查发现一个螺丝钉... 巨腾电子（上海）有限公司怎么样？熏醋能预防感冒？人教版四年级下册.语文书第十六课,的第五节,写的是什么1 将醋洒在屋子里有什么作用？听说能预防感冒是吗？3 熏醋可以预防感冒吗？人教版语文书四年级下册第四单元的词语盘点的词语是哪些?300 冬天里，在房间熏醋，能不能预防感冒啊？3 二建挂靠公司找不到了，怎么办？已知i是虚数单位，（1-i)(-2+i)比i的立方等于多少广东潮州总共有多少个学校3 大家各自所在地的驾校收费多少?你觉得合理吗? 新买的格力空调由于安装失误，氟利昂泄露再充氟利昂对空调有无影...8 新买的格力空调由于安装失误造成氟利昂泄漏，再充对空调影响吗60 北京旅游必备物品109 北京旅游必备物品109 which在疑问句中怎么用，用不用加of1

首页

互助专区

登录

注册

求vb程序设计教程习题代码2