首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个命令按钮run35,对应的事件代码如下: Private Sub run35_Enter() Dim num As Integer,a As Integer Dim b As Integer,i As Integer
在窗体中有一个命令按钮run35,对应的事件代码如下: Private Sub run35_Enter() Dim num As Integer,a As Integer Dim b As Integer,i As Integer
admin
2017-06-22
52
问题
在窗体中有一个命令按钮run35,对应的事件代码如下:
Private Sub run35_Enter()
Dim num As Integer,a As Integer
Dim b As Integer,i As Integer
For i=1 To 10
num=InputBox(”请输入数据:”,”输入”,1)
If Int(num/2)=num/2 Then
a=a+1
Else
B=b+1
End If
Next i
MsgBox(”运行结果:a=”&Str(a)&:”,b=”&Str(b))
End Sub
运行以上事件所完成的功能是
选项
A、对输入的10个数据求累加和
B、对输入的10个数据求各自的余数,然后再进行累加
C、对输入的10个数据分别统计有几个是整数,有几个是非整数
D、对输入的10个数据分别统计有几个是奇数,有几个是偶数
答案
D
解析
本题考查程序设计的知识。本题的重点在于判断Int(num/2)=num/2是什么样的条件。对于任意一个整数来说,若其除2后为整数,也就是Int(num/2)=num/2成立,说明该数是一个偶数;反之若其除2后不为整数,此时Int(num/2)必然不等于num/2,也就是一个整数不可能等于一个小数,说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。
转载请注明原文地址:https://kaotiyun.com/show/cdgp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在窗体中添加了一个文本框和一个命令按钮(名称分别为Text1和Commandl),并编写了相应的事件过程。运行此窗体后,在文本框中输入一个字符,则命令按钮上的标题变为“Access模拟”。以下能实现上述操作的事件过程是()。
下列逻辑表达式中,能正确表示条件“x和y都不是奇数”的是()。
下面程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并在文本框Text1中输出该数组中各元素的最小值。请填空。OptionBase1PrivateSubCommandl_Click()
某窗体中有一命令按钮,单击此命令按钮将会运行一个SQL语句,则需要执行的宏操作是______________。
简单、快捷的创建表结构的视图形式是()。
在使用Dim语句定义数组时,在缺省情况下数组下标的下限为______________。
窗体中有一命令按钮,名称为Commandl。要求在窗体视图中单击此命令按钮后,命令按钮上面的文字变为加粗,实现该操作的VBA语句是______________。
窗体上添加有3个命令按钮,分别命名为Commandl、Command2和Command3,编写Commandl的单击事件过程,完成的功能为:当单击按钮Commandl时,按钮Command2可用,按钮Command3不可见。以下正确的是()。
在程序设计阶段应该采取____________和逐步求精的方法,把一个模块的功能逐步分解,细化为一系列具体的步骤,继而用某种程序设计语言写成程序。
随机试题
社会分层
Englandisnotabigcountry:fromnorthtosouthandfromeasttowestitisonlyaboutthreehundredmilesacross.Butforas
CT机将X线锥形束转化为扇形束的部件是
有两条盲肠的畜禽是
根据《房屋建筑工程质量保修办法》的规定,下列属于保修范围内的是()。
下列关于照明灯具的设置要求,错误的是()
旅行社可以低于成本的报价招徕旅游者。()
预防医学的研究特点,错误的是()。
文学评论中,对形式的模仿与内容的抄袭,不应________,对早期的作品和现在的创作,不可________。依次填入画横线部分最恰当的一项是()。
CollegeSportsintheUSCollegesportsintheUnitedStatesareahugedeal.AlmostallmajorAmericanuniversitieshavef
最新回复
(
0
)