首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有以下程序: Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox("请输入一个整数") y=Val(y) If y Mod 5=0 Then a=a+y
设有以下程序: Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox("请输入一个整数") y=Val(y) If y Mod 5=0 Then a=a+y
admin
2020-07-22
72
问题
设有以下程序:
Private Sub Form_Click()
x=50
For i=1 To 4
y=InputBox("请输入一个整数")
y=Val(y)
If y 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
解析
程序的作用是输入的数如果是5的倍数就累加,如果不是就每次加50或与上次是5的倍数的那个数相累加。因此最终a的值是15+15+35+35=100。
转载请注明原文地址:https://kaotiyun.com/show/GtHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的输出结果是x=5Printx+1;x+1
设有如下程序:PrivateSubsV(ByValmAsInteger,nAsInteger)m=m*2:n=n-5:Printm:nEndSubPrivateSubFormClick()
以下能够设置控件焦点的方法是
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivateSubCommandlClick()Dima(10)AsInteger,iAsIntegerRandomizeFoxi=1To10a(i)=I
编写如下程序:PrivateSubCommandl_Click()DimnAsInteger:StaticsAsIntegerForn=1To3s=s+nNextPrin
现有如下一段程序:OptionBase1PrivateSubCornmand1_Click()Dimaa=Array(3,5,7,9):x=1Fori=4To1Step-1s=s+a(i)*x:x=x*1
设有以下过程:PrivateSubproe(xAsInteger,OptionalYAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
在考生文件夹下有一个工程文件sjt5.vbp,在该工程文件中已经定义了一个学生记录类型数据StudType。有三个标题分别为“学号”、“姓名”和“平均分”的标签;三个初始文本为空,用于接收学号、姓名和平均分的文本框Text1、Text2和Text3;一个用
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为( )。
以下能够正常结束循环操作的程序段是
随机试题
同属于一个音位的不同音素叫_______。
出租人就同一房屋订立数份租赁合同,在合同均有效的情况下,承租人均主张履行合同的,人民法院确定履行合同的承租人的顺序:(1)______;(2)______;(3)______。
注重人的独特性,主张人是一种自由的、理性的生物,具有个人发展的潜能,认为人的行为主要受自我意识的支配,要想充分了解人的行为,就必须考虑到人们都有一种指向个人成长的基本需要。持这种观点的是()
标志着党探索中国社会主义建设道路良好开端的是()
男,46岁,因反复呕吐8天入院,血清钠108mmol/L,脉搏120次/分,血压70/50mmHg。应诊断为
患者男性,58岁,头痛,呕吐2个月余。行颅脑MRI示:右额叶占位。后行开颅探查+肿瘤切除术,病检示“胶质母细胞瘤”。该患者诊断为胶质母细胞瘤,推荐的术后辅助治疗方案为
患者男性,36岁。1周前出现化脓性扁桃体炎,近1天,突然出现左下颌下肿物、剧痛,伴高热,查体:体温39℃,左下颌下肿物,直径2cm,红肿、压痛,中央可及波动感。考虑诊断是
黄芪建中汤是黄疸哪一证型的代表方剂
以下各项中不属于城市社会的研究方案的是()。
综合演练是按()划分的应急预案演练。
最新回复
(
0
)