首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,有程序如下: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer ’第1个For For i = 1 To 1
窗体上有一个名称为Command1的命令按钮,有程序如下: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer ’第1个For For i = 1 To 1
admin
2015-08-28
40
问题
窗体上有一个名称为Command1的命令按钮,有程序如下:
Option Base 1
Private Sub Command1_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 < a(i) Then x = a(i)
If y > 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
解析
第一个For循环中缺省Step,步长为1,退出循环时下标为10,第1个For循环之后的x=a(i)赋值语句下标越界,出错。选A)。
转载请注明原文地址:https://kaotiyun.com/show/ceQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若看到程序中有以下事件过程,则可以肯定的是,当程序运行时PrivateSubClick_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print”VBP
VB中有3个键盘事件:KeyPress、KeyDown、KeyUp,若光标在Textl文本框中,则每输入一个字母
设x是整型变量,与函数IIf(X>0,-x,x)有相同结果的代数式是
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体中有一个RichText文本框控件和一个文本框控件,名称分别为RichTextBoxl和Textl,两个命令按钮,名称分别为Commandl和Command2,标
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图1-58所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求:
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在Forml的窗体上画一个名称为Pl的图片框,然后建立一个主菜单,标题为“操作”,名称为op,该菜单有两个子菜单,其标题分别为“显示”和“清除”,名称分别为Dis和Clea
设a="MicrosoftVisualBasic",则以下使变量b的值为“VisualBasic”的语句是______。
下列关于栈的叙述中正确的是______。
下面关于完全二叉树的叙述中,错误的是______。
随机试题
环境影响评价工程师对其主持完成的环境影响评价工作的()承担责任。
有价证券按照上市与否可分为上市证券和非上市证券,非上市证券就是指不符合证券交易所上市条件而不能上市的证券。()
常用的球类比赛的编排有()。
下列关于政府职能转变的说法,正确的有()。
下列关于政府价格管制的说法,不正确的是()。
求下列微分方程的通解或特解:-4y=4x2,y(0)=-1/2,y’(0)=2;
关于分布式非结构化P2P网络的描述中,错误的是()。
在下列字符中,其ASCII码值最小的一个是()。
"InterestinlearningChineseamongAmericanyouthandtheirparentshasgrown【S1】______inthepastfiveyears,"saidVivienSte
Whatdoesthepassagemainlydiscuss?Accordingtothefirstparagraph,allofthefollowingstatementscanbeacceptedEXCEFT
最新回复
(
0
)