首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能 Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i = 1 To
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能 Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i = 1 To
admin
2015-10-23
47
问题
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能
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/ePLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的执行结果是______。PrivateFunctionP(NASInteger)Fori=1ToNSUM=SUM+iNextiP=SUMEndFunctionPrivteSubComma
运行以下程序后,输出的图案是()。Form1.ClSA$=Strillg$(10,“*”)Fori=1To5n=10-2*IX$=A$:Y$=Space$(n)Mid$(X$,i+1,n)=
下列不能打开菜单编辑器的操作是()。
设有命令按钮Commandl的单击事件过程,代码如下:PrivateSubCommandl_Click()Dima(30)AsIntegerFori=1To30a(i)=Int(Rnd*100)
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTypeAngKAsIntegerSi
PrivateSubForm_Activate()Forj=1to3x=3Fori=1to2x=x+6NextNextPrintxEndSub程序运行后,窗体上显示的结果为【
下列程序功能是,产生10个0100的随机数,输出其中的最大值。请将程序补充完整。PrivateSubForm_Click()Diman(10)AsIntegerDimmaxAsIntegerRandomizeFori%
下面程序运行后,窗体中显示【】。PrivateSubCommand1_Click()a$="*":b$="$"Fork=1To3x$=String$(Len(a$)+k,b$)Printx$;NextPrint
随机试题
企业出售无形资产的净收入,会计上应确认为()。
下列哪一项不是引起左房增大的原因
下列哪项属于小儿出生时不存在,以后出现并持续终身的神经反射
患者,男,52岁。平素身体虚弱,今日突然昏仆,不省人事,目合口张,手撒肢冷,汗多,小便自遗,肢体软瘫,舌痿,脉细弱。治疗应首选的方剂是
下列关于交易所席位管理的说法中,正确的有( )。
以下关于外资股的说法,正确的是()。
在金银复本位制下,实际价值高于名义价值的货币被收藏、熔化而退出流通,实际价值低于名义价值的货币则充斥市场,这种现象称作()。
根据《中华人民共和国刑法》第二百六十三条的规定,持枪抢劫是抢劫罪的加重理由,应处10年以上有期徒刑、无期徒刑或者死刑。冯某抢劫了某出租车司机的钱财。法院在审理过程中确认,冯某抢劫时使用的是仿真手枪,因此,法官在对冯某如何量刑上发生了争议。法官甲认为,持仿真
锦上添花:雪中送炭与()在内在逻辑关系上最为相似。
Whydidthefoxfallintothefiver?HowdidthesheepfeelWhenshesawthefoxintheriver?
最新回复
(
0
)