首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command 1_ Click() Dim a(3,3) FOr m=1 To 3 For n=1 To 3 Ifn=m Or n=4-m Then a(m,n)=m+n Else a
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command 1_ Click() Dim a(3,3) FOr m=1 To 3 For n=1 To 3 Ifn=m Or n=4-m Then a(m,n)=m+n Else a
admin
2015-11-24
50
问题
在窗体上画1个命令按钮,并编写如下事件过程:
Private Sub Command 1_ Click()
Dim a(3,3)
FOr m=1 To 3
For n=1 To 3
Ifn=m Or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Prim a(m,n);
Next n
Print
Next m
End Sub
运行程序,单击命令按钮,窗体上显示的内容为
选项
A、2 0 0 0 4 0 0 0 6
B、2 0 4 0 4 0 4 0 6
C、2 3 0 3 4 0 0 0 6
D、2 0 0 0 4 5 0 5 6
答案
B
解析
本题通过一个嵌套的For循环为二维数组a的各元素赋值,该二维数组对应矩阵的主对角线上的元素(即满足条件m=n)和副对角线上的元素(即满足条件m+n=4)其值为m+n,即主对角线上的元素从左上至右下依次为2、4、6,副对角线上的元素均为4,而其它元素均为0。
转载请注明原文地址:https://kaotiyun.com/show/1kLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序段,运行后的结果是PrivateSubCommand1_ClickDimb%(1To4),i%,t#Fori=1To4b(i)=iNextt=Tof(b())
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dima(5,5)Fori=1To3Forj=1To4a(i,j)=i*jNe
下列事件过程运行后输出结果是PrivateSubCommand1_Click()PrintFormat$(123,456,"###,##%")EndSub
Sub过程与Function过程最根本的区别是
有如下程序:PrivateSubForm_C1ick()E=1:F=1Forj=1To3E=E+F:F=F+ENextPrintE;FEndSub该程序的输出结果是
下列程序段的运行结果是______。DimnumAsInteger,aAsInteger,bAsIntegera=88:b=24DoWhileb<>0num=aModba=bb=num
下面子过程语句说明合法的是()。
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
当文本框ScrollBars属性设置了非零值,却没有效果,原因是
表达式(7\3+1)*(18\5-1)的值是()。
随机试题
XYZ有限责任公司组织结构图如下:运用XYZ组织结构图中的信息解释图中包含的任意四个组织结构的概念。
下列哪一项能引起外周阻力降低
不符合肺结核活动期特点的是
MMPI中Pd量表是表示()。
我们能够制造出比现在一般的自行车更结实的自行车,我们也能够制造出比现在一般的自行车更轻便的自行车。所以,我们能够制造出同时具有以上两种优点的自行车。上述论证中的推理缺陷与以下哪项推理中的缺陷最相似?
关于听觉掩蔽的说法中不正确的是
Readthearticlebelow.Choosethebestsentencefromthelistonthenextpagetofilleachofthegaps.Foreachgap(1
ACountry’sStandardofLivingThe"standardofliving"ofanycountrymeanstheaverageperson’sshareofthegoodsandservice
SallysaysthatthechangeswereplannedbyShethinksthatthenewsalestargets
ClassificationsofCulturesAccordingtoEdwardHall,differentculturesresultindifferentideasabouttheworld.Hallis
最新回复
(
0
)