首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Private Sub Command1_Click() a=3:s=0 For k=1 To 5 s=s+a Mod k:a=a+k Next k Print s End Sub
有下面程序代码: Private Sub Command1_Click() a=3:s=0 For k=1 To 5 s=s+a Mod k:a=a+k Next k Print s End Sub
admin
2020-04-18
63
问题
有下面程序代码:
Private Sub Command1_Click()
a=3:s=0
For k=1 To 5
s=s+a Mod k:a=a+k
Next k
Print s
End Sub
程序运行后,单击命令按钮Command1,输出结果是
选项
A、15
B、13
C、4
D、1
答案
C
解析
在:For循环中k的值从1变化到5,在每次循环中为累加和变量s累加上a Mod k的值然后令a自加k,故此整个循环过程中s=0+0+0+1+3=4。
转载请注明原文地址:https://kaotiyun.com/show/mlTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要建立一个随机文件记录学生的信息,如下定义的学生记录类型,由学号、姓名和5门课程成绩(百分制)组成,下列的定义正确的是()。
语句PrintSgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是()。
以下关于函数过程的叙述中,正确的是
默认情况下,下面声明的数组的元素个数是Dima(5,一2To2)
编写如下程序:PrivateSubCommand1_Click()DimnumAsInteger,kAsInteger,nAsIntegerhum=InputBox(”请输入一个正整数:”)k=
下列可作为VisualBasic变量名的是
设有如下变量声明语句:Dima,bAsBolean则下面叙述中正确的是
关于KevPress事件,以下叙述中正确的是
窗体上有1个名称为Text1的文本框,1个名称为Timer1的计时器,且己在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Text1中显示一次当前时间。Priva
某二叉树的前序序列为ABCD,中序序列为DCBA,则后序序列为
随机试题
每年年终,太平洋公司都会给在职员工发放年终奖金,公司会计小任负责计算工资奖金的个人所得税并为每位员工制作工资条。按照下列要求完成工资奖金的计算以及工资条的制作:根据工作表“年终奖金”中的数据,在“12月工资表”中依次输入每个员工的“应发年终奖金”、“奖
非居民企业在中国境内未设立机构、场所而来源于中国境内的所得,或者虽设立机构、场所但取得的所得与其所设机构、场所没有实际联系的,税率为20%。()
预防手术后尿潴留,下列错误的是【】
下列选项中,属于限制行为能力人的是()。
阅读下面材料,回答问题。11岁的时候,她上六年级,成绩并不好,在班上显得很普通。在临近期中考试时,她的同班好友悄悄地把她拉过来说:“告诉你一个好消息,我有这次考试的卷子。”原来,离她们学校不远的另一个学校已经考过了,而且考试的卷是一样的。那是一张
无论从事何种产业,只要专注于一种产品、一个细分的市场、一个特定的领域,都有可能成就一番大事业。在一个巨大的市场中,哪怕开发一种极其个性化的产品,也不怕没有足够的客户。著名经济学家保罗.克鲁格曼说过,巨大的市场会使产品多样化,多样化更接近个性化,从而就更具有
某公司A商品利润为定价的30%,前年销量为10万个:B商品利润为定价的40%,前年销量为4万个。去年公司将A、B商品捆绑销售,售价为前年两种商品定价之和的90%,共卖出8万套,总利润比前年增加了20%。如两种商品去年的成本与前年相同,则前年A商品的定价为B
Experiencedbaseballfielderscantellhowfaraballisgoingtotraveljustbylisteningtothecrackofthebat.Iftheydidn
Ourape-menforefathershadnoobviousnaturalweaponsinthestrugglefor【C1】______intheopen.Theyhadneitherthepowerfult
Ajarcontainsonlyred,yellow,andorangemarbles.Ifthereare3red,5yellow,and4orangemarbles,and3marblesarechose
最新回复
(
0
)