首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画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
2020-02-27
14
问题
在窗体上画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://jikaoti.com/ti/qfx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于文件的叙述中,错误的是( )。
在考生文件夹下有一个工程文件sjt5.vbp,界面如图所示,其功能如下:①单击“读数据”按钮,则把考生文件夹下文件in5.dat中的12组整数(其中每组含有10个数,共计120个整数)读到数组a中;②单击“计算”按钮,则对每组数求平均值,并将所求各级
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:PrivateTypexaAsIntegerbAsIntegerEndTypePrivateSubCommand1_Click()
某人编写了向随机文件中写一条记录的程序,代码如下:TypeRTypeNameAsString*10TelAsString*20EndTypePrivateSubCommand1_Click()DimpAsRTypep.N
在考生文件夹下有一个工程文件Sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示程序功能如下:(1)考生文件夹下in5.dat
能够容纳其他控件的控件是容器控件,框架与图片框都是容器控件。下面的叙述中正确的是()。
用树型结构表示实体之间联系的模型是()。
程序运行时,要清除组合框Combol中的所有内容,应使用语句()。
某完全二叉树共有256个结点,则该完全二叉树的深度为()。
对软件系统总体结构图,下面描述中错误的是()。
随机试题
关于脑神经的叙述,正确的是()
可通过母婴传播的传染病是
患者,男,68岁。肝硬化腹水,体质虚弱,生活不能自理。护士为患者做口腔护理时,应特别注意观察口腔有无
当设备与管理用房区的房间单面布置时,疏散通道宽度不得小于()m。
会汁凭证按其填制的程序和用途不同,可以分为()。
AccordingtoUCP600,theterms“middle”ofamonthintheL/Cshallbeconstruedas().
某公司四个部门分别派代表进行象棋比赛,每个部门之间都进行一场比赛,赢的队伍积2分,输的队伍没有积分,平局则各积1分。现已知A部门输一场、平一场赢一场,B部门总积分为6,C部门没有赢过,D部门没有平局过。则D部门总积分为()。
酒主要以液态形式存在,在古代缺乏严密容器的条件下是很难_________保存的,因此出土的古酒就十分_________。依次填入画横线部分最恰当的一项是()。
艺术作为社会意识形态和上层建筑同经济基础的关系如何?
What’speople’sresponsetoaneutralstimulus?Thepassagestatesthatbeforethebluesquareappeared,thepersoninthevide
最新回复
(
0
)