首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,并有如下程序代码: Option Base l Private Sub Command l_Click() Dim a%(3,3) For i=1 To
窗体上有一个名称为Commandl的命令按钮,并有如下程序代码: Option Base l Private Sub Command l_Click() Dim a%(3,3) For i=1 To
admin
2020-04-18
80
问题
窗体上有一个名称为Commandl的命令按钮,并有如下程序代码:
Option Base l
Private Sub Command l_Click()
Dim a%(3,3)
For i=1 To 3
Forj=1 To 3
If i>1 Andj>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(1,1)=1,a(1,2)=2,a(1,3)=3,a(2,1)=2,a(3,1)=3;然后按照公式计算其余的元素。
转载请注明原文地址:https://www.kaotiyun.com/show/5YTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果执行一个语句后弹出如图所示的窗口,则这个语句是
设有如下程序:PrivateSubForm_Click()Dam=InputBox(”请输入一个实数”):P=InStr(num,".")Ifp>0ThenPrintMid(num,P+1
设有以下过程:PrivateSubproc(xAsInteger,OptionalYAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
有下面程序代码:PrivateSubCommandl_Click()DimaAsStringa=“COMPUTER”n=search(a,”T”):PrintIIf(n=0,”未找到”,n)End
窗体上有一个名称为CDl的通用对话框,一个名称为Commandl的命令按钮,相应的事件过程如下:PrivateSubCommand1_Click()CD1.Filter=”AllFilel*.*|TextFile|*.tx
在窗体上有1个名为Cd1的通用对话框,为了在运行程序是时打开保存文件对话框,险则在程序中应使用的语句是
设有下面程序代码:PrivateSubCommand1_Click()DimaAsVarianta=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)
在窗体上画一命令按钮和一文本框,其名称分别为Commandl和Textl,然后编写如下程序:FunctionFun(xAsInteger,YAsInteger)AsIntegerFun=IIf(x
窗体上已有1个名称为Picture1的图片框,要求实现下面2个功能之一:(1)在窗体上移动鼠标时,立即将Picturel显示在鼠标位置(2)在窗体上单击鼠标时,立即将Picturel显示在鼠标位置下面不能实现上述任何功能的事件过程是
设窗体文件中有下面的事件过程:PrivateSubCommandl_Click()Dims:a%=100:PrintaEndSub其中变量a和s的数据类型分别是
随机试题
直观行动思维
诊断肾脏损伤下列哪些项检查可使用
若在三相异步电动机的运行中提高其供电频率,则该电动机的转速将()。
以下关于法院开庭审理程序的表述中,不正确的是()。
投资者教育是推进市场稳定运行和健康发展的重要举措,是维护投资者合法权益的需要,也是证券公司提升客户服务水平、规范经营行为的需要。( )
常用内部指标包括盈利性和流动性。()
某固定资产原值为50000元,规定折旧年限为10年,残值率为4%,用平均年限法计算该固定资产的月折旧率为()。
被告王某因不满原告提出的诉讼请求,未经法庭允许中途退庭。人民法院的正确做法是()。
杂言——关于著作的作品遭人毁骂,我们常能置之不理,说人家误解了我们或根本不了解我们;作品有
Itisnotpolitetoarriveatadinnerpartymorethan15to20minuteslate.Thehostorhostessusuallywaitsforallthegues
最新回复
(
0
)