首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub
窗体上有一个名称为command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub
admin
2017-11-23
38
问题
窗体上有一个名称为command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:
Private Sub Commandl_Click()
Dim a(10)As Integer,x As Integer
a(i)=Int(Rnd*100)
x=InputBox(”输入100以内的整数:”)
P=0
For i=1 To 10
Ifa(i)=x Then
P=i:Exit For
End If
Next
Ifp=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的功能是用于产生一个小于1但大于或等于0的随机数。为了生成某个指定范围内的随机整数,可使用以下公式:Int((upperbound-lowerbound+1)*Rnd+lowerbound),其中upperbound是随机整数范围的上限,lowerbound是随机整数范围的下限。本题中upperbound为99,lowerbound为0。
转载请注明原文地址:https://kaotiyun.com/show/2NGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
决定一个窗体有无控制菜单的属性是______。
通过以下______窗口可以在设计时直观的调整窗体在屏幕上的位置。
下面()语句执行后,窗体Forml从内存退出。
如果存在如下过程:PrivateFunctionFMax(a()AsInteger)DimFirstAsInteger,LastAsInteger,iAsIntegerFirst=LBound(a)
为了使能在DOS或Windows下运行的可执行程序也可以在VisualBasic中调用,可通过调用函数来实现。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntiLnum>6
在窗体上放一个文本框Text1,在文本框中输入456,并有如下事件过程:PrivateSubForm_Click()x=InputBox("请输入一个整数")Printx+Text1.TextEnd
执行语句DimX,YAsInteger后,______。
下面子过程语句说明合法的是
设有程序段:sum=0ForI=11to-1step-2Sum=sum+INextIPrintI语句Sum=Sum+I执行的次数和最后的I值分别为()。
随机试题
党的十九大报告指出,要健全党和国家监督体系,增强党自我净化能力,根本靠强化党的自我监督和群众监督。要加强对权力运行的制约和监督,让人民监督权力,让权力在阳光下运行,把权力关进制度的笼子。下列属于健全党和国家监督体系的措施有:
良性肿瘤对机体的影响最主要决定于
A、酚红排泄率下降B、尿镜枪大量白细胞C、清洁中段尿D、尿镜检白细胞,5个/HPE、氮质血症肾小球功能损害会出现()
根头部有棕色或黄白色茸毛,叶片呈倒披针形,边缘浅裂或羽状深裂的药材为( )。
线路竣工测量主要包括()。
已知变换Y=Ax+B,其中变换矩阵写出椭圆x2/4+y2/9=1在该变换下的曲线方程;
以二次大战为起点的工业革命的特点是()。
简要分析中国人民银行的资产负债表,并分析表中各项与货币供给的关系。
在Java中,线程是()。
设二叉树的前序序列为ABDEGHCFIJ,中序序列为DBGEHACIFJ,则后序序列为()。
最新回复
(
0
)