首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(39)编写如下程序: Private Sub Commandl_Click() Dim m As Integer,n As Integer n=2 For m=l To 3
(39)编写如下程序: Private Sub Commandl_Click() Dim m As Integer,n As Integer n=2 For m=l To 3
admin
2020-06-30
36
问题
(39)编写如下程序:
Private Sub Commandl_Click()
Dim m As Integer,n As Integer
n=2
For m=l To 3
Print proc(n);
Next m
End Sub
Function proc(i As Integer)
Dim a As Integer
Static b As Integer
a=a+l
b=b+l
proc=a*b+i
End Function
程序运行后,单击命令按钮Commandl,输出结果为( )。
选项
A、3 3 3
B、3 4 5
C、3 5 6
D、l 2 3
答案
B
解析
变最b定义为Static!即静态变量,它的特点是每次调用都会保留上次的值。程序click事件中调用了3次proc(n),即pmc(2): 第一次,a=a+l=0+1=l,b=b+1=O+l=1.proc=a*b+i=1*1+2=3:第二次,a=a+l=0+l=1,b=b+1=1+1=2.proc=a*b+i=1*2+2=4:第三次,a=a+1=O+1:l,b=b+1=2+1=3,proc=a*b+i=1*3+2=5:因此输出结果为3 4 5。
转载请注明原文地址:https://kaotiyun.com/show/oFHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件vbsj5.vbp,含三个窗体,标题分别为“启动”、“注册”、“登录”,运行时显示“启动”窗体,如图1-329所示,单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中,注册用户数(最多10个)放在全局变
(1)在名称为Form1的窗体中画一个名称为lblClock的标签,其标题为“0”,BorderStyle属性为1;再添加一个名称为tmrClock的计时器。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,每隔一秒钟标签中的数字加1。如图1-3
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在标题为“列表框”、名称为Form1窗体上画一个名称为lstCourse列表框,通过属性窗口输入四个列表项:“语文”、“数学”、“外语”、“体育”,列表项采用“复
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为H1的水平滚动条,请在属性窗口中设置它的属性值,满足以下要求:它的最大刻度值为100、最小刻度值为1,在运行时鼠标单击滚动条
窗体上有1个名称为Text1的文本框,1个名称为Label1的标签。程序运行后,如果在文本框中输入信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Commanl的命令按钮。Forml的代码如下:Form2的代码如下:Public
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。下列说法错误的是()。
有如下程序代码:PrivateSubForm_Click()Dima(100)AsIntegerDimb(100)AsIntegerFori=1To100a(i)=i
随机试题
下列关于财务指标的描述,正确的有()。
计算积分
何谓中和抗体?
老视的原因主要是
患者,女,70岁。患糖尿病两年,住院治疗。医嘱:胰岛素8个单位三餐前15分钟皮下注射。实习护士为该患者进行胰岛素皮下注射时,针头刺人的深度应是针梗的
下列属于按照承发包方式分类的建设工程合同有()。
在会计电算化核算软件中,可以只用英文做记账凭证摘要。()
像印钞机一样斩获暴利,收费公路乱象并非始自今日,但在经济不振、公民权利意识高涨之当下,其推高物流乃至民众生活成本的“罪状”便格外让人难以忍受。虽然过去人们一度悲观地认为,撼动收费公路暴利并不比撼山更容易,可从去年央视和全国各大媒体密集报道全国路桥乱收费的行
若数据库中有表STUD,则下列函数实现的功能是FunctionDropPrimaryKey()DimstrSQLAsStringstrSQL="ALTERTABLESTUDDropCONSTRAINTPRIMARY_KEY"CurrentP
Whatisthepurposeoftheletter?Tosale______.WhatprofitsdoyouobtainiftheGluxairconditionersareinstallediny
最新回复
(
0
)