首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub
admin
2020-05-11
67
问题
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim x As Integer
For i=l To 10
a(i)=Int(Pnd*100)
Next
x=InputBox(“输入100以内的整数:”)
P=0
For i=l 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/6EHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Vis,ualBasic中的“启动对象”是指启动VisualBasic应用程序时,被自动加载并首对象。下列关于VisualBasic“启动对象”的描述中,错误的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“菜单”的窗体上,设计满足如下要求的菜单:运行后的窗体如图1-207所示。存盘时,将文件保存至考生文件夹下,且工程文件名为s
关于水平滚动条,如一下叙述中错误的是()。
以下关于队列的叙述中正确的是()。
在数据管理技术发展的三个阶段中,数据共享最好的是( )。
假定Picturel和Text1分别为图片框和文本框的名称,下列不正确的语句是()。
设程序中有以下语句:MsgBox"Visual",,"Basic","等级考试",2执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是
在长度为n的有序线性表中进行二分查找,最坏情况下需要比较的次数是( )。
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
随机试题
加强足三阴、足三阳经脉与心脏联系的是
某女28岁,结婚2年,1年前人工流产2次,至今未孕,经行量少不畅,腹痛拒按。检查:右侧附件增厚压痛,输卵管堵塞。舌质暗红,脉弦。治宜
肝硬化食管静脉曲张大出血后,可能出现的表现不包括
37岁妇女,因阴部有块物脱出就诊。妇科检查见部分宫体与官颈外露于阴道口,宫颈较长。本例恰当处理应
某公路隧道穿越两条断层地带,围岩级别为Ⅱ—Ⅲ级,岩层富水性中等偏高,有较普遍的滴水渗水现象,采用以地震波反射法为主的综合超前地质预报法进行预报。请回答以下问题。地震波反射法的炮点、检波器(探头)布置等相关操作正确的有()。
AB公司有一个跨国子公司,为了减少汇率风险,该公司用同一货币的长期贷款为子公司的长期资产融资,这属于()。
得道多助:失道寡助
A、0B、1C、2D、3C扇入指的是调用一个给定模块的模块个数。题干系统中,第2层模块扇入均为1,第3层中功能模块3.1扇入为2,其余为1,故最大扇入为2,C选项正确。
FewAmericansstayinonepositionoroneplaceforalifetime.Wemovefromtowntocityto【T1】______,fromajobinoneregio
Fordecades,AmericanshavetakenforgrantedtheUnitedStates’leadershippositioninthedevelopmentofnewtechnologies.The
最新回复
(
0
)