首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,并有如下程序代码: Option Base 1 Private Sub Command1_Click() Dim a%(3, 3) For i = 1 To 3 For j =
窗体上有一个名称为Command1的命令按钮,并有如下程序代码: Option Base 1 Private Sub Command1_Click() Dim a%(3, 3) For i = 1 To 3 For j =
admin
2020-02-27
51
问题
窗体上有一个名称为Command1的命令按钮,并有如下程序代码:
Option Base 1
Private Sub Command1_Click()
Dim a%(3, 3)
For i = 1 To 3
For j = 1 To 3
If i > 1 And j > 1 Then
a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1
Else
a(i, j) = i * j
End If
Next
Next
Print a(2, 2); a(3, 3)
End Sub
运行程序,单击命令按钮,窗体上显示的是
选项
A、1 3
B、2 1
C、2 2
D、3 3
答案
D
解析
a是个整形的二维数组。通过For循环给数组a元素赋值。i > 1 并且 j > 1时执行a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1语句,否则执行a(i, j) = i * j,因此执行完第一个大循环后,数组a中的元素值分别是:a(1,1)= 1,a(1,2)= 2,a(1,3)= 3。以此类推,可知a(2,2)=3,a(3,3)=3。选D)。
转载请注明原文地址:https://kaotiyun.com/show/MPTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为CD1的通用对话框,一个名称为Command1的命令按钮,相应的事件过程如下:PrivateSubCommand1_Click() CD1.Filter="AllFile|*.*|TextFile|*.txt|Word|*.
以下关于菜单的叙述中,错误的是
有下面程序代码:OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger,x,bx=InputBox("请输入一个多位整数")
能够将组合框Combo1中最后一个数据项删除的语句为( )。
了使一个复选框被禁用(灰色显示),应把它的Value属性设置为( )。
(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图3.119所示。要求:①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;②请编写适当的程序完成以下功能:在Text1中输入40(
以下叙述中错误的是( )。
以下关于文本框的叙述中,正确的是
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text=”程序设计"Text1.SetFocusEndSubPrivateSubText1_GotFoc
下列各选项中,不属于序言性注释的是()。
随机试题
A、心尖部隆隆样舒张期杂音B、胸骨左与缘第3、4肋间连续性杂音C、胸骨左缘第2肋间连续性杂音D、胸骨左缘第2肋间收缩期杂音及固定性P2分裂E、主动脉瓣区双期杂音典型的二尖瓣狭窄的杂音是_______。
Churg-Strauss综合征是以什么为特征的疾病
血浆蛋白质中AFP的中文名称为()
欧元区国家的趋同标准规定()。
婚姻成立的必备要件包括()。
甲公司现有职工100人,因生产经营发生严重困难需裁员,根据劳动合同法律制度的规定,该公司裁减人员达到一定人数或者一定比例以上,甲公司向工会或者全体职工说明情况,听取工会或者职工的意见,并将裁减人员方案向劳动行政部门报告,甲公司可不执行该程序的裁减人员的最多
左边给定的是纸盒的外表面,右边哪一项不能由它折叠而成?
某班30人的期末考试成绩各不相同,且恰好是一个等差数列,已知该班全部及格(百分制)。任取4组各不相同的成绩计算平均分,每组成绩也成等差数列,且各组人数不同。这4组的总平均分至少为()分。
求极限
Ofallthingsintheworld,Imostdislikefillingupforms.Infact,Ihaveapositivehorrorofit.Applyingforadrivinglic
最新回复
(
0
)