首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Cliek() Dim a(3,3) For m=1 To 3 For n=1 To 3 If n=m Or
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Cliek() Dim a(3,3) For m=1 To 3 For n=1 To 3 If n=m Or
admin
2019-04-29
15
问题
在窗体上画1个命令按钮,并编写如下事件过程:
Private Sub Command1_Cliek()
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循环中的lf语句的条件n=m orn=4-m中的n=m首先可以得出8(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/ZON0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下程序:OptionBase1PrivateSubCommandlClick().DimArr(10).AsIntegerFori=1To10Art(i)=11一iNextix=Inpu
窗体上有一个Textl文本框,一个Cornmandl命令按钮,并有以下程序:PrivateSubCommandlclick()DimnIfText1.Text<>“123456”Thenn=n+1:Print“口令输入错误”&n&”次”
下列打开“代码窗口“”,的操作中错误的是
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
在窗体上有一个文本框Text1,Text属性值为空,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsInteger
为了使窗体的大小可以改变,必须把它的BorderStyle属性设置为()。
为了使名称为Command1的命令按钮右移200,应使用的语句是()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上添加一个计时器控件,名称为Timer1。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer事件过程一次。另外,请把窗体的标
产生100以内(不含100)2位随机整数的VisualBasic表达式是
某二树有5个度为2的结点,则该二叉树中的叶子结点数是()。
随机试题
有人说:一千个读者就有一千个哈姆雷特。对这种说法理解不正确的一项是()
简述临床诊治工作的基本道德原则。
某酒厂(增值税一般纳税人)2016年4月份销售白酒10吨,取得不含税销售收入50万元,同时收取包装物押金2万元;当月另销售啤酒20吨,共取得不含税销售收入5万元,同时收取包装物押金1万元;包装物均约定2个月后归还。此外,当月没收逾期未退白酒包装物押金5万元
发给来中国旅游、探亲或处理其他私人事务入境的外国人的签证是()。
卵巢分泌的激素是()。
下列关于法治与法制的表述,正确的有()。
有如下程序:#include<iostream>usingnamespacestd;classtest{private:inta;public;test(){cout<<"con
DIVESTITURE:
A、Ithasover500employees.B、Itwasstartedin1998.C、Ithasseveralbranches.D、ItislocatedinBeijing.B信息明示题。女士询问男士什么时间创
ThedirectraysofthesuntouchtheequatorandstrikenorthwardtowardtheTropicofCancer.IntheSouthernhemispherewinter
最新回复
(
0
)