首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: Option Base 1 Dim a(3,4)As Integer,b(4,3)As Integer Private Sub CommandlClick()循环1 For i=1 To 3 Forj=1 To 4 b(i,i)=a(i,j
设有如下程序: Option Base 1 Dim a(3,4)As Integer,b(4,3)As Integer Private Sub CommandlClick()循环1 For i=1 To 3 Forj=1 To 4 b(i,i)=a(i,j
admin
2015-11-24
36
问题
设有如下程序:
Option Base 1
Dim a(3,4)As Integer,b(4,3)As Integer
Private Sub CommandlClick()循环1
For i=1 To 3
Forj=1 To 4
b(i,i)=a(i,j)
Nextj
Next i 循环2
X=b(1,1)
For i=1 To 4
Forj=1 To 3
Print b(i,j);
Ifx
Nextj
Prim
Next i
End Sub
程序中的数组a已被赋
选项
A、窗体模块中,不能使用Dim声明a、b数组
B、“循环1”可以正常运行
C、“循环2”中循环变量i、j的终值不对,所以不能正常运行
D、程序可以正常运行,x中保存的是数组b中所有元素中最小的数
答案
B
解析
在窗体模块中使用Dim声明模块接变量,也可以声明模块级数组;在循环1中i从1到3,j从1到4,无论是访问b(i,i)还是a(i,j)均在数组的范围内,可以正常运行;在循环2中b(i,j)的值也在数组范围内,循环可以正常运行;最后x里面保存的是数组中最大的数。
转载请注明原文地址:https://kaotiyun.com/show/6kLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设已经在窗体上添加了一个通用对话框控件CommonDialogl,以下正确的语句是
下列是一个循环结构的程序,循环体内的语句将执行的次数是k=0Fori=1to100Forj=1to10k=k+1NextNext
结构化程序设计主要强调的是
数据的逻辑结构有线性结构和【】两大类。
有如下程序:PrivateSubForm_Click()E=1:F=1Forj=1To3E=E+F:F=F+ENextPrintE;FEndSub该程序的输出结果是
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()BT4EndSubPrivateSubBT(xAsInteger)x=x*2+1Ifx<6ThenCallBT(x)EndIf
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=3:b=4:c=5PrintSecProc(c,b,A)EndSu
在代码窗口中输入某行代码并按回车键后,如果代码变成红色,表示______。
在窗体.上画一个列表框、一个文本框及一个按钮,然后编写如下事件过程:PrirateSubForm_Loab()List.Addltem"357"Llst.Addltem"246"List.Addltem"123"
设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是()。
随机试题
预测某企业未来收益,其中前5年分别为120万元、125万元、128万元、120万元和130万元,从第6年开始,企业收益将基本保持在120万元的水平上,已知折现率、资本化率同为10%。求该企业的整体资产评估值。
下述哪一项与系统性红斑狼疮诊断有关
我方以CFR贸易术语与B国的H公司订立成交一批消毒碗柜的出口合同,合同规定装运时间为4月15日前。我方备妥货物,并于4月8日中午装船完毕,由于遇星期日休息,我方的业务员未及时向买方发出装运通知,导致买方未能及时办理投保手续,而货物在4月8日晚因发生了火灾被
Therequirementsforhighschoolgraduationhavejustchangedinmycommunity.Asaresult,allstudentsmust【C1】______sixtyhou
WhohastherealpowerintheBritishgovernment?
通报适用于()。
串的长度是
果
Howmanypeopleliveincitiesnow?
They______afootballmatchatfouro’clockyesterdayafternoon.
最新回复
(
0
)