首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个命令按钮Command1,对应的事件代码如下: Private Sub Command1_Enter() Dim num As Integer Dim a As Integer Dim b As Integer
在窗体中有一个命令按钮Command1,对应的事件代码如下: Private Sub Command1_Enter() Dim num As Integer Dim a As Integer Dim b As Integer
admin
2010-03-22
68
问题
在窗体中有一个命令按钮Command1,对应的事件代码如下:
Private Sub Command1_Enter()
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim 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)=hum/2成立,说明该数是一个偶数;反之若其除2后不为整数,此时Int(num/2)必然不等于num/2,也就是一个整数不可能等于一个小数,说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。
转载请注明原文地址:https://kaotiyun.com/show/8twp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
下列关于C++预定义流对象的叙述中,正确的是()。
请打开考生文件夹下的解决方案文件proj3,本题创建一个小型字符串类,字符串长度不超过100。程序文件包括proj3.h、proj3.cpp、writeToFile.obj。补充完成重载赋值运算符函数,完成深复制功能。屏幕上输出的正确结果应该是:
软件详细设计生产的图如下:[70*]该图是( )
设序列长度为n,在最坏情况下,时间复杂度为O(log2n)的算法是
算法的有穷性是指( )。
结构化程序设计的基本原则不包括()。
使用Ve6打开考生文件夹proj2下的工程proj2。其中在编辑窗口内显示的主程序文件中定义有类XBase和XDerived,以及主函数main。程序文本中位于每行”//************found************下面的一行内有一处或多处下划
下列程序将X、Y和Z按从小到大的顺序排列,横线处应添加语句()。templatevoidfun(_______){Ta:if(x>y){a=x;x=y;y=a;}
请打开考生文件夹下的解决方案文件proj3,其中声明的DataList类,是一个用于表示数据表的类。DataList的重载运算符函数operator+,其功能是求当前数据表与另一个相同长度的数据表之和;即它返回一个数据表,其每个元素等于相应两个数据表对应元
数据透视表窗体是以表或查询为数剧源产生一个______的分析表而建立的一种窗体。
随机试题
It_______sincethismorning.
A.左心功能不全B.大量心包积液C.房颤D.肥厚型梗阻性心肌病E.主动脉瓣关闭不全交替脉
心脏杂音产生的机制不包括哪项
与依那普利不相符的叙述是
以下哪几项是取保候审和监视居住的共同点?
期货公司申请金融期货结算业务资格,应当向中国证监会提交申请日前( )个会计年度每季度末客户权益总额情况表。
A公司为增值税一般纳税人,不动产、动产适用的增值税税率分别为11%、17%。2017年A公司建造一个生产车间,包括厂房和一条生产线两个单项工程。厂房造价为130万元,生产线安装费用为50万元。A公司采用出包方式出包给甲公司。2017年有关资料如下:资料一
纺车之于()相当于()之于联合收割机
使用SQL删除数据命令时,如果不使用WHERE子句,则
Inthesummerheat,it’seasytodeveloptheembarrassingproblemofbodyodorifyou’renotcareful.Bacterialivealloverou
最新回复
(
0
)