首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
要打印出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
20
问题
要打印出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://kaotiyun.com/show/Lz1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列命令中,以下哪个命令能为远程对象生成stub和skeleton
下列程序中,若从键盘中输入的是大写字母c,则程序输出的结果是importjava.io.*;publicclassExam{publicstaticvoidmain(Stringargs[]){
下列选项中属于Java语言的垃圾回收机制的一项是
在switch(expression)语句中,expression的数据类型不能是
设一棵完全二叉树共有700个结点,则在该二叉树中有【】个叶子结点。
下列哪个数代表八进制整数?
关系表中的每一横行称为一个
设有下列两个类的定义,则类Person和类Man的关系是()。classPerson{longid://身份证号Stfingname;//姓名}classManextendsPerson{i
下面ChangeTitle()中对b1和b2按钮构造监听器,实现当单击b1按钮时标题变为students,当单击b2按钮时标题变为Teachers。请将程序补充完整。publicChangeTitle(){super("Titl
在长度为n的线性表中查找一个表中不存在的元素,需要的比较次数为【】。
随机试题
环境承载力:指生念系统在维持生命机体的再生能力、适应能力和更新能力的前提下,承受有机体数量的限度。根据上述定义,下列小属于保护环境承载力措施的是()。
本问中“甘言媚词,作妇人状”是写
女性,21岁,颈椎高位骨折脱位,并出现呼吸困难,最先采取的措施是
下列不用于急性心肌梗死诊断的生化项目是
关于不孕症的治疗下列哪项是错误的
根据《环境影响评价技术导则一地下水环境》,地下水环境影响识别内容可不包括()。
以下是国家助学贷款和商业助学贷款共同原则的是()。
裕廊飞禽公园是世界上最大的鸟类公园之一。()
人:伐:鸭
在黑盒测试方法中,设计测试用例的主要根据是()。
最新回复
(
0
)