题库分类下载APP 帮助中心

当前位置：首页 > 查试题 >

以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。 Option Base 1 Private Sub Form_Click（) Dim Arr（10)As Integer Dim Max As Integer Randomize For i = 1 To 10 Arr（i)= Int（Rnd * 1000) Next i Max = （14) F

主观题

以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。 Option Base 1 Private Sub Form_Click（) Dim Arr（10)As Integer Dim Max As Integer Randomize For i = 1 To 10 Arr（i)= Int（Rnd * 1000) Next i Max = （14) F

查看答案

该试题由用户286****34提供查看答案人数：4343 如遇到问题请 联系客服

相关试题

换一换

以下程序的功能是随机产生10个两位的整数：运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是（）

A.a（i）=Int（Rnd*100） B.a（i）=Int（Rnd*90）+10 C.a（i）=Int（Rnd*100）+10 D.a（i）=Int（Rnd*101）

以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请完善下列程序。 Option Base 1 Private Sub Form_Click（)Dim Arr（10)As IntegerDim Max As IntegerRandomizeFor i = 1 To 10 Arr（i)= Int（Rnd * 1000)Next iMax = 【14】 For

以下程序的功能是，产生10个0～1000的随机整数，放入数组Art中，然后输出其中的最大值。请填空。 Option Base 1 Private Sub Form Click（) Dim Arr（10)As Integer Dim Max As Integer Randomize For i=1 To 10 Arr（i)=Int（Rnd*1000) Next i Max= （14) For i=

以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。 Option Base 1 Private Sub Form_Click（) Dim Arr（10)As Integer Dim Max As Integer Randomize For i = 1 To 10 Arr（i)= Int（Rnd * 1000) Next i Max = （14) F

以下程序的功能是随机产生10个两位的整数： Option Base 1 Private Sub Command1_Click（) Dim a（10) As Integer Dim i As Integer Randomize For i = 1 To 10a（i) = Int（Rnd * 100) + 1Print a（i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数

A.a(i)=Int(Rnd * 100) B.a(i)=Int(Rnd * 90)+10 C.a(i)=Int(Rnd * 100)+10 D.a(i)=Int(Rnd * 101)

（）函数用来随机产生一个整数

表达式Int（Rnd*71）+10产生的随机整数范围是（）

A.（10.80） B.（10.81） C.[10.80] D.[10.81]

随机产生[10，50]之间整数的正确表达式是

A.Round( Rnd*50) B.Int(Rnd*40+10) C.Round( Rnd*51) D.10+Int(Rnd*41)

以下()表达式产生一个0~7之间(含0)的随机整数

产生[10,37]之间的随机整数的VisualBasic表达式是( )。

A.Int(Rnd(1)*27)+10 B.Int(Rnd(1)*28)+10 C.Int(Rnd(1)*27)+11 D.Int(Rnd(1)*28)+11

热门试题

编写程序实现以下功能：从键盘输入10个整数，按由小到大的顺序输出这10个数 下面程序的功能是产生100个小于1000（不含1000) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请在[7]和[8]处把程序补充完整。 下列Visual Basic表达式中，能产生一个10到99之间（包括10和99）随机整数的是（）。 以下程序用宋输出20个在开区间（10，87)中的随机整数R，每行输出4个整数。请完善下列程序。 Private Sub Command1_Click（)For I = 1 To 10 R = 【9】 Print R； If I Mod 4=0 Then PrintNext I End Sub 以下（）表达式产生一个0~7之间（含0，7）的随机整数。 以下()表达式产生一个0~7之间(含0,7)的随机整数 下面程序的功能是产生10个小于100（不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR（) Randomize Dim a（10) For i=1 To 10 a（i) =Int（[14] ) If [15] Then k=k+1 Print a（j) Next j Print Print k/10 End Sub 下面程序的功能是产生10个小于100（不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR（) Randomize Dim a（10) For j=1 To 10 a（i)=Int（【14】 ) If 【15】Then k=k+1 Print a（j) Next j Print Print k/10 End Sub 下面程序的功能是产生10个小于100（不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 SubPR（) Randomize Dim a（10) For j=1 To 10 a（i)=Int（（14) ) If （15) Then k=k+1 Print a（j) Next j Print Print k/10 Fnd Sub 下列程序为求Sn=a+aa+aaa+……+aa…a（n个a)，其中a为一个随机数产生的1～9（包括1、 9)中的一个正整数，n是一个随机数产生的5～10（包括5、10)中的一个正整数，请在空格处填入适当的内容，将程序补充完整。 Private Sub Form_CUCk（) Dima As Integer,n As Intege,S As Double，Sn As Double a=Fix（9*R 下面程序的功能是产生10个小于100（不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR（) Randomize Dim a For j=1 To 10 a（i)=Int（【】 ) If 【】Then k=k+1 Print a（j) Next j Print Print k/10 End Sub 编写一个每次随机生成 10个 0(包括) 到 100 之间的随机正整数 下面程序的功能是产生10个小于100（不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR（) Randomize Dima（10) Forj=1 To 10 a（i)=Int______ If a（j)Mod5=0 Then k=k+1 Printa（j) Nextj Print Printk/10 End Sub 下面程序的功能是产生10个小于100（不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR（) Randomize Dim a（10) For j=1 To 10a（i)=Int（[14] )If [15] Then k=k+1Print a（j) Next J Print Print k/10 End Suh 能够产生一个三位随机整数的函数表达式是（）。 （05-01）定义一个方法，产生一个100以内的随机整数 以下程序用来产生20个100以内的随机整数，并将其中的偶数在窗体上显示，请填空。 Randomize Fori=1 To 20 x= [5] If x/2= [6] Then PrintX End If Nexti INT（100*RND）产生的随机整数的闭区间是（）。 INT(100*RND(1))产生的随机整数的闭区间是 Int（100*Rnd（1))产生的随机整数的闭区间是（)。

~~购买搜题卡~~ 会员须知 | 联系客服

免费查看答案购买搜题卡

关注公众号，回复验证码
享30次免费查看答案

微信扫码关注立即领取

恭喜获得奖励，快去免费查看答案吧~

去查看答案

全站题库适用，可用于E考试网网站及系列App

只用于搜题看答案，不支持试卷、题库练习，下载APP还可体验拍照搜题和语音搜索

支付方式

登录成功

首次登录已为您完成账号注册，
可在【个人中心】修改密码或在登录时选择忘记密码
账号登录默认密码：~~手机号后六位~~

手机浏览器扫码下载

关注
公众号

微信扫码关注

微信
小程序

微信扫码关注

微信扫码添加老师微信