首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有以下程序: Private Sub Form_Click() x=50 For i=1To4 y=InputBox("请输入一个整数") y=Val(y) If y Mod5=0Then a=a+y x=y Else a=a+x End If Next
设有以下程序: Private Sub Form_Click() x=50 For i=1To4 y=InputBox("请输入一个整数") y=Val(y) If y Mod5=0Then a=a+y x=y Else a=a+x End If Next
admin
2016-12-13
60
问题
设有以下程序:
Private Sub Form_Click()
x=50
For i=1To4
y=InputBox("请输入一个整数")
y=Val(y)
If y Mod5=0Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为
选项
A、100
B、50
C、120
D、70
答案
A
解析
本题考查的考点是有关循环的。本题需要写出每一次循环的变量变化情况。第一次循环时输入15,If判断为真,所以a=15,x=15;第二次循环时输入24,If判断为假,所以a=15+15=30,x仍然为15;第三次循环时输入35,If判断为真,所以a=30+35=65,x=35;第四次循环时输入46,If判断为假,所以a=65+35=100,x=35。
转载请注明原文地址:https://kaotiyun.com/show/rIGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Sub过程与Function过程最根本的区别是()。
数据库恢复是将数据库从_______状态恢复到某一已知的正确状态。
设已经在“菜单编辑器”中设计了窗体的快捷菜单,其顶级菜单为Bs,取消其“可见”属性.运行时,在以下事件过程中,可以使快捷菜单响应鼠标右键菜单的是()。
有下列事件过程:PrivateSubCommandlClick()b=10DoUntilb=-1a=InputBox(”请输入a的值”)a=Val(a)b=InputBox(”请输入b的值”)
本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个整数0或1,相当于一次投币,1代表正面,0代表反面。在窗体上有3个文本框,名称分别是Textl、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图1所示
用下面的语句所定义的数组的元素个数是:______。Dimarr(3To5,-2to2)
以下关系表达式中,其值为假的是______。
在面向对象方法中,()描述的是具有相似属性与操作的一组对象。
假定有以下循环结构DoUntil条件表达式循环体Loop则以下正确的描述是
定时器的Interval属性以什么为单位指定Timer事件之前的时间间隔
随机试题
脐风的体征不包括
继父唐某虐待其继女孙某,将孙某折磨得形容不堪。一日唐某又无故殴打孙某,孙某有所反抗,唐某即拿起一根筷子向孙某刺去,致其失明。唐某构成何种犯罪?()
有关审计证据可靠性的下列表述中,注册会计师认同的是( )。
Thisdictionary,whichIboughtyesterday,hasbeenhighly__________bymyprofessor.
党的十九大报告提出,创新和完善宏观调控,增强()对经济发展的基础性作用,发挥投资对优化供给结构的关键性作用。
【材料1】在某市一条不足400米长的步行街上清洁工人清理出人们吐掉的口香糖约15公斤。某市公交公司无人售票公共汽车3年间收到的残币假钞竟高达50万元。一孕妇在参加公务员录用考试后上了专门接送考生的大客车,全车考生没有一个人给她让座。【材料2】在对
甲乙两位长跑爱好者沿着社区花园环路慢跑,如两人同时、同向从同一地点A出发,且甲跑9米的时间乙只能跑7米,则当甲恰好在A点第二次追到乙时,乙共沿花园环路跑了()圈
Whattimedoesthewomanoftengettoherofficeeverymorning?
TheWorldHealthDayTheWorldHealthDayison7thApril./ItmarksthefoundingoftheWorldHealthOrganization/andis
WhySomePeopleArePoorThepovertylineistheminimumincomethatpeopleneedforanacceptablestandardofliving./Peo
最新回复
(
0
)