首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个命令按钮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
55
问题
在窗体中有一个命令按钮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://jikaoti.com/ti/AzP0FFFM
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
请打开考生文件夹下的解决方案文件proj1,此工程中包含一个源程序文件main.cpp,其中有类Book(“书”)和主函数main的定义。程序中位于每个“//ERROR****found****”下的语句行有错误,请加以改正。改正后程序的输出结果应该是:
下面叙述中错误的是()。
下列程序的运行结果是()。#includeclassA{inta;public:A(){a=O;}A(intaa){a=aa;cout<<a+
数据库管理系统是()。
请打开考生文件夹下的解决方案文件proj3,本题创建一个小型字符串类,字符串长度不超过100。程序文件包括proj3.h、proj3.cpp、writeToFile.obj。补充完成重载赋值运算符函数,完成深复制功能。屏幕上输出的正确结果应该是:
字面常量42、4.2、42L的数据类型分别是()。
下列选项中,正确的C++表达式是
有如下函数模板定义:templateT1FUN(T2n){returnn*5.0;}若要求以int型数据9作为函数实参调用该模板,并返回一个double型数据,则该调用应表示为
下面不属于软件需求分析阶段工作的是
使用VC6打开考生文件夹下的源程序文件modi1.cpp,该程序运行时有错误,请改正程序中的错误,使得程序运行后没有内存遗漏。可以在修改处增加或者删除一条语句。本程序完成输入两个字符串,分别存储到s1,s2中。注意:不要改动main函数,不能增行
随机试题
大坝受水流冲击力最大的部位是()。
兵种领导机关包括哪些。
缺铁性贫血铁剂治疗有效,最早的变化指标是
A.性别、药味名称B.剂数、用法C.药物名称、姓名D.医师签字E.用法、医院名称属处方后记的内容是
去除口臭宜选用的漱口液是
未满十七岁的张某应聘于某施工单位,下列关于此事说法正确的是()。
课堂导入的作用主要体现在集中注意、引发兴趣、进入课题。()
阅读以下文字,完成下列问题。《进一步做好新形势下就业创业工作重点任务分工方案》(以下简称《分工方案》)已经国务院同意,请各省、自治区、直辖市人民政府以及国务院有关部门认真落实。有关部门要认真贯彻实施甲,按照《分工方案》的要求,进一步分解
设f’(x)=arcsin(x-1)2,f(0)=0,求∫01f(x)dx.
It’simpossibletopredictwhethershe’llbewellenoughtocomehomefromhospitalnextmonth.
最新回复
(
0
)