首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
31
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
窗体上有一个名称为Timer1的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Circle)。编写程序如下:PrivateSubFormLoad()PrivateSubTimer
下列关于滚动条的叙述中,错误的是
下列可以打开随机文件的语句是
设有如下语句:Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码的叙述中,错误的是
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubFormLoad()PrivateSubFormClick()Text1.Text="":Text1.SetFocus
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori
以下关于键盘事件的叙述中,错误的是
为了使标签控件在显示其内容时不覆盖其背景内容,需进行设置的属性为
已知:x=6y=39则表达式“y\x*Sgn(x)”的值为
随机试题
局麻药按其化学结构可分为酯类和酰胺类,下列属酯类的为下列哪一项为引起局麻药中毒的原因
女患者,35岁,停经40天,恶心,时有呕吐,近一周阴道少量出血,淡咖啡色,左下腹隐痛,2小时前突感左下腹剧烈疼痛,恶心呕吐加重,查尿妊娠试验阳性,B超检查宫腔内未见胎囊,盆腔有积液,最可能的诊断是:
子宫肉瘤的诊断方法中不包括
某园区现有20家企业,SO2年排放总量己达到规划环评许可量1000吨。现拟建SO2年排放量100吨的项目,该项目环保措施达到园区现有企业治理水平。环评总量核算在区域总量不变的前提下,基于公平原则,该项目SO2年排放总量和园区原20家企业排放总量合理的分配方
下列各项中属于接受风险的措施的是()。
下列方式中,可以提高审计程序不可预见性的有()。
下图所示国家为世界重要红茶生产国。据考察发现,M地第一季度生产的茶叶质量最好。读图完成小题。导致M地该季度茶叶质量最高的主要因素是()。
根据下表所示的实验设计方案(A为自变量,E为额外变量,S为被试),回答下面题。在该实验设计中,对所获得的数据进行分析时,会得到
设f(x,y)=max{x,y},D={(x,y)|0≤x≤1,0≤y≤1).求f(x,y)|y-x2|dσ.
A、ItmakesitsnewmodelscapableofrunningIBMsoftware.B、Itimprovesthecolorgraphicsofitsnewmodels.C、Itcopiesthem
最新回复
(
0
)