首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Click() Dim a(3,3) For m=1 To 3 For n=1 To 3 If n=m Or n=4-m Then
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Click() Dim a(3,3) For m=1 To 3 For n=1 To 3 If n=m Or n=4-m Then
admin
2015-06-30
55
问题
在窗体上画1个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Print 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循环中的If语句的条件n=m or n=4-m中的n=m首先可以得出a(1,1)=2,a(2,2)=4,a(3,3)=6,其次根据n=4-m的条件可以得出a(1,3)=4,a(2,2)=4,a(3,1)=4。而其他的元素值都为0。因此窗体上输出的三行分别是:2 0 4 ,0 4 0,4 0 6。
转载请注明原文地址:https://kaotiyun.com/show/EcQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
由Array函数建立的数组的名字必须是【】类型。
在窗体中添加一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(2,4,6,8)
以下控件可作为其他控件容器的是
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请将下面的程序补充
文件列表框的Pattern属性的作用是()
以下不属于对象的基本特点的是()
数据结构中,与所使用的计算机无关的是数据的______。
已知数据表A中每个元素距其最终位置不远,为节省时间,应采用的算法是______。
有三个关系R,S和T如下:其中关系T由关系R和s通过某种操作得到,该操作为
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框PrivateSubCommand1_Click()CDl.DialogTitle=“打开文件”CDl.InitDir=“C:\”CDl.Filter=“所有文件
随机试题
Ipaidhim50dollarsforthepainting,butitsreal______mustbeabout500dollars.
上消化道大量出血是指数小时内出血量多于()
男性,30岁,10年来阵发性心悸,每次心悸突然发作.持续半小时至3小时不等,此次发作持续半小时而来就诊。检查:血压90/60mmHg,心率200次/分,心律绝对规则,无杂音,肺(一)。心电图示QRS波群宽0.14-0.16秒,起始部粗钝,R-R间期绝对
出血性梗死常发生于
根据九部委《标准施工招标文件》,关于承包人索赔期限的说法,正确的是()。
2012年,在十一届全国人大五次会议上,确定了十二届全国人大代表的产生办法。以下说法错误的是()。
大学生拥有的阅读观难以超脱于整个社会的阅读氛围与品质,但作为一个相对独立的群体,大学生的阅读习惯离不开大学教育在价值与方式上的牵引与涵养。比如,国外不少大学不仅对学生有经典阅读的要求,而且在课堂教育、考试中往往有对阅读能力的考查。相对来说,在我们的大学教育
唐朝城市中的工商业区为()。
Noonelikesthemosquito.Butthemosquitomaydecidethatshelovesyou.She?Yes,she.It’struethatmalemosquitodoesn’t
Cezanne’sdelicatewatercolorsketchesoftenservedas____ofasubject,awayofgatheringfullerknowledgebeforetheartist’
最新回复
(
0
)