首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commd1的命令按钮,并有如下程序代码: Option Base 1 Private Sub Commd1_Click() Dim a(4,4)As Integer Dim b As In
窗体上有一个名称为Commd1的命令按钮,并有如下程序代码: Option Base 1 Private Sub Commd1_Click() Dim a(4,4)As Integer Dim b As In
admin
2019-06-11
20
问题
窗体上有一个名称为Commd1的命令按钮,并有如下程序代码:
Option Base 1
Private Sub Commd1_Click()
Dim a(4,4)As Integer
Dim b As Integer
Dim i As Integer,j As Integer
For i=1 To 4
For j=1 T0 4
a(i,j)=i+j
Next j
Next i
Call f(a,b)
Print b
End Sub
Private Sub f(x()As Integer,ByRef y As Integer)
y=0
For i=1 To 4
y=y+x(i,i)
Next
End Sub
运行程序,单击命令按钮后,窗体上显示的是( )。
选项
A、0
B、2
C、8
D、20
答案
D
解析
Command1_Click()事件中通过嵌套循环给数组a元素赋初值,执行完后a(1,1)=2,a(2,2)=4,a(3,3)=6,a(4,4)=8;Call f(a,b)语句调用子函数Sub f(x()As Integer,ByRef y As Integer)。该函数内For循环把a数组中一维下标和二维下标相同的元素值相加,值为20,选D。
转载请注明原文地址:https://jikaoti.com/ti/yfN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=""strL=Len(xStr)
软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是()。
(1)在考生文件夹下有工程文件sjt3.vbp,其窗体上有1个标题为“计算”的命令按钮,1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Text1,如图所示。程序功能为:单击“计算”命令按钮,则计算无理数e的近似值,并将结果显示在Tex
(1)在名称为Form1、标题为“输入”、最大化按钮失效的窗体上画一个名称为Label1的标签控件,其标题为“输入密码”;再向窗体内画一个名称为Text1的文本框控件,并清空其中的文本。程序执行时,用户在文本框中最多可输入由6个字符组成的密码,密码字符在文
在窗体上画1个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click()Dima(3,3)Form=1To3Forn=1To3Ifn=mOrn=4一mThe
以下能够设置控件焦点的方法是()。
设栈的存储空间为S(1:50),初始状态为top=0。现经过一系列正常的入栈与退栈操作后,top=30,则栈中的元素个数为()。
(1)在考生文件夹中有一个工程文件sjt3.vbp。程序的功能是输入用户名和密码。程序运行时,当输入密码到文本框Text2中时,如果“显示密码”复选框没有被选中,则在文本框Text3中同时显示“#”(如图所示);如果“显示密码”复选框被选中,再重新输入密码
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是
随机试题
简述四种气质类型及其行为特征。
主治湿热下注所致的痹病,宜选用
A.泻肺乎喘B.宜肺平喘C.敛肺平喘D.清肺平喘E.止咳平喘
某企业在市场中通过利率招标的方式发行5年期债券,最后确定票面利率为4.5%,这个利率属于()。
ABC会计师事务所负责审计甲公司2017年财务报表。ABC会计师事务所审计项目组内部复核人员在复核项目组成员已执行的工作时,应当考虑的要求包括()。
操作系统能提供给编程人员的接口是()。
2020年1月21日,中共中央办公厅发布《纪检监察机关处理检举控告工作规则》。纪检监察机关的下列做法不符合该规则规定的是()。
SecurityCounciloftheUnitedNations
面向对象方法中,实现对象的数据和操作结合于统一体中的是
A、Somerocks.B、Theleaves.C、Hersuitcase.D、Adownpillow.C
最新回复
(
0
)