首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click()Dim i As Integer For i=1To500 If p(i)Then s=s+1 Next Print
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click()Dim i As Integer For i=1To500 If p(i)Then s=s+1 Next Print
admin
2016-09-19
56
问题
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下:
Private Sub Command1_Click()Dim i As Integer
For i=1To500
If p(i)Then s=s+1
Next
Print s
End Sub
Private Function p(x As Integer)As Boolean
If x Mod7<>0Then
p=True
Else
p=False
End If
End Function
关于上述程序,以下叙述中正确的是
选项
A、程序功能是统计1—500范围内能被7整除的整数个数
B、Command1_Click事件过程中If语句的条件表达式不完整
C、Function过程定义有误,函数过程p的名称与该过程中的变量名p相同
D、函数过程p的返回值为Boolean类型
答案
D
解析
调用Function过程要返回一个值,因此可以像内部函数一样在表达式中使用。如果在Function过程中省略“过程名=表达式”,则该过程返回一个默认值(数值函数过程返回0值;字符串函数过程返回空字符串)。因此,通常要在过程体中给“过程名”赋值。本题中函数p的返回值为Boolean类型,功能是判断参数x是否能被7整除,如果不能整除返回True,否则返回False。C0mmand1_Click事件过程中使用了单行的If语句,不需要Else分支和EndIf语句。程序功能是统计1-500范围内不能被7整除的整数个数。
转载请注明原文地址:https://kaotiyun.com/show/1OLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在运行程序时,在文本框中输入新的内容,或在程序代码中改变Text的属性值,相应会触发到
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:DimSWAsBooleanFunctionfunc(XAsInteger)AsInteger IfX<20Then Y=X
下列程序段的执行结果为m=2n=3Do m=m+n n=n+1LoopWhilem<10Printm;n
在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程:PrivateSubForm_Load() List1.AddItem"Item1" List1.AddItem"It
编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger) PrintChr(KeyCode)EndSubPrivateSubFo
窗体、图片框或图像框中的图形通过对象的______属性设置。
面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。请填空。PrivateSubForm_Click() DimiAsInteger,jAsInteger j=0 j=43
当用户()时,会引发焦点所在控件的KeyPress事件。
随机试题
A.神B.魂C.魄D.意肝藏
目前前置胎盘围产儿死亡率为
A、肺活量B、用力呼气量(时间肺活量)C、肺通气量D、肺总量E、肺泡通气量与下列检查指标相关的肺通气计量是能较好地评价肺通气功能
牙周疾病的二级预防包括
荆防颗粒适用于()
原始凭证是登记明细分类账的依据,记账凭证是登记总分类账的依据。()
在生产经营过程中由于经营管理不善、价格变化、消费者需求变化、通货膨胀、汇率变动或预测的失误,导致企业收入降低甚至破产的风险是()。
下列对中国电信客户品牌的说法,正确的是()。
Accordingtothetext,thedollarThefactorNOTaccountingfortheslideofdollaris
WhichofthefollowingisTRUEabouttheimmigrationreform?
最新回复
(
0
)