立即注册 找回密码

QQ登录

只需要一步,快速开始

168资源分享社区_资源分享网-免费资源-资源共享论坛

购买
查看: 9500|回复: 0

下列程序功能是,产生10个0-100的随机数,输出其中的最大值请将程序补充完整 Private Sub Form_Click〖〗 Dim an(10)As Integer Dim

[复制链接]

765

主题

1302

帖子

1802

积分

新手上路

Rank: 1

积分
1802
发表于 2022-4-10 20:02:02 | 显示全部楼层 |阅读模式


[填空题] 下列程序功能是,产生10个0-100的随机数,输出其中的最大值。请将程序补充完整。

Private Sub Form_Click(本题已包含答案请在最下方查看 )

Dim an(10)As Integer

Dim max As Integer

Randomize

For i%=1 To 10

an(i%)= 【10】

Next

max=an(1)

For i%=2 to 10

if an(i%)>max then

max=an(i%)

End If

Next

Print max

End Sub --考试题答案可以作为组卷和复习学习使用,tag,投稿请按分类目录投稿,句子欢迎积极投稿分享。--这道题的正确答案应该是:
购买主题 已有 1688 人购买  本主题需向作者支付 1 白银 才能浏览,【充值】

相关帖子

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

特别提醒上一条 /1 下一条

Archiver|手机版|sitemap|168资源分享网

GMT+8, 2022-12-6 11:14 , Processed in 1.476465 second(s), 64 queries , Redis On.

Powered by Discuz! X3.4 © 2001-2013 Comsenz Inc & 标签

快速回复 返回顶部 返回列表