首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有以下程序: Private Sub Form_Click() x=50 For i=1 To 4 Y=InputBox(“请输入一个整数”) Y=val(y) Ify Mod 5=0 Then a=a+y x=y Else a=a+x End If N
设有以下程序: Private Sub Form_Click() x=50 For i=1 To 4 Y=InputBox(“请输入一个整数”) Y=val(y) Ify Mod 5=0 Then a=a+y x=y Else a=a+x End If N
admin
2018-10-18
26
问题
设有以下程序:
Private Sub Form_Click()
x=50
For i=1 To 4
Y=InputBox(“请输入一个整数”)
Y=val(y)
Ify Mod 5=0 Then
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,lf判断为真,所以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://jikaoti.com/ti/Bfm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下可以判断是否在文本框(名称为Text1)内按下了回车键的事件过程是
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:OptionBase1PrivateSubCommand1_Click()Dima(4,4)AsIntegerFori=1To4
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
以下关于VB的叙述中,错误的是
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger) DimcAsString
某人编写了下面的程序:PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=InputBox("请输入整数") b=InputBox("请输入整数") pro
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。程序代码如下:Dimcolor(3)AsIntege
窗体上已有1个名称为Picture1的图片框,要求实现下面2个功能之一:(1)在窗体上移动鼠标时,立即将Picture1显示在鼠标位置(2)在窗体上单击鼠标时,立即将Picture1显示在鼠标位置下面不能实现上述任何功能的事件过程是
设窗体上有一个名称为Timer1的计时器控件,其Interval属性被设置为500,Enabled属性被设置为True;还有一个名称为Text1的文本框和下面的事件过程:PrivateSubTimer1_Timer()
随机试题
关于二审诉讼费用的负担说法不正确的是
对某一量进行n次重复测量,若某一测量值Yi的剩余误差εi的绝对值大于标准误差σ时,则Yi含有粗大误差,予以剔除。这种方法称为()。
关于燃气管道安装要求的叙述,不正确的是()。
雨期钢结构工程施工,焊接作业区的相对湿度最大限值是()%。
()可以临时指定基金托管人。
北京申奥的第一位形象大使是()。
甲因犯盗窃罪被判处有期徒刑5年,在刑罚执行3年后,又发现他在判决宣告前还犯有放火罪,应判处有期徒刑7年。经数罪并罚决定执行10年有期徒刑。对甲还需要继续执行的刑期是()。(2011年单选9)
有关计算机软件,下列说法错误的是_______。
Hehasgottoomuch______toworryaboutyourproblem.
DearMr.Suzuki,ThegoodswereceivedonJuly15werefoundnottomatchourorder.ThegoodsweorderedwereItemNo.2345
最新回复
(
0
)