首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub Comm
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub Comm
admin
2020-01-02
82
问题
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:
Private Sub Command1_Click()
Dim a(10)As Integer
Dim x As Integer
For i=1 To 10
8(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/ZETp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为计算an的值,某人编写了函数power如下:PrivateFunctionpower(aAsInterger,nAsInteger)AsLongDimsAsLongp=aFork=1Ton
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimI,NumRandomizeDoForI=1To1000Num=Int(Rnd
在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为()。
为了使窗体的大小可以改变,必须把它的BorderStyle属性设置为()。
下面的程序执行时,将把当前目录下的顺序文件smtextl.txt的内容读入内存,并在文本框Text1中显示出来。在横线处应填写()。PrivmeSubCommand1_Click()DiminDataAsString
要使菜单项MenuOne在程序运行时失效,应使用的语句是()。
在关系中凡能惟一标识元组的最小属性集称为该表的键或码。二维表中可能有若干个键,它们称为该表的()。
在三级模式之间引入两层映像,其主要功能之一是()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为CmdChange、标题为“改变颜色"的命令按钮,窗体标题为“设置窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景
软件测试用例包括()。
随机试题
公司所得税税率越高则()
软组织损伤的早期是指
一案件的被告人耳聋,该被告人未委托辩护人,关于该案的辩护人问题,下列说法正确的是:()
按近代量子力学的观点,核外电子的运动特征为()。
能在有限的场地内连续将物料由低处垂直运至高处,适合输送均匀、干燥、细颗粒散装固体物料的输送机是()。
下列关于基金宣传推介材料登载过往业绩的,应当符合的要求,表述错误的是()。
纳税人、扣缴义务人在规定的期限内不缴或少缴应纳或解缴的税款,税务机关可根据其情节依法采取的措施和处罚主要有()。
在产品竞争激烈时,许多企业大做广告。一家电视台在同一个广告时段内,曾同时播放了四种白酒的广告。渲染过分的广告适得其反。大多数消费者在选购产品时,更重视自己的判断,而不轻信广告宣传。上述陈述隐含着下列哪项前提?
打开工作簿文件EXC.XLSX,对工作表“产品销售情况表”内数据清单的内容建立数据透视表,行标签为“产品名称”,列标签为“分公司”,求和项为“销售额(万元)”,并置于现工作表的B2:V37单元格区域,工作表名不变,保存EXC.XLSX工作簿。
A—mouseD—dataprocessingB—centralprocessingunitE—desktopoperatingsystemC—CADF—dialogueboxesG—diskdriveL—homepageH
最新回复
(
0
)