首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Private Sub Form Click( ) Dim i As Integer,slim As Integer sum=0 For i=2 To 10 Ifi Mod 2<>0 And i Mod
有如下程序: Private Sub Form Click( ) Dim i As Integer,slim As Integer sum=0 For i=2 To 10 Ifi Mod 2<>0 And i Mod
admin
2020-04-18
41
问题
有如下程序:
Private Sub Form Click( )
Dim i As Integer,slim As Integer
sum=0
For i=2 To 10
Ifi Mod 2<>0 And i Mod 3=0 Then
sum=sum+i
End If
Next i
Print sum
End Sub
程序运行后,单击窗体,输出结果为( )。
选项
A、24
B、30
C、12
D、18
答案
C
解析
本题考查循环程序的分析。分析循环程序关键在于分析循环体的功能,应详细地分析循环的条件、执行的次数、每次执行的操作等。本题中For循环执行9次(i取值范围[2,10]之间所有的整数),循环体中执行的条件为:如果i不是偶数,同时i是3的倍数,那么此时的i,累加到变量sum中,因此当i为3、9时累加到变量sum中sum=3+9=12。
转载请注明原文地址:https://kaotiyun.com/show/feTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如图所示,在窗体上有一个文本框控件,名称为TextTime:一个计时器控件,名称为Timer1。要求每1s在文本框中显示一次当前的时间。PrivateSubTimer1TextTime.Text=TimeEndSub
在窗体上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()x=0doWhilex<50
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:DimFlagAsBooleanPrivateSubCommand1_Click()DimintNumAsIntegerintNum=In
下列程序段的执行结果为()。x=Int(Rnd+4)SelectCasexCase5:Print"AClass"Case4:Print"BClass"Case3:Print"CCla
在窗体上有一个名称为Label1的标签和一个名称为Timer1的计时器,并编写有如下几个事件过程:PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=____
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1_Click()Dima%,b%,i%s=1:a=2Fori=2T
已知数组Dima(1To10)AsInteger,则下面正确调用GetValue函数的是()。PrivateFunctionGetValue(a()AsInteger)AsIntegerFori=
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTypeTemScoreAsIntegerStrNameAsStringEndtypeDimStudent(5)AsTem
对建立良好的程序设计风格,下面描述正确的是()。
随机试题
复关节
男性,60岁,出现无痛性血尿半年余。膀胱镜检查:膀胱三角区可见一乳头状肿物、有蒂,活检报告为乳头状瘤。符合此诊断的病变是
咳血方主治证候的病机是
不可抗力
某设计合同,业主支付定金10万元后,设计人不履行义务,业主有权要求设计人返还()万元。
某企业每增加500万元的销售额,需增加销售人员10人,预计1年后销售额将增加2,000万元,如果在新增人员中管理人员、销售人员和客服人员的比例是1:6:3,则1年后该企业需要增加客服人员()人。
涉及到合营企业的一些事项必须经出席董事会会议的董事一致通过方可作出决议,这些事项包括()。
社会治安综合治理的领导力量是各级党委和政府。()
心理学实验中因变量的测量指标既有主观指标也有客观指标,下列属于主观指标的是
ThearomaofchocolateperfumestheairoftheRued’AssasinParis.EnteringChristianConstant’sstate-of-the-artboutique,yo
最新回复
(
0
)