首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub
窗体上有一个名称为command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub
admin
2017-11-23
28
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click()CommonDialogFlags=cdlOFNHideReadOnly
下列程序的执行结果为()。PtivateSubCommand_Click()DimFirStrAsStringFirStr="abcdef"PrintPat(FirSB)EndSubPrivat
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量:DimPaintStartAsBoolean编写如下事件过程:PrivateSubForm_Load
有如下函致:Functionfact(xAsInteger)AsLongDimpAsLong,iAsIntegerp=1Fori=1Toxp=p*1Nex
在窗体上添加一个文本框,名为text1,然后编写如下的load事件过程,则程序的运行结果是______。privatesubform_loadtext1.text=“”text1.se
以下关于函数过程的叙述中,正确的是()。
有下列两个过程:SubS1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tEndSub
执行语句Open"C:\SDat.dat"ForInputAs#2后,系统()。
DIMa(3,-3to0,3to6)ASSTRING语句定义的数组元素有【】个。
随机试题
收入汇缴账户除向其基本存款账户或预算外资金财政专用存款户划缴款项外,只收不付,不得支取现金。()
LackofSleepIsDangerousDoyouknowthatifyoumissouttoomuchsleepyouwilldie?It’strue!Ifyoustayawakefora
猪瘟后期回盲口出现的扣状肿属于
收益递增递减原理揭示的投入产出关系包括()。
下列选项属于程序性知识的是()
《白沙细乐》是我国傣族的传统音乐。
理论对于()相当于()对于设计
Atfirst,IthoughtitwaspossiblethatIcouldhaveleftitathome.
Mrs.Williams’hobbywas(11).Shelovedflowersverymuchandhadasmallbutbeautifulgarden.Insummer,her(12)were
A、Thewomanisgoingtoholdabigpartytomorrow.B、Themanhasnoideawhattherightthingtodois.C、Thewomandoesn’tknow
最新回复
(
0
)