首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
要打印出50个在-100~100之间不同的随机整数,并找出第几个是最大数。给定的程序不完整,将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim b() Rand
要打印出50个在-100~100之间不同的随机整数,并找出第几个是最大数。给定的程序不完整,将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim b() Rand
admin
2009-02-13
27
问题
要打印出50个在-100~100之间不同的随机整数,并找出第几个是最大数。给定的程序不完整,将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim b()
Randomize
【 】
Do
x=Rnd
If x>0.5 Then y=1 Else y=-1
t=y*Int(Rnd*100)+1
【 】
Do While k<j
If t <> b(k)Then
k = k + 1
Else
Exit Do
End If
Loop
If k=j Then
ReDim Preserve b(k)
b(k)=t
Print b(k);
j=j+1
End If
Loop Until j>50
Print
【 】
Max=b(1)
For n=2 To 50
If b(n)>Max Then
【 】
p = n
End If
Next n
Print "最大数是:";Max
Print "位置在第";p;"个"
End Sub
选项
答案
j=1 , k=1 , p=1 , Max=b(n)
解析
变量j是记录已产生数据的个数,变量k是查找是否有重复时记录用,变量 p是记录最大数据的位置。在查找最大数据之前,将数组的第一个下标和数据先记录到p和Max中。
转载请注明原文地址:https://jikaoti.com/ti/Jeq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据的存储结构是指
字符变量以_______类型表示,它内存中占16个bit
下列叙述中正确的是
数据结构分为逻辑结构和存储结构,下列数据结构中不属于存储结构的是
开发软件时对提高开发人员工作效率至关重要的是()。
定义—个长度为5值为空的字符串数组,下列选项不正确的是
一个关系模式为Y(X1,X2,X3,X4),假定该关系存在如下函数依赖:(X1,x2)→X3,X2→X4,则该关系的码为()
______是字符的序列,也是组织字符的基本结构。
在面向对象方法中,允许作用于某个对象上的操作称【】。
若有inta=2,b=0;表达式b=(i++)+(i++)+(i++)的值是______。
随机试题
Wehavebeentoldthatthecontractinquestionis________foroneyearstartingfromthefifteenthofJuneofthisyear.
X线能使胶片产生
王某,女性,32岁。自觉咽中不适,如有物梗阻,咯之不出,咽之不下,胸中窒闷,而兼有胁痛,时有恶心呕吐,口干口苦,苔黄而腻,脉弦滑数。宜选用方药为
老年男性,重症肺炎患者,入院后次日病情加重,突发持续性呼吸急促,发绀,伴烦躁,呼吸频率38次/分,心率108次/分,律齐,两肺可闻及湿哕音。血气分析:pH7.34,PaO250mmHg,PaCO230mmHg,胸片示两中下肺纹理增多模糊,斑片状阴影,心
用实物法编制施工图预算时,紧接“计算工程量”之后的步骤是()。
A注册会计师是J公司2005年度会计报表审计的外勤审计负责人,在审计过程中,需对负责年度会计报表审计的助理人员提出的相关问题予以解答,并对其编制的有关审计工作底稿进行复核。请代为做出正确的专业判断。
ManyAmericansregardthejurysystemasaconcreteexpressionofcrucialdemocraticvalues,includingtheprinciplesthatallc
Americanwomenexperienceagreat【C1】______oflifestyles.A"typical"Americanwomanmaybesingle.Shemayalsobedivorcedor
查询单位名称中含“北京”字样的所有读者的借书证号和姓名,正确的SQL语句是
在考生文件夹下打开文档WORD.DOCX,按照要求完成下列操作并以该文件名(WORD.DOCX)保存文档。【文档开始】Winlmp严肃工具简介特点。Winlmp是一款既有WinZip的速度,又兼有WinAce严肃率的文件严肃工具,界面很有亲和力。尤其
最新回复
(
0
)