首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click() Dim i As Integer For i=1 To 500
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click() Dim i As Integer For i=1 To 500
admin
2020-04-18
63
问题
窗体上有一个名称为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/ArTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程:PrivateSubText1_Change(IndexAsInteger) SelectCaseIndex Case0 Text1(1).
命令按钮Command1的事件过程如下:PrivateSubCommand1_Click() Dimarr(5,5)AsInteger DimiAsInteger,jAsInteger Fori=1To4
指令“Circle(1500,1200),1000,,,,0.5”将会绘制出的图形为()。
以下能够正常结束循环操作的程序段是
现有程序如下:OptionBaselPrirateSubForm_Click()Dimx(5,6)AsInteger,y(5)AsIntegerFori=1To5
下列关于菜单项的描述中,错误的是()。
有如下过程代码:Subvar_dim()StalicnumaAsIntegerDimnumbAsIntegernuma=numa+2numb=n
一个工程中包含两个名称分别为Forml、Form2的窗体、一个名称为Func的标准模块。假定在Form1、Form2和Func中分别建立了自定义过程,其定义格式为:Form1中定义的过程:PrivateSubFunl()EndSubForm2
对序线性表(23,29,34,55,60,70,78)用二分法查找值为60的元素时,需要比较次数为()。
随机试题
实用主义教育学的代表人物杜威倡导的“新三中心论”是()。
下列表述错误的是
Youaresointerestedinthismatter,but(我宁愿你对此一无所知).
未婚青年,原发性闭经,第二性征发育正常,孕激素试验(-),下一步应作的检查
GPS测量按其精度分为()级。
某企业由于经营管理不善,生产经营状况每况愈下,2009年4月,经企业领导集体决定,经有关部门批准,企业决定停产整顿。并且,该企业还向省税务局申请对他们原有的闲置房产暂不征收营业税,得到了省税务局的批准。经过人员调整,经营策略的重新布局,该企业于2010年5
某单位有15个部门,每个部门人数依次为1,2,3,…,15。现有一些光盘,若每个部门都声称这些光艋能在自己部门内部平均分配,只有人数相邻的两个部门说的不对,请问这两个部门的人数之和为多少?
亚洲国家躲过了近年来的全球大萧条,其中最主要的原因是它未被卷入2008年金融危机。然而近日一项调查显示,亚洲的债务水平正在以可怕的速度增长。从某些方面来说,这有部分合理理由。许多国家的超低息政策鼓励贷款,债务增长是财富增长的自然产物。但值得警惕的是,亚洲国
一台接入层交换机具有16个100/100Mbps全双工下联端口,它的上联端口带宽至少应为()。
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
最新回复
(
0
)