首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click() Dim i As Integer For i = 1 To 500 If p(i)
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click() Dim i As Integer For i = 1 To 500 If p(i)
admin
2015-06-30
31
问题
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下:
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 500
If p(i) Then s = s + 1
Next
Print s
End Sub
Private Function p(x As Integer) As Boolean
If x Mod 7 <> 0 Then
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
解析
程序功能是统计1-500范围内不能被7整除的整数个数;函数过程p的返回值根据函数定义可知为Boolean类型。选D)。
转载请注明原文地址:https://kaotiyun.com/show/1MQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下列程序段,其输出结果为()。a=0:b=0Fori=-1To-2Step-1Fori=1To2b=b+1Nextja=a+1Nexti
设置复选框中或单选按钮的标题对齐方式的属性是______。
在窗体上画一个命令按钮,然后编写如下程序:SubS1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=rEndSub
以下语句的输出结果是()PrintFormat$(367234."000,000,000")
“软件危机”产生的主要原因是______。
一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于【】的联系。
为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为
如果在立即窗口中执行以下操作(<CR>是回车键):a=8<CR>b=9<CR>printa>b<CR>则输出结果是______。
已知二叉树BT的后序遍历序列是,dabec,中序遍历序列是debac,它的前序遍历序列是______。
一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体"项目主管"与实体"项目"的联系属于【】的联系。
随机试题
简述盈余公积的用途。
建设项目的火灾危险性分析的内容包括(.)。
甲评估师执行某国有企业的评估项目(非重大和特殊项目),评估基准日2018年6月30日。在执行其他必要的评估程序之后,评估师完成了评估报告(评估报告日为2018年12月20日),并于2019年1月底完成工作底稿等评估档案的归档工作。评估档案在哪些情形下,
在双代号网络计划中,关键工作是()的工作。
下列各项中,关于房产税的免税规定,表述不正确的是()。
投资人在设立个人独资企业登记申请书上没有注明是以个人财产出资还是以家庭共有财产出资的,应以家庭共有财产对企业债务承担无限责任。()
MatchthegeneraladviceonmotivationwiththetechniquesforencouragingmotivationlistedA,B,CorD.TechniquesA.Encoura
简述利用影响力受贿罪的主体范围。(2012年一专一第52题)
Themind-successconnectionisstrong,andmanyobstaclestooursuccessarealsomental.Somepeoplerelymoreonfacts,while
A、Becausesheusedtheman’sscreen.B、Becausesheusedthewallinstead.C、Becauseshewouldbuyacheaperonelater.D、Because
最新回复
(
0
)