首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下程序的功能是随机产生10个两位的整数: Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer,iAs Integer Randomize For i=1.To 10 a(i)=In
以下程序的功能是随机产生10个两位的整数: Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer,iAs Integer Randomize For i=1.To 10 a(i)=In
admin
2019-01-17
36
问题
以下程序的功能是随机产生10个两位的整数:
Option Base 1
Private Sub Command1_Click()
Dim a(10)As Integer,iAs Integer
Randomize
For i=1.To 10
a(i)=Int(Rnd*100)+1:Print 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)
答案
B
解析
随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数。为了生成某个指定范围内的随机整数,可使用公式:Int((upperbound.lowerbound+1)。Rnd+lowerbound,其中upperbound是随机整数范围的上限,lowerbound是随机整数范围的下限。本题中upperbound为99,lowerbound为10。
转载请注明原文地址:https://kaotiyun.com/show/6gFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下面程序代码:PrivateSubCommand1_Click()a=Array(1,2,3,4,5,6,7,8,9,10)n=UBound(a)Fork=0ToUBound(a)
设变量x的值是845,则下面语句的输出是Printx\100+(xMod100)\10+xMod10
判断单选按钮是否被选中的属性为
下面不属于软件需求分析阶段主要工作的是
设窗体上有2个文本框Text1和Text2,并有下面的事件过程:DimnPrivateSubText1_KeyPress(KeyAsciiAsInteger) If"A"
以下可以判断是否在文本框(名称为Text1)内按下了回车键的事件过程是
设工程中有Form1、Form2两个窗体,要求单击Form2上的Command1命令按钮,Form2就可以从屏幕上消失,下面的事件过程中不能实现此功能的是( )。
下列关于顺序文件的描述中,正确的是( )。
下面属于黑盒测试方法的是
下列关于菜单的描述中错误的是()。
随机试题
A.归脾汤B.当归六黄汤C.龙胆泻肝汤D.桂枝加黄芪汤治疗自汗盗汗阴虚火旺证常选用
Thecomputerisawonderfulmachine.Itisthemostimportantinventionsincethetypeofengineusedincars.Todayithasthe
颞下颌关节盘内含神经血管的部分为
下列关于影响客户风险承受能力的因素的表述中,正确的有()。Ⅰ.一般情况下,随着财富的增加,客户的风险承受能力也会增加Ⅱ.客户年龄越大,其所能承受的风险越低Ⅲ.客户理财目标的弹性越大,其可承受的风险也越高Ⅳ.客户风险承受能力与其受
在建工程发生单项或单位工程报废或毁损,减去残料价值和过失人或保险公司等赔款后的净损失,计入继续施工的工程成本;如为非常原因造成的报废或毁损,或在建工程项目全部报废或毁损,应将其净损失直接计入当期营业外支出。( )
下列属于公安法制工作的内容有()。
王安石变法的目的有()。
乙公司得知甲公司正在就某合同项目与丙公司谈判,乙公司本来并不需要这个合同项目,但为排挤甲公司,就向丙公司提出了更好的条件。甲公司退出后,乙公司也借故中止谈判,给丙公司造成了损失。乙公司的行为应定性为()。
下图表示一个局域网的互联拓扑,方框中的数字是网桥ID.用字母来区分不同的网段。按照IEEE802.1d协议,ID为(1)的网桥被选为根网桥,如果所有网段的传输费用为1,则ID为92的网桥连接网段(2)的端口为根端口。(2010年上半年试题)(1)
Withoutheatandsunlight,plantsontheearth______well.
最新回复
(
0
)