首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画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
18
问题
在窗体上画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/1RTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:PrivateSubCommand1_Click()Fori=1To2Fori=1ToiPrintString(i,"Hello")NextjPrintNexti
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:OptionBase1PrivateSubCommand1_Click()DimsumAsIntege
下列有关文件的叙述中,正确的是()。
下列叙述中正确的是()。
支持子程序调用的数据结构是()。
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:PrivateTypexaAsIntegerbAsIntegerEndTypePrivateSubCommand1_Click()
软件需求规格说明的内容不包括()。
命令按钮Command1的MouseUp事件过程结构如下:PrivateSubCommand1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSub则
已知二叉树后序遍历序列是CDABE,中序遍历序列是CADEB,它的前序遍历序列是()。
下面说法中正确的是()。
随机试题
造成传输质量下降、传输信号失真是()的结果。
()不是V形坡口对接立、横焊试件焊缝的检查项目。
主要考察被测评者思考问题时是否全面,是否有针对性,思路是否清晰,是否有新的观点和见解的问题是【】
关于胃溃疡,不正确的叙述是
马斯洛在1943年所著的《人的动机理论》一书中,提出了()理论。
省政府要建设群众信访接待中心。需要了解各地信访工作的落实情况。现在领导派你到各市、县、乡针对各自的信访工作进行调查。你会怎么开展此次调查?
按照人的自我发展历程、实现人生价值和精神自由的高低程度,人生境界可分为四个层次,即欲求境界、求知境界、道德境界和审关境界。最低境界为“欲求境界”。最低的境界为“欲求境界”。人生之初,在这种环境中只知道满足个人生存所必须的最低欲望,故以“欲求”称之
根据以下材料回答以下问题。已知X1、X2为两个相关的连续变量,α=0.05,两个总体均为正态分布,σ12=36,σ22=108,n1=n2=36。算得两变量的相关系数为0.001。若要检验两总体之间的差异是否显著,我们应该使用()
使用说明中的词语,给出图1-1中的外部实体E1~E4的名称。数据流图1-2缺少了三条数据流,根据说明及数据流图1-1提供的信息,分别指出这三条数据流的起点和终点。
DevelopHealthyEatingHabitsinYourChildrenA)Whatdoyouthinkyourchildrenareservedatschool?Thechildrenwerese
最新回复
(
0
)