首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command 1的命令按钮,有程序如下: Option Base 1 Private Sub Command 1 Click() Dim a(10)As Integer‘第1个For For i=1 To 10 a(i)=In
窗体上有一个名称为Command 1的命令按钮,有程序如下: Option Base 1 Private Sub Command 1 Click() Dim a(10)As Integer‘第1个For For i=1 To 10 a(i)=In
admin
2015-05-29
104
问题
窗体上有一个名称为Command 1的命令按钮,有程序如下:
Option Base 1
Private Sub Command 1 Click()
Dim a(10)As Integer‘第1个For
For i=1 To 10
a(i)=Int(Rnd*100+100)
Print a(i);
Next
x=a(i):y=x’第2个For
For i=1 To 10
If x
Ify>a(i)Then y=a(i)
s=s+a(i)
Next
Print x,y,s
End Sub
关于上述程序的叙述中,正确的是
选项
A、程序运行出错,第1个For循环之后的x=a(i)赋值语句错
B、程序正常运行,x是10个随机数中的最大值
C、程序正常运行,s是10个随机数的和
D、程序正常运行,10个随机数的范围是100-200
答案
A
解析
随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数,本题中产生的整数的范围是100-199;在第一个循环结束后,循环变量i的值为不满足循环条件的值11,在紧随其后的x=a(i)语句将会执行出错,因为出现了数组越界。
转载请注明原文地址:https://kaotiyun.com/show/2RQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()BT4EndSubPrivateSubBT(xAsInteger)x=x*2+1
以下语句错误的是
在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码:PrivatexAsIntegerPrivateSubCommand1_Click()St
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Textl、Labell和Commandl,然后编写如下两个事件过程:PrirateSUbCommand1Click()strText=InputBox(“请输
确定一个控件在窗体上的位置的属性是
设有一个10个元素的数组,下列程序将该数组的第一个元素与第十个元素交换,第二个元素与第九个元素交换……,第五个元素与第六个元素交换,请补充完该程序。PrivateSubCommnd1_Click()Dima(1
以下用户自定义函数FunctionFunc(aAsInteger,bAsInteger)AsIntegerStaticmAsInteger,iAsIntegerm=0:i=2
在窗体上添加一个文本框Text1,然后编写如下的Load事件过程,则程序运行结果为()。PrivatesubForm_Load()Text1.Text=""Text1.SetFocusF
在窗体中放置控件,对该控件的操作错误的是()。
VisualBasic提供了列表框控件,当列表框中的项目较多。超过了列表框的长度时,系统会自动在列表框边上加一个【】。
随机试题
设备监理的目的是为了()。
Eventhoughweliveinahigh-techage,it’sstillimpossibletopredicttheweather________.
某方法一次测量得出的结果很接近于真值,说明该方法
关于子宫下段,不正确的是
2019年《中华人民共和国药品管理法》修订,首次将“保护和促进公众健康”作为新的药品管理理念。《基本医疗卫生与健康促进法》对此有更深入的规定。关于公民健康权和获得基本医疗卫生服务权利的说法,错误的是
患者,男性,35岁。3个月来发热、乏力、盗汗、食欲缺乏。查体:体重减轻,一般状况尚可。实验室检查:痰结核分枝杆菌阳性,初步诊断为肺结核收住入院。医嘱行PPD试验。护士对营养失调的护理措施不正确的是
下列各岗位中,出纳不得同时兼任的是()。
从公共产品理论的角度看,学前教育具有()
设曲线y=lnx与y=k相切,则公共切线为_______.
下列删除VLAN的命令中,无法执行的是()。
最新回复
(
0
)