首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Commandl_Click() Dim i As Integer For i=1 To 500 Ifp(i)The
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Commandl_Click() Dim i As Integer For i=1 To 500 Ifp(i)The
admin
2018-10-15
27
问题
窗体上有一个名称为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分支和EndIf语句。程序功能是统计1-500范围内不能被7整除的整数个数。
转载请注明原文地址:https://kaotiyun.com/show/QGFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下程序代码:PrivateSubForm_Click()DimiAsInteger,nAsIntegerFori=0To30i=i+3n=n+1
以下关于过程的叙述中,错误的是
设程序中有以下语句:MsgBox"Visual",,"Basic","等级考试",2执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
设有如下通用过程:PublicFunctionFun(xStrAsString)AsString DimtStrAsString,strLAsInteger tStr="" strL=Len(xStr) i=
为了使窗体的大小可以改变,必须把它的BorderStyle属性设置为( )。
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
文件列表框中用于设置或返回所选文件路径和文件名的属性是
以下自定义数据类型的语句中,正确的是()。
对于循环队列,下列叙述中正确的是( )。
随机试题
鲍敬言认为君权、法制产生于
A、Tomdoesn’tworkhardenough.B、Tomdoesn’tthinkthewomanneedsaworker.C、Tomhasapoorpersonality.D、Tomworkseveryqu
能够通过胎盘的免疫球蛋白
“备案号”栏应填:“收货单位”栏应填:
会员在诚信评估周期内的()以及其他影响诚信状况的情况纳入诚信状况评估。Ⅰ.诚信制度建设Ⅱ.诚信活动开展Ⅲ.受奖励Ⅳ.受处分处罚
在我国,与股权登记日的股票价格相比,除息日的股票价格将()。
隋朝开创了行省制度。()
金晓结婚后一直和丈夫两个人生活在一起,金晓生了孩子后,婆婆就搬过来与他们一起生活,顺便照看孙女。时间久了,金晓与婆婆之间的矛盾慢慢增多,金晓不习惯婆婆的老旧思想,而婆婆也看不惯金晓的各种行为。因为孩子的饮食问题,婆媳终于爆发了激烈的争吵,婆婆一气之下搬回了
设A为n阶矩阵,A11≠0.证明:非齐次线性方程组AX=b有无穷多个解的充分必要条件是A*b=0.
TheDevelopmentofMuseumsATheconvictionthathistoricalrelicsprovideinfallibletestimony
最新回复
(
0
)