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

admin2013-04-11 27

问题下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click()
Dim an(10)As Integer
Dim max As Integer
　　Randomize
　　For i %=1 To 10
　　　　an(i%)=______
　　Next
　　max=an(1)
　　For i%=2 to 10
　　　　ifan(i%)＞max then
　　　　　　max=an(i%)
　　　　End If
　　Next
　　Print max
End Sub

选项

答案Int(Rnd*1000)

解析

转载请注明原文地址:https://jikaoti.com/ti/8sO0FFFM

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

以下叙述中错误的是______。
下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dimaa=Array(678，45，324，528，
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_change事件过程中应使用的语句是：______。
下列程序段的执行结果为______。Forx=5To1Step-1ForY=1To6-xPrintTab(Y+5)；"*"；NextYPrintNextx
执行如下程序段后，intsum的值为【】。PrivateSubCommand1_Click()sum=0Fori=1To18Step2Forj=2To6
下面程序的功能是计算给定正整数序列中奇数之和y与偶数之和x，最后输出x平方根与y平方根的乘积。请在画线处填上适当的内容使程序完整。PrivateSubForm_Click()a=Array(3，6，8，11，64，13，24，
数据库管理系统常见的数据模型有层次模型、网状模型和【】3种。
下列程序运行时输出的结果是PrivateSubForm_Click()Dimxx=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”)Fori=LBound(a，1)toUBound
如果要在菜单中添加一个分隔线，则应将其Caption属性设置为______。
关系表中的每一横行称为—个______。

随机试题

某女，63岁，突然出现右半身活动不利，舌强语謇，兼见面红目赤，眩晕头痛，烦躁，舌红，苔黄，脉弦而有力。针灸治疗除主穴外，应加用(　　)
下述何种药物用于高血压危象
A．有效性B．均一性C．安全性D．稳定性每一单位产品都具有相同的品质体现药品的
物业管理的决策机构是()。
征收反补贴税，由国务院关税税则委员会提出建议，国务院根据其建议作出决定，由商务部予以公告，海关自公告规定实施之日起执行。(　　)
下列各项中，属于我国外商投资项目的基本管理体制的有()。
英国银行协会每年都组织一个培训班，帮助银行职员识别假钞。在培训期间，学员们一张假钞也摸不到，训练时用的都是真钞，上课时讲的都是真钞的特点。专家们解释说，学员们通过反复接触真钞，手指、眼睛都习惯了真钞的感觉，以后在工作中一旦遇到假钞，就会感到特别不习惯。虽然
若函数其中f是可微函数，且则函数G(x，y)=()．
TheJapanesegovernmentwantswomenlikeTaekoMizuguchitogetmarriedandstartdoingsomethingaboutthenation’splungingbi
F

最新回复(0)

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

二级VB

NCRE全国计算机二级

以下叙述中错误的是______。

下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dimaa=Array(678，45，324，528，

下列程序段的执行结果为______。Forx=5To1Step-1ForY=1To6-xPrintTab(Y+5)；"*"；NextYPrintNextx

执行如下程序段后，intsum的值为【】。PrivateSubCommand1_Click()sum=0Fori=1To18Step2Forj=2To6

下面程序的功能是计算给定正整数序列中奇数之和y与偶数之和x，最后输出x平方根与y平方根的乘积。请在画线处填上适当的内容使程序完整。PrivateSubForm_Click()a=Array(3，6，8，11，64，13，24，

数据库管理系统常见的数据模型有层次模型、网状模型和【】3种。

下列程序运行时输出的结果是PrivateSubForm_Click()Dimxx=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”)Fori=LBound(a，1)toUBound

如果要在菜单中添加一个分隔线，则应将其Caption属性设置为______。

关系表中的每一横行称为—个______。

某女，63岁，突然出现右半身活动不利，舌强语謇，兼见面红目赤，眩晕头痛，烦躁，舌红，苔黄，脉弦而有力。针灸治疗除主穴外，应加用( )

下述何种药物用于高血压危象

A．有效性B．均一性C．安全性D．稳定性每一单位产品都具有相同的品质体现药品的

物业管理的决策机构是()。

征收反补贴税，由国务院关税税则委员会提出建议，国务院根据其建议作出决定，由商务部予以公告，海关自公告规定实施之日起执行。( )

下列各项中，属于我国外商投资项目的基本管理体制的有()。

若函数其中f是可微函数，且则函数G(x，y)=()．

TheJapanesegovernmentwantswomenlikeTaekoMizuguchitogetmarriedandstartdoingsomethingaboutthenation’splungingbi

F

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

某女，63岁，突然出现右半身活动不利，舌强语謇，兼见面红目赤，眩晕头痛，烦躁，舌红，苔黄，脉弦而有力。针灸治疗除主穴外，应加用(　　)

征收反补贴税，由国务院关税税则委员会提出建议，国务院根据其建议作出决定，由商务部予以公告，海关自公告规定实施之日起执行。(　　)