窗体上有一个名称为Command1的命令按钮，其单击事件过程及相关的函数过程如下： Private Sub Command1_Click() Dim i As Integer For i = 1 To 500 If p(i)

admin2020-02-27 97

问题窗体上有一个名称为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://www.kaotiyun.com/show/AxTp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

窗体上有一个名称为Command1的命令按钮，其单击事件过程及相关的函数过程如下： Private Sub Command1_Click() Dim i As Integer For i = 1 To 500 If p(i)

二级VB

NCRE全国计算机二级

VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母()。

假定有如下的程序段：DimintVarAsIntegerintvar=TruePrintintVar则输出结果是

能够容纳其他控件的控件是容器控件，框架与图片框都是容器控件。下面的叙述中正确的是()。

下列方法中，能够使对象获得焦点的是()。

设程序中定义了下面的过程：PrivateSubproc(chAsString)PrintchEndSub下面语句中错误的是()。

下列说法中正确的是()。

下面程序的执行结果是()。PrivateSubCommand1_Click()a=0k=1DoWhilek＜4x=k＾k＾ak=k+1Printx；LoopEndSub

数据流图(DFD)中的有向箭头(→)表示()。

设循环队列的存储空间为Q(1：m)，初始状态为空。现经过一系列正常的入队与退队操作后，front=m，rear=m-1，此后从该循环队列中删除一个元素，则队列中的元素个数为()。

患者，男，36岁。数日大便不解，胸胁苦满，呕吐不止，郁郁微烦，寒热往来，心下痞硬，舌苔黄，脉弦而有力。治疗应首选()

急性炎症性脱髓鞘性多发性神经病的首发症状通常为

最上层支架距其他设备装置的净距不得小于()，当无法满足时应设置防护板。

支票的提示付款期限为自出票日起()日。

资产负债表中“预付账款”项目的金额应包括(　　)。

某甲故意在某乙所有的马身边按车喇叭，致使拴在木桩上的马受惊挣脱绳子，冲出去撞伤了行人某丙。则()。

我们党的思想路线是一切从实际出发，理论联系实际，实事求是，在实践中检验真理和发展真理，其实质内容是解放思想，实事求是，与时俱进。党的思想路线体现了()

窗体上有一个名称为Command1的命令按钮，其单击事件过程及相关的函数过程如下： Private Sub Command1_Click() Dim i As Integer For i = 1 To 500 If p(i)

二级VB

NCRE全国计算机二级

VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母()。

假定有如下的程序段：DimintVarAsIntegerintvar=TruePrintintVar则输出结果是

能够容纳其他控件的控件是容器控件，框架与图片框都是容器控件。下面的叙述中正确的是()。

下列方法中，能够使对象获得焦点的是()。

设程序中定义了下面的过程：PrivateSubproc(chAsString)PrintchEndSub下面语句中错误的是()。

下列说法中正确的是()。

下面程序的执行结果是()。PrivateSubCommand1_Click()a=0k=1DoWhilek＜4x=k＾k＾ak=k+1Printx；LoopEndSub

数据流图(DFD)中的有向箭头(→)表示()。

设循环队列的存储空间为Q(1：m)，初始状态为空。现经过一系列正常的入队与退队操作后，front=m，rear=m-1，此后从该循环队列中删除一个元素，则队列中的元素个数为()。

患者，男，36岁。数日大便不解，胸胁苦满，呕吐不止，郁郁微烦，寒热往来，心下痞硬，舌苔黄，脉弦而有力。治疗应首选()

急性炎症性脱髓鞘性多发性神经病的首发症状通常为

最上层支架距其他设备装置的净距不得小于()，当无法满足时应设置防护板。

支票的提示付款期限为自出票日起()日。

资产负债表中“预付账款”项目的金额应包括( )。

某甲故意在某乙所有的马身边按车喇叭，致使拴在木桩上的马受惊挣脱绳子，冲出去撞伤了行人某丙。则()。

我们党的思想路线是一切从实际出发，理论联系实际，实事求是，在实践中检验真理和发展真理，其实质内容是解放思想，实事求是，与时俱进。党的思想路线体现了()

资产负债表中“预付账款”项目的金额应包括(　　)。