首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能 是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub Com
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能 是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub Com
admin
2020-02-27
55
问题
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能
是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:
Private Sub Command1_Click()
Dim a(10) As Integer
Dim x As Integer
For i = 1 To 10
a(i) = Int(Rnd * 100)
Next
x = InputBox("输入100以内的整数:")
p = 0
For i = 1 To 10
If a(i) = x Then
p = i
Exit For
End If
Next
If p = 0 Then
Print "没有找到与输入数据相同的数!"
Else
Print Str(x) + "在数组中的位置是" + Str(p)
End If
End Sub
对于上述事件过程,以下叙述中正确的是
选项
A、本程序实际产生的随机数是0-99
B、若产生的随机数中有相同数,则p是其中最后一个数的位置
C、程序有错,p的初值设置不对
D、程序有错,InputBox函数产生的数据与x的类型不匹配
答案
A
解析
Rnd生成的随机数为0-1的小数,乘以100后取整后范围为0-99,选A)。
转载请注明原文地址:https://kaotiyun.com/show/jkTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在关系数据库设计中,关系模式是用来记录用户数据的()。
为了删除列表框中的一个列表项,应使用的列表框方法是()。
关系数据模型的三个组成部分中不包括()。
为了读取数据,需打开顺序文件”D:\data5.txt”,以下正确的命令是()。
如果要在语句:a=Array(1,2,3,4,5)的前面声明变量a,则正确的声明是()。
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txl文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将杏找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
PrintRight(”VBProgramming”,2)语句的输出结果是()。
在表达式2+3*4^5-Sin(x+1)/2中,首先进行的运算是()。
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为( )。
在软件生产过程中,需求信息的来源是()。
随机试题
党的十八大以来,习近平总书记亲自谋划、亲自治理、亲自推动黄河的保护和治理关于总书记对黄河治理的重要论述与治黄考察省份,下列对应正确的是:①必须担负起保护“中华水塔”的责任——青海②首次提出“让黄河成为造福人民的幸福河”——甘肃③建设黄河流域生态保护和高质量
Ontelevisionallovertheworldthereareprogrammesabouttheworkofthepolice.Theyarepopularbecausetheyareusuallyve
A.抗Sm抗体B.ANAC.抗磷脂抗体D.抗dsDNA抗体系统性红斑狼疮的特异性自身抗体,与病情活动性相关的是
唇腭裂的发病机制是
A、青霉素钾B、硫酸阿托品C、醋酸氟轻松D、苯巴比妥钠E、甘油以下鉴别的药物是样品溶液加氯化钡试液,即生成白色沉淀,沉淀在盐酸或硝酸中均不溶解
下列关于国家赔偿的期限表述不正确的是:
DonaldSuper创建了一种具有六个阶段的职业选择理论,下列阶段和年龄对应得不正确的是()。
根据企业破产法律制度的规定,申请人只能对()的裁定向上级人民法院提起上诉。
儿童的心理障碍以()为主【江西师范大学2014】
AMessengerfromthePastHispeoplesaidgood-byeandwatchedhimwalkofftowardthemountains.Theyhadlittlereasonto
最新回复
(
0
)