首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读程序: Option Base1 Private Sub Form_Click() Dim Arr(3,3)As Integer For i=1To3 For j=1To3 If j=i Or j=3-i+1Then Arr(i,j)=1 Else A
阅读程序: Option Base1 Private Sub Form_Click() Dim Arr(3,3)As Integer For i=1To3 For j=1To3 If j=i Or j=3-i+1Then Arr(i,j)=1 Else A
admin
2019-01-17
43
问题
阅读程序:
Option Base1
Private Sub Form_Click()
Dim Arr(3,3)As Integer
For i=1To3
For j=1To3
If j=i Or j=3-i+1Then
Arr(i,j)=1
Else
Arr(i,j)=0
End If
Next j
Next i
For i=1To3
For j=1To3
Print Arr(i,j);
Next j
Print
Next i
End Sub
程序运行后,如果单击窗体,则输出结果为( )。
选项
A、
B、
C、
D、
答案
D
解析
第一个:For循环给数组Arr赋值。第二个。For循环打印数组各元素的值。在第一个For循环中,数组的下标用变量i表示,上标用变量j表示。If…Else语句对两种情况进行判断,在i等于j的时候或者i和j满足j=3-i+1关系的时候,Arr数组元素被赋值为1,其他情况被赋值为0。可以根据循环语句的执行,代入各变量值算得各元素的值。选D)。
转载请注明原文地址:https://kaotiyun.com/show/7rFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:PrivateSubCommand1_Click() Open"out.txt"ForOutputAs#2 Print"Text1" Close
窗体上有2个名称分别为Text1和Text2的文本框。编写如下程序:PrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand1_Cl
判断单选按钮是否被选中的属性为
现有如下程序:PrivateSubCommand1_Click() s=0 Fori=1To5 s=s+f(5+i) Next PrintsEndSubPublicFunctionf(xAsInteger
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是( )。
假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。
下面属于黑盒测试方法的是
数学式y2>x>=10在VB中应表示为
按照下表建立菜单:单击菜单的事件过程如下:PrivateSubmnu1_Click(IndexAsInteger)SelectCaseIndexCase1Print"选中菜单项1"Case2IfMnu
随机试题
有86位患有T型疾病的患者接受同样的治疗。在一项研究中,将他们平分为两组,其中一组的所有成员每周参加一次集体鼓励活动,而另外一组则没有。10年后,每一组都有41位病人去世。很明显,集体鼓励活动并不能使患有T型疾病的患者活得更长。以下哪项陈述如果为真,能最有
肺动脉栓塞导致的休克不正确的是
A.主动脉瓣狭窄B.二尖瓣狭窄C.二尖瓣关闭不全D.主动脉瓣关闭不全E.肺动脉瓣狭窄Austin-Flint杂音见于
根据税收法律制度的规定,下列各项中,规定了比例税率和定额税率两种税率形式的税种是()。
下列各项中,属于集权决策的缺点有()。
战略性策划的主要过程是:需求评估→()→预测→设计可行的战略→选择机构的战略→将战略转变为服务方案目标→方案发展→评估。
衡量人眼对光刺激时间分辨能力的指标是()
(2009下项管)M公司是由3个大学同学共同出资创建的一家信息系统开发公司,经过近2年时间的磨砺,公司的业务逐步达到了一定规模。公司成员也从最初的3人发展为近30人,公司的组织机构也逐渐完善。为了适应业务发展需要,逐渐摆脱作坊式开发状态,公司决定
关于被保护访问控制符protected修饰的成员变量,下面说法正确的是()。
5WeekstoaStress-FreeLife[A]Whowillyoubethisyear?Willyoubeabetter,wiserversionofyourselfbythetimethe
最新回复
(
0
)