首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有以下程序: Private Sub Form Click() x=50 For i=1 To 4 Y=InputBox(”请输入一个整数”) Y=Val(y) Ifv Mod 5=0 Then
设有以下程序: Private Sub Form Click() x=50 For i=1 To 4 Y=InputBox(”请输入一个整数”) Y=Val(y) Ifv Mod 5=0 Then
admin
2019-03-08
25
问题
设有以下程序:
Private Sub Form Click()
x=50
For i=1 To 4
Y=InputBox(”请输入一个整数”)
Y=Val(y)
Ifv 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,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://jikaoti.com/ti/Hum0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体的MouseUp事件过程如下:PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) ……EndSub关于以上定义,以下
有如下程序:PrivateSubForm_Click()DimxAsStringDimnAsIntegerx=InputBox("输入一个英文单词(全部大写)")n=Len(x)F
编写如下程序:PrivateSubForm_Click()a=0Fori=1To20Step3a=a+i\5NextiPrintaEndSub运行程序,
表达式(-1)*Sgn(-100+Int(Rnd*100))的值是()。
在窗体上建立一个标签数组,名称为Label1,下标从0开始,自左至右顺序增大,然后编写如下事件过程:PrivateSubForm_Click()ForEachLabelInLabel1Label1(i).Capti
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是
为了改变单选按钮的选取状态,可以改变该控件一个属性的值,这个属性是
下面属于整数类的实例是
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的代码如下:DimxAsInteger,yAsIntegerx=Val(InputBox("输入整数"))y=Val(InputBox("输
下面属于系统软件的是
随机试题
在大雨天行车,为避免发生“水滑”而造成危险,要控制速度行驶。
脑血栓病人何时开始进行康复训练
食品腐败变质最终结果是()
在社区口腔保健咨询时,一位老年人问牙周疾病是怎么回事,正确的回答是
某卷烟厂为增值税一般纳税人,2012年11月份发生下列经济业务:(1)向农业生产者收购烟叶30吨,支付收购价款40万元,另外按收购价款的10%支付了价外补贴,烟叶税20%,取得收购凭证。另支付运输费用3万元,取得运输公司开具的运输发票;烟叶验收
1988年巴塞尔协议规定商业银行的附属资本不能超过总资本的()。
小斌今年10岁,上小学四年级,与开店做生意的爸爸、妈妈生活在一起。爸爸、妈妈每天除了忙于店里的生意之外,还担心小斌的学习。小斌平时不爱读书,上课经常走神、发呆、不认真听老师讲课,做作业时又磨磨蹭蹭。为了让小斌能够跟上班级的学习,爸爸、妈妈每天挤出时间检查和
A:______you______thefootballmatchyesterday?B:Yes,Idid.Itwasgreat.
Naturallytheyoungaremoreinclinedtonoveltythantheireldersanditisintheirspeech,asitalwayswas,thatmostofthe
IfthegoalofanengineeringcampatKetteringUniversityistogethighschoolgirlsinterestedinmath-andscience-relatedc
最新回复
(
0
)