首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下程序的功能是随机产生10个两位的整数: Option Base 1 Private Sub Command1_Slick( ) Dim a(10)As Integer,i As Integer Randomize For i=1 To 10 a
以下程序的功能是随机产生10个两位的整数: Option Base 1 Private Sub Command1_Slick( ) Dim a(10)As Integer,i As Integer Randomize For i=1 To 10 a
admin
2020-04-18
60
问题
以下程序的功能是随机产生10个两位的整数:
Option Base 1
Private Sub Command1_Slick( )
Dim a(10)As Integer,i As Integer
Randomize
For i=1 To 10
a(i)=Int(Rad*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-10werbound+1)*Rnd+lowerbound),其中upperbound是随机整数范围的上限,lowerbound是随机整数范围的下限。本题中upperbound为99,lowerbound为10。
转载请注明原文地址:https://kaotiyun.com/show/xuTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下程序:PrivateSubsV(ByValmAsInteger,nAsInteger)m=m*2n=n-5Printm;nEndSubPrivateSubForm_Cli
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10y=20Callfun1(x,y)Printx;yEnd
单击命令按钮执行以下程序,则输出结果为()。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=14:y=48:CallProc(x,y)Printx;yEndSub
执行以下程序后,在窗体上输出的是()。PrivateSubCommandl_Click()Dima(20)Fori=1To20Step2a(j)=j
下面属于白盒测试方法的是
已知图片框Picture1中已装入一个图形,为了在不删除图片框的前提下,清除该图形,应采取的正确操作是( )。
下列操作说明中,错误的是( )。
设x是整型变量,与函数IIf(x>0,-x,x)有相同结果的代数式是( )。
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是()。
下列说法中,错误的是
随机试题
企业本月机加工车间完成并验收入库自制半成品一批,根据半成品入库单,应()。
反转录病毒的基因组复制方式是
患者,男,28岁,被烧伤后6小时入院治疗,烧伤面积约60%,经注射吗啡、头孢类抗生素和生理盐水1000ml,仍有休克,应考虑为
可确诊疑是结核性腹膜炎的检查为
患者,女性,56岁。肝炎30年。近1个月来肝区疼痛,食欲减退,进行性消瘦,肝呈进行性增大,质硬,触诊有结节,面部有蜘蛛痣,腹膨隆。应首先考虑的是
根据税收征收管理法律制度的规定,被申请人具体行政行为的下列情形中,行政复议机构决定撤销、变更或者确认该具体行政行为违法的有()。
ABC会计师事务所的注册会计师A负责对Y公司20×9年度财务报表进行审计。在了解Y公司及其环境后设计进一步审计程序。请代注册会计师A对以下事项做出正确的专业判断。注册会计师在确定何时实施审计程序时,需要考虑的因素有()。
官方数据显示,2008年,北京地区移动电话用户的月均电话费为50元;从2009年3月份的用户费用清单中,随机抽取40人,发现他们的月均话费为60元;移动电话公司想通过假设检验来判断“2009年的月均话费是否显著提高”,设定零假设为“H0:2009年和200
标志毛泽东思想初步形成的著作是()。
____disagreeonwhetherthecheerleadersareentertainingorjustanirritatingdistraction.
最新回复
(
0
)