首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click()Dim i As Integer For i=1To500 If p(i)Then s=s+1 Next Print
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click()Dim i As Integer For i=1To500 If p(i)Then s=s+1 Next Print
admin
2016-09-19
59
问题
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下:
Private Sub Command1_Click()Dim i As Integer
For i=1To500
If p(i)Then s=s+1
Next
Print s
End Sub
Private Function p(x As Integer)As Boolean
If x Mod7<>0Then
p=True
Else
p=False
End If
End Function
关于上述程序,以下叙述中正确的是
选项
A、程序功能是统计1—500范围内能被7整除的整数个数
B、Command1_Click事件过程中If语句的条件表达式不完整
C、Function过程定义有误,函数过程p的名称与该过程中的变量名p相同
D、函数过程p的返回值为Boolean类型
答案
D
解析
调用Function过程要返回一个值,因此可以像内部函数一样在表达式中使用。如果在Function过程中省略“过程名=表达式”,则该过程返回一个默认值(数值函数过程返回0值;字符串函数过程返回空字符串)。因此,通常要在过程体中给“过程名”赋值。本题中函数p的返回值为Boolean类型,功能是判断参数x是否能被7整除,如果不能整除返回True,否则返回False。C0mmand1_Click事件过程中使用了单行的If语句,不需要Else分支和EndIf语句。程序功能是统计1-500范围内不能被7整除的整数个数。
转载请注明原文地址:https://kaotiyun.com/show/1OLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:DimSWAsBooleanFunctionfunc(XAsInteger)AsInteger IfX<20Then Y=X
单击命令按钮时,下列程序的运行结果为PrivateSubCommand1_Click() PrintFun(23,18)EndSubPublicFunctionFun(mAsInteger,nAsInte
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后输写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsInteger x=5 y=7
在窗体上添加一命令按钮,其名为Command1,然后编写代码如下:privateSubCommand1_Click()Dimarr(5)AsInteger,arr1(5)ASInteger n=3 Fori=
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为M1。设窗体Form1标题为“myform1”,双击控件数组中的第3个按钮,打开代码编辑器,写下如下代码:PrivaeSubM1_Click(IndexAsInteger)
在窗体上添加一个按钮,名为Command1,然后编写如下的事件过程,输出结果为PrinvateSubComandl_Click() Fori=1To4 x=4 Forj=1To3
面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。请填空。PrivateSubForm_Click() DimiAsInteger,jAsInteger j=0 j=43
要显示当前过程中的所有变量及对象的取值,可以利用()窗口。
假定有如下事件过程:PrivteSubForm_Click0 DimxAsInteger,nAsInteger x=1 n=0 DoWhilex<28 x=x*3
随机试题
在自定心卡盘上用厚度为4.5mm的垫片车削偏心距e为3mm的偏心工件,试切后,实测偏心距为2.92mm,应如何调整垫片的厚度才能达到要求的偏心距。
A、当归B、姜黄C、川芎D、龙胆E、巴戟天断面黄白色散有黄棕色小油点(油室),可见波状环纹(形成层)
李某死后留有遗产共计100万元,根据其遗嘱安排,其自有的价值50万元的汽车由其女儿继承,其价值10万元的玉佩赠送给其侄子。剩余的40万元遗产由其妻和其女儿按照法定继承的方式继承。李某后事处理完后,张某找上门要求其继承人代李某偿还其生前的债务共计70万元。则
某工程采用工程量清单招标,确定某承包商中标。甲乙双方签订的承包合同包括的分部分项工程量清单工程量和投标综合单价见下表。工程合同工期12个月,措施费84万元,其他项目费100万元,规费费率为分部分项工程费、措施费、其他项目费之和的4%,税金率为3.35%。有
下图示意了一个线性组织结构模式。该图所反映的组织关系有( )。
下列费用中,()属于可变费用。
1995+1996+1997+1998+1999+2000的值为()。
A、45B、40C、36D、30A由x-2y=0,x2-36=0和6-x≠0,可得x=-6,y=-3,故x2+y2=36+9=45.
1 Iamoneofthemanycitypeoplewhoarealwayssayingthatgiventhechoicewewouldprefertoliveinthecountryawayfrom
祭拜
最新回复
(
0
)