永发信息网

用vb 中循环结构显示32个随机数,按照一行7个数字来显示,同时显示数字出现的序号,然后将这组数字中

答案:2  悬赏:40  手机版
解决时间 2021-02-19 12:22
用vb 中循环结构显示32个随机数,按照一行7个数字来显示,同时显示数字出现的序号,然后将这组数字中
最佳答案
Private Sub Form_click()RandomizeDim a(1 To 32) As LongDim Max As Integer,Min As IntegerDim x As Integer,y As IntegerFor i = 1 To 32a(i) = Int(Rnd * 100)If a(i) > Max Then Max = a(i):x = iIf i = 1 ThenMin = a(i)ElseIf a(i) End IfNextFor i = 1 To 32Print 序号: & Format(i,00) & 数字: & Format(a(i),00) & ;If i Mod 7 = 0 ThenPrintEnd IfNextPrintPrint 最大数: & Max & 序列:; xPrint 最小数: & Min & 序列:; yEnd Sub
全部回答
你的回答很对
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
含有拜访意思的四字成语
哪一期的我看你有戏影射张柏芝
根号2,根号10 分别等于多少
依雯健兄弟制衣在哪里啊,我有事要去这个地方
晋城市5路车修路期间线路(现在)
急寻一首快节奏的英文歌lalalalala sorry sor
寿光市食品药品监督管理局洛城食品药品监督管
苗木中的P20 、H30是什么意思
一个月四千块钱的工资,可以办理信用卡吗额度
SQL 查询 如何查询最初单据编号
一品煲在哪里啊,我有事要去这个地方
泰安新泰市里哪里有打耳洞的?
80平方130元一个平方怎么算
The head of the company promised to deal w
秦朝辅佐皇帝处理全国政务的是 A. 丞相B. 御
推荐资讯
1.4960亿千米用科学计数法等多少
我的电工证复审为什么不能在外地复审
顺发傢俬地址在哪,我要去那里办事
平神岭地址有知道的么?有点事想过去
小麦种迟、,氮肥施过多,贪青晚熟怎么办?
中国移动花果山大村指定专营店我想知道这个在
SUMIF函数的定义
我的世界,op怎么查看玩家的末影箱?
千金药业这支股现在还可以买吗
沣沅宾馆地址在什么地方,想过去办事
谁知道"叫"的近义词是什么
Excel中数量C6*E6,F6,G6,H6怎么操作
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?