首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command l_Click()Dim i As Integer For i=1 To 500
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command l_Click()Dim i As Integer For i=1 To 500
admin
2013-10-16
23
问题
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下:
Private Sub Command l_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
EIse
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://kaotiyun.com/show/jGQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在面向对象方法中,类之间共享属性和操作的机制称为______。
假定一个文本框的Name属性为Text1,为了在该文本框中显示“Hello!”,所使用的语句为【】。
在窗体上绘制一个文本框,名为Text1,高度为500,宽度为1500,字体为“宋体”,并设置其他相关属性,使得在程序运行时,文本框中输入的字符都显示为“%”,如下图所示。注意:文件必须存放在考生文件夹中,工程文件名为execise15.v
在名为Form1的窗体上绘制一个名为Text1的文本框控件和一个名为Timer1的计时器控件。程序运行后,文本框中显示的是当前的时间,而且每一秒文本框中所显示的时间都会随时间的变化而改变(如下图所示)。注意:程序中不得使用任何变量:文
在Form1的窗体上绘制一个文本框,名为Text1;绘制一个命令按钮,名为Cmd1,标题为Display,它的TabIndex属性设为0。请为Cmd1设置适当的属性,使得当焦点在Text1上时,按Esc键就调用Cmd1的Click事件,该事件过程的作用是在
在名为Form1的窗体上绘制两个文本框,名称分别为Text1和Text2;再绘制两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为LeR和Right,如下图所示。要求:(1)编写适当的事件过程,使得程序运行时,单击LeR按钮,则焦点位
设窗体上有一个列表框控件Listl,含有若干列表项。以下能表示当前被选中的列表项内容的是
以下叙述中错误的是
在VisualBasic中传递参数的方法有______方式。
随机试题
运动单位(motorunit)
与肺、脾、肾三脏功能失调有关的病证是()(1996年第151题)
可使肥厚性梗阻性心肌病患者心脏杂音减弱的药物是
关于电气线路中漏电保护作用的叙述,下列()是正确的。
PLC配有存放程序和数据的存储器,包括()。
项目范围的界定宜采取的原则是()。
某贴面工程某月计划完成工程量为2100m2,计划单价为170元/m2,月底检查时实际完成工程量为1900m2,实际单价为185元/m2,则下列关于该工程费用、进度偏差分析的表述,正确的是()。
下列交易的对象是一种权利的是( )。
为了使平衡计分卡同企业战略更好地结合,必须做到()。
TheEnglishweatherdefiesforecastandhenceisasourceofinterestand______toeveryone.
最新回复
(
0
)