首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Commandl_Click() Private Function p(x As Integer)As Boolean
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Commandl_Click() Private Function p(x As Integer)As Boolean
admin
2019-06-11
62
问题
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下:
Private Sub Commandl_Click() Private Function p(x As Integer)As Boolean
Dim i As Integer Ifx 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、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://kaotiyun.com/show/pCUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下函数:PrivateFunctionfun(xAsInteger,yAsInteger)AsIntegerDimk%,n%n=IIf(y
考生文件夹下有一个工程文件sjt5.vbp。在窗体Form1上有两个标题分别是“产生数据”和“重新排列”的命令按钮,有两个标题为“原始数据”和“排列数据”的标签。程序功能如下。①单击“产生数据”按钮,则随机产生20个一位整数,存入数组a中,并同时
下列叙述中正确的是()。
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是()。
将C语言的整数设为整数类I,则下面属于类I的实例的是()。
(1)在名称为Form1的窗体上添加一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFFF&)。运行程序后的窗体如图所示。要求:程序中不得使用变量,每个事件过
下面关于数据库三级模式结构的叙述中,正确的是()。
下面()不是VB的文件系统控件。
数据流图中带有箭头的线段表示的是
随机试题
8岁女孩,因四肢瘫痪就诊,以吉兰-巴雷综合征收入院。目前出现呼吸表浅、咳嗽无力、呼吸道分泌物增加等表现,其最适宜的护理诊断是
A、胺碘酮B、可乐定C、维拉帕米D、地高辛E、氨力农具有交感神经抑制作用的抗高血压药是
在影响动脉血压的诸因素中,搏出量增多而其他因素不变时,脉压增大的主要原因是
患儿,4岁。智能运动发育落后,两眼内侧距离宽,鼻梁低平,双眼外侧上斜,经常伸舌,通贯手为确定诊断需做下述哪项检查
能抑制二氢叶酸还原酶的抗肿瘤药是()。
电梯的()应当对电梯质量及投入运行后的维修保养负责。
影响建筑材料预算价格变动的因素包括( )。
在路拌法水泥稳定土基层施工中,若①准备下承层;②洒水闷料;③拌和;④整形,如下选项中排序正确的是()。
人们常说的物流成本往往主要是指______的物流成本。
HowtoFindTimeforYourselfI.Introduction:waystocarveoutyourowntimeA.【T1】______:toobusy【T1】______B.Desire:some
最新回复
(
0
)