首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,有程序如下: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer‘第1个For
窗体上有一个名称为Commandl的命令按钮,有程序如下: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer‘第1个For
admin
2019-07-30
28
问题
窗体上有一个名称为Commandl的命令按钮,有程序如下:
Option Base 1
Private Sub Commandl_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
Ifx<a(i)Then x=a(i)
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是1 0个随机数中的最大值
C、程序正常运行,s是10个随机数的和
D、程序正常运行,10个随机数的范尉是100-200
答案
A
解析
随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数,本题中产生的整数的范围是100-199;在第一个循环结束后,循环变量i的值为不满足循环条件的值11,在紧随其后的x=a(i)语句将会执行出错,因为出现了数组越界。
转载请注明原文地址:https://kaotiyun.com/show/1YUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下函数:FunctionDelSpace(chAsString)AsIntegerDimn%,st$,c$st="":n=0Fork=1ToLen(ch)c=Mid(ch,k,1)
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"Text1.SetFocusEndSubPriv
如果要在窗体上使用2组单选按钮,每组都可以有一个被选中,则应该做的是
程序运行时,拖动滚动条上的滚动框,则所触发的事件是
设有如下程序段:x=2Fori=1ToStep2x=x+iNexti运行以上程序后,x的值是
窗体上有名称分别为Text1、Text2的文本框,名称为Command1的命令按钮。运行程序,在Text1中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommand1_Click()Text2.T
编写如下程序:PrivateSubCornmandlClick()DimXAsInteger,yAsIntegerx=1:y=1Doy=x*yIfv>10ThenE
设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程:PrivateSubCommand1_Click()DimsAsString,chAsStrings=""Fork=1ToLen(Text1)ch=Mid
表达式2*3^2+4*2/2+3^2的值是
随机试题
ISO/OSI参考模型七层协议中第一层是__________。
子宫肉瘤以子宫内膜间质肉瘤最多见。()
绝育术中脏器损伤时由于绝育失败是由于
A.皮肤迟发型超敏反应B.血清谷丙转氨酶测定C.血清免疫球蛋白测定D.血清β微球蛋白测定E.硝基四唑氮蓝还原试验体液免疫测定是指
在项目( ),可采用扩大指标估算法估算流动资金。
全陪在乘坐旅游车时,应选择()。
简述教学的一般任务。
给定资料1.书,是人类文明的成果;读书是文明人的内在需求,而且始终与人类文明实践及进程相伴随。1995年,联合国教科文组织将每年的4月23日确定为“世界读书日”。其主旨是“希望散居在全球各地的人们,无论你是年老还是年轻,无论你是贫穷还是富有,无论
Ifitwereonlynecessarytodecidewhethertoteachelementarysciencetoeveryoneonamassbasisortofindthegiftedfewan
Criticismandself-criticismisnecessary______ithelpsustofindandcorrectourmistakes.
最新回复
(
0
)