首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Commandl—Click()Dim i As Integer For i=1 To 500 Ifp(i)Then s=s+1 Next Prin
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Commandl—Click()Dim i As Integer For i=1 To 500 Ifp(i)Then s=s+1 Next Prin
admin
2015-11-24
37
问题
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下:
Private Sub Commandl—Click()Dim i As Integer
For i=1 To 500
Ifp(i)Then s=s+1
Next
Print s
End Sub
Private Function p(x As Integer)As Boolean
Ifx Mod 7<>0 Then
P=True
Else
P=False
End If
End Function
关于上述程序,以下叙述中正确
选项
A、程序功能是统计1-500范围内能被7整除的整数个数
B、Commandl Click事件过程中If语句的条件表达式不完整
C、Function过程定义有误,函数过程P的名称与该过程中的变量名P相同
D、函数过程P的返回值为Boolean类型
答案
D
解析
调用Function过程要返回一个值,因此可以像内部函数一样在表达式中使用。如果在Function过程中省略“过程名=表达式”,则该过程返回一个默认值(数值函数过程返回0值;字符串函数过程返回空字符串)。因此,通常要在过程体中给“过程名”赋值。本题中函数p的返回值为Boolean类型,功能是判断参数x是否能被7整除,如果不能整除返回True,否则返回False。Commandl Click事件过程中使用了单行的If语句,不需要Else分支和Endlf语句。程序功能是统计1-500范围内不能被7整除的整数个
转载请注明原文地址:https://jikaoti.com/ti/5zJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
函数Int(Rnd(0)*100)是下列()范围内的整数。
子过程Sub...EndSub的形式参数可以是()。
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1),外观如下图所示。编写如下程序:PrivateSubForm_Load()Text1.Text=""
在窗体上绘制一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enadled属性设置为False。程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述
确定一个控件在窗体上的位置的属性是()。
在3种不同类型的组合框中,只能选择而不能输入数据的组合框是【】。
以下关于过程及过程参数的描述中,错误的是
下列程序的功能是:将数据1,2,…,10写入顺序文件Base.txt中,请填空。PrivateSubForm_Click()DimiAsIntegerOpen【】As#1Fori=1To10Print#1,iN
下列事件过程运行后输出结果是PrivateSubCommand1_Click()PrintFormat$(123,456,"###,##%")EndSub
以下Case语句中错误的是()。
随机试题
沟通网络的形态包括()
患者,女,30岁,染发后头皮红、痒,自服磺胺未见减轻,2天后眼睑、面颈部弥散性潮红,出现大泡及渗出,瘙痒明显,头皮内可见黄色痂皮,最简单可靠的诊断办法是
治疗肠易激综合征可选用的药物有
下列各项中属于资金退出的有()。
在内燃机的质量评定中主要考察哪些方面出现了异常现象?
(2013年)税务规章的适用规则包括()。
某企业2015年利润总额为200万元,当年开发新产品研发费用实际支出为20万元,税法规定研发费用可实行150%加计扣除政策。则该企业2015年计算应纳税所得额时可以扣除的研发费用为()万元。
Ayoungconsultant’slifeistiring.A(1)_____weekstartsbeforedawnonMonday,witharushtotheairportandaflightto(2)_
A、Theman’stennisracketisgoodenough.B、Themanshouldgetapairofnewshoes.C、Shecanwaitforthemanforalittlewhil
A、Theydon’tgotoseethefilmsasoftenastheydid.B、They’veeverdreamedofgoingtothemoononce.C、Theylivedinthesam
最新回复
(
0
)