首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下程序的功能是产生 100 个 0~99 的随机整数,并统计个位上的数字分别是1,2,3,4,5, 6,7,8,9,0的数的个数。 Private Sub a3() Dim x(1 To 10) As Integer, a(1 To 100) As
以下程序的功能是产生 100 个 0~99 的随机整数,并统计个位上的数字分别是1,2,3,4,5, 6,7,8,9,0的数的个数。 Private Sub a3() Dim x(1 To 10) As Integer, a(1 To 100) As
admin
2020-09-01
92
问题
以下程序的功能是产生 100 个 0~99 的随机整数,并统计个位上的数字分别是1,2,3,4,5,
6,7,8,9,0的数的个数。
Private Sub a3()
Dim x(1 To 10) As Integer, a(1 To 100) As Integer
Dim p As Integer, j As Integer
For j = 1 To 100
【 】
p = a(j) Mod 10
If p = 0 Then p = 10
【 】
Next j
For j = 1 To 10
Debug.Print x(j);
Next j
End Sub
有如下语句:
① a(j) = Int(Rnd * 100)
② a(p) = Int(Rnd * 100)
③ p = Int(Rnd * 100)
④ x(p) = x(p) + 1
⑤ x(j) = x(j)+1
⑥ p = p+1程序中有两个空,将程序补充完整的正确语句是
选项
A、①④
B、②⑤
C、③⑥
D、②⑥
答案
A
解析
数组a[1-100]分别用于存储100个随机整数,x[1-10]分别用于存储个位上数字是1,2,3,4,5,6,7,8,9,0的数的个数,Rnd 函数返回大于或等于 0且小于1的随机值,Int函数用于取整。程序利用For j = 1 To 100进行100次循环,每次循环利用Int(Rnd * 100)产生一个0-99的随机整数存储在数组a(j)中,之后利用a(j) Mod 10计算出该整数的个位数字存储在p中,之后利用x(p) = x(p) + 1将该个位数字加1后存储在数组x(p)中,因此空行内应填入a(j) = Int(Rnd * 100)与x(p) = x(p) + 1。因此选项A正确。
转载请注明原文地址:https://kaotiyun.com/show/ngcp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在考生文件夹下,“samp1.accdb”数据库文件中已建立三个关联表对象(名为“职工表”、“物品表”和“销售业绩表”)。试按以下要求,完成表和窗体的各种操作:将考生文件夹下Excel文件Test.xls中的数据导入到当前数据库中。要求:数据中的第一行
考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tUser”,同时还设计出窗体对象“fEdit”和“fUser”。请在此基础上按照以下要求补充“fEdit”窗体的设计:将窗体中名称为“1Remark”的标签控件上的文字颜
在考生文件夹下有一个数据库文件“samp2.accdb”,其中存在已经设计好的两个表对象“tTeacher1”和“tTeacher2”以及一个宏对象“mTest”。请按以下要求完成设计。(1)创建一个查询,查找并显示教师的“编号”、“姓名”、“性别”、“
考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、查询对象“qEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计:(1)消除报表的“性别”排序,重新按照职工
在考生文件夹下有一个数据库文件“sampl.accdb”,里边已经设计好了表对象“tDoctor”“tOffice”“tPatient”和“tSubscribe”。试按以下操作要求,完成各种操作:(1)在“sampl.acedb”数据库中建立一个新表,名
需求分析阶段产生的主要文档是
在Access中,通过窗体对表进行操作,不能完成的功能是
下列程序段中,如果变量a中保存的字符是逗号“,”,则以下程序段执行后,变量str的值是SelectCaseaCase"A"To"Z"str="UpperCase"Case"0"To"9"str="Nu
某二叉树的前序序列为ABCDEFG,中序序列为DCBAEFG,则该二叉树的后序序列为
下列过程的功能是:通过对象变量返回当前窗体的Recordset属性记录集引用,消息框中输出记录集的记录(即窗体记录源)个数。SubGetRecNum()DimrsAsObjectSetrs=Me.RecordsetM8gBox__En
随机试题
______thegroundcoveredwithice,theroadhasbecomeveryslippery.
治疗小细胞肺癌可用:消除肾盂积水可用:
足三阴经都可以主治以下哪项疾病:
男,25岁。以饮酒后左上腹疼痛伴恶心、呕吐8小时就诊。该患者腹痛呈持续性刀割样疼痛,并向左腰背部放射,呕吐后疼痛不缓解。查体:急性痛苦面容,大汗淋漓,左上腹压痛明显。化验血淀粉酶明显高于正常。应首先考虑哪种疾病
某锅炉房额定耗油量为4200kg/h,燃烧器喷油嘴是带回油25%的机械雾化。要求油的雾化黏度为4°E。根据贮油罐区采用的螺杆泵,其适用黏度为20°E,从黏湿图中查得为t1=86℃,可知在贮油罐中需加热到86℃,即为初温,从黏湿图中又查得4°E为139℃
《日出》揭露了资本主义社会制度的罪恶,暴露了资产阶级社会生活的腐朽和黑暗。()
发慰问电的名义通常是()。
2012年,我国电子信息产品进出口呈小幅增长态势,进出口总额11868亿美元,增长5.1%,增速比上年回落6.4个百分点,低于全国商品外贸总额增速1.1个百分点,占全国外贸总额的30.7%。其中,出口6980亿美元,增长5.6%,增速比上年回落6.3个百分
对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为
Wheredoestheconversationtakeplace?
最新回复
(
0
)