首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有以下程序: 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
2015-10-23
51
问题
设有以下程序:
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/ITLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在名为Form1的窗体上绘制两个图片框,名称分别为Pic1和Pie2,高度均为1900,宽度均为1700,通过属性窗口把图片文件pic1.bmp放入Pic1中,把图片文件pic2.jpg放入Pic2中;再绘制一个命令按钮,名为Cmd1,标题为Change
在考生文件夹中有文件execise66.vbp及其窗体文件execise66.frm。在名为Form1的窗体上建立一个名称为Text1的文本框;两个复选框,名称分别为Chk1和Chk2,标题分别为“足球协会”和“网络协会”。要求程序运行后,如果只选
在考生文件夹,扣有工程文件execise52.vbp及其窗体文件execise52.frm。在名为Form1的窗体有3个复选框,名称分别为Chk1、Chk2和Chk3,标题依次为“数学”、“英语”和“政治”;还有一个名为Cmd1的命令按钮,标题为“显示”。
窗体上有一个名称为List1的列表框,一个名称为Picture1的图片框。FormLoad事件过程的作用是,把Data1.txt文件中的物品名称添加到列表框中。运行程序,当双击列表框中的物品名称时,可以把该物品对应的图片显示在图片框中,如图所示,以下是类
打开“工程窗口”的方法之一是按______组合键。
软件生命周期中所花费用最多的阶段是
下面四个语句中,输出逻辑为“真”的是()。
数据结构分为逻辑结构与存储结构,线性链表属于【】。
将E-R图转换到关系模式时,实体与实体间的联系可以表示成()。
以下程序代码实现单击命令按钮Commandl时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。Dimalt(1To20)Fori=1To20arr(i)=NextiS
随机试题
学校作为整个社会体系的重要组成部分,在培养国家和民族的未来人才中具有重要的作用。根据各级各类学校任务确定的对所培养的人的特殊要求叫作()。
Infootball,nothingismorevaluablethanthewonderkid.Managersspendplentyoftheirtimesearchingfortheseraregems(室石)
如果
用于治疗热毒疮疡,咽喉肿痛,药食中毒的药物是
以下哪条不是促进扩散的特征
一、背景某机电安装公司承建一个生活小区室外热力管网工程安装任务。施工范围是由市政热力管网至各居民住宅楼号室外1m,管线是不通行地沟敷设。该项目的所有施工内容完毕,并与市政热力管网和各楼号热力管网接通后,在进行竣工验收的同时,项目经理部组织整理竣工
苏联早期领导人布哈林曾说:“我们过去以为可以一举消灭市场关系.而实际情况却表明,我们恰恰要通过市场关系走向社会主义。”这一思想符合苏俄(联)实行的经济政策是()。
当事人对于买卖合同风险转移没有约定的,标的物毁损、灭失的风险的转移时间是()。
设f(x),g(x)在[a,b]上连续,在(a,b)内可导,证明:存在ξ∈(a,b),使得
HowAdvertisementIsDone?A)Whenwechooseawordwedomorethangiveinformation;wealsoexpressourfeelingsaboutwha
最新回复
(
0
)