首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click() Private Function p(x As Integer)As Boolean
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click() Private Function p(x As Integer)As Boolean
admin
2018-10-18
77
问题
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下:
Private Sub Command1_Click() Private Function p(x As Integer)As Boolean
Dim i As Integer If x Mod 7<>0 Then
For i=1 To 500 p=True
Ifp(i)Then s=s+1 Else
Next p=False
Print s End If
End Sub End Function
关于上述程序,以下叙述中正确的是
选项
A、程序功能是统计1-500范围内能被7整除的整数个数
B、Command1 Click事件过程中lf语句的条件表达式不完整
C、Function过程定义有误,函数过程p的名称与该过程中的变量名p相同
D、函数过程p的返回值为Boolean类型
答案
D
解析
调用Function过程要返回一个值,因此可以像内部函数一样在表达式中使用。如果在Function过程中省略“过程名=表达式”,则该过程返回一个默认值(数值函数过程返回0值;字符串函数过程返回空字符串)。因此,通常要在过程体中给“过程名”赋值。本题中函数p的返回值为Boolean类型,功能是判断参数x是否能被7整除,如果不能整除返回True,否则返回False。Command1_Click事件过程中使用了单行的If语句,不需要Else分支和Endlf语句。程序功能是统计1-500范围内不能被7整除的整数个数。
转载请注明原文地址:https://kaotiyun.com/show/MxFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger m=1:n=0 DoWhilem
在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为( )。
以下关于VB特点的叙述中,错误的是
将窗体的KeyPreview属性设为True,然后编写如下程序:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)
对于能够获得焦点的控件,若要使其不能接收焦点,应该
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger) DimcAsString
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click() DimxAsInteger x=Val(InputBox("请输入一个整数")) fun(x)EndSubPrivate
能够产生1到50之间(含1和50)随机整数的表达式是( )。
设a=2,b=3,c=4,d=5,表达式Nota
以下能对正实数d的第3位小数四舍五入的表达式是
随机试题
螺栓联接的防松措施有哪些?
预防切口感染的措施除外
慢性牙周炎病变区的主要优势菌是
A.同情感B.责任感C.事业感D.公正感E.愧疚感
有关我国建设工程造价的类型和编制时期的一般表述不正确的是()。
根据以下资料,回答116-120题。下列说法中,不正确的是()。
在大家眼中“挣钱多,说话少,疯狂加班”的程序员们,终于发声,通过这场“996.ICU”运动表达了抵制姿态。“996”作为一句玩笑,迅速被互联网企业员工、即将踏入互联网行业的高校人才以及关注该领域的人们“吵”成话题,这本身就表明了问题的严重性和紧迫性。某些互
关系是具有相同性质的【】的集合。
一个工作人员可使用多台计算机,而一台计算机被多个人使用,则实体工作人员与实体计算机之间的联系是
ThewholeworldputattentiontotheSouthAsiawherethetsunamihappened.Before,musiciansproduceda"sonictsunami”,WallS
最新回复
(
0
)