首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command l_Click() Dim a(3,3) For m=1 T0 3 For n=1 To 3
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command l_Click() Dim a(3,3) For m=1 T0 3 For n=1 To 3
admin
2013-10-16
67
问题
在窗体上画1个命令按钮,并编写如下事件过程:
Private Sub Command l_Click()
Dim a(3,3)
For m=1 T0 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循环为二维数组a的各元素赋值,该二维数组对应矩阵的主对角线上的元素(即满足条件m=n)和副对角线上的元素(即满足条件m+n=4)其值为m+n,即主对角线上的元素从左—卜至右下依次为2、4、6,副对角线上的元素均为4,而其它元素均为0。
转载请注明原文地址:https://kaotiyun.com/show/oLQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文本框和名称为HScrolll的水平滚动条(Max属性为10,Min属性为0),然后画两个标题分别为“慢”和“快”的标签。程序运行后,移动滚动块,如果滚动块位于滚动条的正中间位置,则在文本框中显示“适中”;如果滚动块位于滚
函数Int(Rnd(0)*10)的取值范围是______。
要使Label控件中显示的文字超出它的宽度时能自动换行,应该把它的WordWrap属性设置为______。
在名为Form1窗体上建立一个二级菜单,第一级含2个菜单项,标题分别为“编辑”和“帮助”,名称分别为VbEdit和VbHelp。其中“编辑”菜单含有子菜单,共有3个菜单项,其标题依次为“剪切”、“复制”和“粘贴”,名称分别为VbCut、VbCopy和vbP
在考生文件夹中有工程文件execise113.vbp及窗体文件execise113.frm。在名为Form1的窗体上有一个标签数组,名为Lab1,该数组有4个控件元素,标题分别是Wait、Edit、Aix和Move,如下图所示。在程序运行后,将
在名为Form1的窗体上绘制一个文本框,名为Text1;再建立一个下拉菜单,菜单标题为“操作”,名为vbOp,此菜单下含有两个菜单项,名称分别为vbDis和vbHide,标题分别为“显示”和“隐藏”。请编写适当的事件过程,使得在运行时,单击“隐藏”
在名为Form1的窗体上建立一个名为HS1的水平滚动条,其最大值为200,最小值为0。要求程序运行后,每次移动滚动框时,都执行语句Form1.PdntHS1.Value(如下图所示)。注意:程序中不能使用任何其他变量:文件必须存放在考
以下关于菜单的叙述中,错误的是______。
VisualBasic逻辑运算符Xor、Or、Eqv、And中,级别最高的运算符是______。
在VB语言中,6个关系运算符在运算过程中优先级从高到低的顺序是
随机试题
急性胆囊炎发作时应采用
口服降糖药格列吡嗪俗称
增生上皮细胞的形态呈一定程度的异型性,但还不足以诊断为癌某些具有癌变的潜在可能性的病变
合同一方当事人提出变更合同要求,在双方就变更内容协商期间,合同应( )。
施工单位应当具备国家规定的( )等条件,依法取得相应等级的资质证书,并在其资质等级许可的范围内承担工程。
以下是准公共物品的是()。
小船顺流而下航行36公里到达目的地。已知小船返回时多用了1小时30分,小船在静水中速度为10公里/时,问水流速度是多少?
某设区的市的人民代表大会为缓解市内交通拥堵情况,制定了一项“禁摩令”,规定在市内某些路段禁止摩托车通行。该法规施行后,指定路段的拥堵情况得到大幅改善,但与此同时对摩托车用户的出行造成了很大的影响。运用宪法学的知识回答下列问题:“禁摩令”侵犯了公民的哪
24hours.
Concernwithmoney,andthenmoremoney,inordertobuytheconveniencesandluxuriesofmodernlife,hasbroughtgreatchanges
最新回复
(
0
)