首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
程序代码如下: Option Base 1 Private Sub Form_Click() Dim a(5, 5) As Integer Randomize For i = 1 To 5 For j = 1 To
程序代码如下: Option Base 1 Private Sub Form_Click() Dim a(5, 5) As Integer Randomize For i = 1 To 5 For j = 1 To
admin
2020-07-22
73
问题
程序代码如下:
Option Base 1
Private Sub Form_Click()
Dim a(5, 5) As Integer
Randomize
For i = 1 To 5
For j = 1 To 5
If i = j Then
a(i, j) = 1
Else
a(i, j) = Int(Rnd * 50)
End If
Print a(i, j);
Next j
Print
Next i
End Sub
以下关于上述程序的叙述中,错误的是
选项
A、程序为数组a的所有元素赋了随机值
B、Randomize的作用是避免同一序列随机数的反复出现
C、程序产生随机数的范围是大于等于0,小于50
D、输出结果组成的方阵中对角线上的值为1
答案
A
解析
本题中,Rnd(x)是一个随机函数,它能产生一个0到1之间(不包括0和1)之间的单精度随机数,其中变量x是种子数,若省略x,Rnd函数采用系统时间为种子值。Randomize省略了参数,用系统计时器 <
http://baike.soso.com/ShowTitle.e?sp=S
计时器>返回的值作为新的种子值,如果没有使用Randomize,则(无参数的)Rnd函数使用第一次调用Rnd函数的种子值,Randomize避免同一序列随机数反复出现,故B项表述正确。本程序中定义a(5, 5)的数组,这个数组对角线上数值为1,其余元素值为Int(rnd*50),除了对角线上元素,其余元素被赋予随机值。故A表述错误, D表述正确。Rnd的范围在0到1之间,故rnd*50的范围在0到50之间(不包括0和50),Int(Rnd * 50)值为不大于(Rnd * 50)的最大整数,即范围是大于等于0且小于50,C表述正确。
转载请注明原文地址:https://kaotiyun.com/show/BAHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是()。
下列各种窗体事件中,不能由用户触发的事件是()。
在考生文件夹下有一个工程文件sit5.vbp,其窗体上画有两个名称分别为Text1、Text2的文本框,其中Text1可多行显示。请画两个名称为Commandl、Command2,标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下:①单击“
以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是()。
下列数据结构中,能够按照“先进后出”原则存取数据的是( )。
定时器的Interval属性的值是一个整数,它表示的是( )。
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
以下说法中,正确的是()。
将E-R图转换到关系模式时,实体与联系都可以表示成()。
下列数据结构中,能够按照“先进后出”原则存取数据的是()。
随机试题
甲从商场购买某商品,此商品质量不合格,甲可按商场对商品实行的“三包”制度进行退货、修理或更换,这种买受人甲与出卖人商场之间存在的债是()
治疗寒积便秘,宜选用的药物是()
二巯丙醇用于解救烯丙吗啡用于解救
甲和乙分别是某县的县委书记和县长。该县在2001年7月发生了某乡金属矿严重透水事故,矿长迅速向甲和乙汇报,甲和乙得知有40多人死亡后相互商量决定隐瞒此事,安排县里和矿上用重金补偿死者,严密封锁消息;并多次违反有关规定向上级报告虚假消息。在该事故被媒体披露之
按产出方式的不同,企业的作业可以分为以下四类。其中,随产量变动而正比例变动的作业是()。(2008年改编)
物业管理招标形式分为()。
1998~2001年中人口增长最多的一年是哪年?该市在哪一年人口突破950万大关?
土地革命完成后,国内的主要矛盾是
层次型、网状型和关系型数据库划分原则是
Wemayuseyourcontactdetailstosendtocompanieswhoseservicesmaybeofinteresttoyou.
最新回复
(
0
)