首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
32
问题
窗体上有一个名称为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://jikaoti.com/ti/qpN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"Text1.SetFocusEndSubPriv
下面哪个属性肯定不是框架控件的属性
下列关于滚动条的叙述中,错误的是
程序运行时,拖动滚动条上的滚动框,则所触发的事件是
设有如下程序段:x=2Fori=1ToStep2x=x+iNexti运行以上程序后,x的值是
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoWhilex
以下关于键盘事件的叙述中,错误的是
在窗体上画一个名称为List1的列表框,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名消失。下列在List1Click事件过程中能正确实现上述功能的语句是
设a=2,b=3,c=4,d=5,下列表达式的值是a>bAndc<=dOr2*a>c
随机试题
简述公务员享有的权利。
某聚合物区块地质储量2935×104t,孔隙体积为5444×104m3;在2003年1月开始注聚合物,到2007年底,累计注入孔隙体积0.40PV。计算该区块累计注入聚合物溶液量。
A、活化过程B、一级速度过程C、零级速度过程D、米氏动力学过程E、Henderson-Hasselbalch公式()系指药物的转运速度在任何时间都是恒定的,与血药浓度无关
某企业为增值税一般纳税人,增值税税率为17%。2006年5月份该企业有关会计资料如下:(1)销售A产品100件,每件不含税价款1000元,成本800元,货款已收到;(2)收取大华公司汇来的A产品的预付款20000元;(3)为销售货物支付运费1000元,并取
全陪的主要职责是()
2015年全国共建立社会捐助工作站、点和慈善超市3.0万个,比上一年减少0.2万个。其中:慈善超市9654个,同比下降5.1%,全年共接收社会捐赠款654.5亿元,其中,民政部门接收社会各界捐款44.2亿元,各类社会组织接收捐款610.3亿元。全年民政部门
下列语句中执行跳转功能的是( )。
小李在东方公司担任行政助理,年底他统计了公司员工档案信息的分析和汇总。请你根据东方公司员工档案表(“Excel.xlsx”文件),按照如下要求完成统计和分析工作:根据身份证号,请在“员工档案表”工作表的“出生日期”列中,使用MID函数提取员工生日,单
十进制整数64转换为二进制整数等于()。
Wearewastingprecioustimesittingaroundhere.
最新回复
(
0
)