首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
命令按钮Command1的单击事件过程如下: Private Sub Command1_C1ick() Dim a(10,10)As Integer x=0 For i=1 To 3 Vorj=1 To 3 a(i,j)=i*2 Mod j
命令按钮Command1的单击事件过程如下: Private Sub Command1_C1ick() Dim a(10,10)As Integer x=0 For i=1 To 3 Vorj=1 To 3 a(i,j)=i*2 Mod j
admin
2015-05-29
41
问题
命令按钮Command1的单击事件过程如下:
Private Sub Command1_C1ick()
Dim a(10,10)As Integer
x=0
For i=1 To 3
Vorj=1 To 3
a(i,j)=i*2 Mod j
Ifx
Next
Next
Print x
End Sub
执行上述事件过程后,窗体上显示的是
选项
A、1
B、2
C、3
D、4
答案
B
解析
本题中使用二重循环为二维数组赋初值,每个元素的值为行号×2然后除以列号的余数;接下来找出数组的最大值。由于列号最大只能为3,所以余数的最大值为2。
转载请注明原文地址:https://kaotiyun.com/show/vDQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下程序:PrivateSubFormClick()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiM
设有以下循环结构Do循环体LoopWhile<条件>则以下叙述中错误的是
执行以下语句后,输出的结果是a$="Good"b$="Afternoom"Printa$+b$Printa$&b$
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=InputBox("Input")SelectCasexCase1,
设有如下关系表:则下列操作中正确的是
以下程序代码实现单击命令按钮Command1时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。Dimarr(1To20)Fori=1To20arr(i)=【】
下面对语句的功能说明中错误的是Open"Text.Dat"ForOutputAs#FreeFile
程序是一个窗体双击事件代码,窗体的名称是Mywindow。窗体上有一个名为text1的文本框,用来显示文本。程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除;重复上述过程5次。OptionExplicitPriva
组合框控件是将()组合成一个控件。
为了在列表框中使用<Ctrl>和<Shift>键进行多个列表项的选择,应将列表框的MultiSelect属性设置为()。
随机试题
Day-schools______(most)workfromMondaytoFridayonly.
DNA携带生物遗传信息这一事实意味着什么()
毫微型胶囊的粒径在磁性微球所用磁性铁的粒径在
甲公司2010年发生下列各项交易或事项:(1)取得长期股权投资的现金股利200万元1(2)为购建固定资产支付专门借款利息60万元;(3)购买可供出售金融资产支付价款3000万元;(4)因固定资产毁损收取保险公司赔偿30万元;(5)以银行存款向税务
教育在个体身心发展中起的作用是无条件的。()
不抵抗主义我向来很赞成,不过因为有些偏于消极,不敢实行。现在一想,这个见解实在是大谬。为什么?因为不抵抗主义面子上是消极,骨底里是最经济的积极。我们要办事有成效,假使不实行这主义,就不免消费精神于无用之地,我们要保存精神,在正当的地方用,就不得不在可以不
GooglealreadyhasawindowintooursoulsthroughourInternetsearchesanditnowhasinsightintoourailingbodiestoo.The
(66)program propagates itself by modifying other programs to include a possibly changed copy of itself and that is executed whe
在考生文件夹中分别建立WEN和HUA两个文件夹。
China’sonlinegiants,AlibabaandTencent,onceareseenasimitatorspumpedupbytheprotectionofahugehomemarket,havep
最新回复
(
0
)