首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,编写如下事件过程: Private Sub Command1_Click() n=0 For i=0 To 10 X=2 * i-1 If X Mod 3=0 Then n=n+1
在窗体上画一个名称为Command1的命令按钮,编写如下事件过程: Private Sub Command1_Click() n=0 For i=0 To 10 X=2 * i-1 If X Mod 3=0 Then n=n+1
admin
2019-03-14
38
问题
在窗体上画一个名称为Command1的命令按钮,编写如下事件过程:
Private Sub Command1_Click()
n=0
For i=0 To 10
X=2 * i-1
If X Mod 3=0 Then n=n+1
Next i
Print n
End Sub
运行程序,单击命令按钮,则窗体上显示的是( )。
选项
A、1
B、3
C、5
D、7
答案
B
解析
Mod是取模运算符,即求运算两数相除的余数。每次循环中X的值分别是-1,1,3,5,7,9,11,13,15,17,19,其中与3求模为0的数有3、9、15共3个,因此n=n+1会执行3次,最终n=3。
转载请注明原文地址:https://jikaoti.com/ti/6Fm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签,其标题内容为“欢迎使用本系统”,标题文字字体和字号分别为“宋体”、“三号”,标签大小能根据标题内容自动调整,效果如图所示。程序执行时,窗体的最大化按钮不可用(如图所示),请设置
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。程序代码如下:Dimcolor(3)AsIntege
在窗体上画一个组合框,一个命令按钮和一个文本框,其名称分别为Combo1,Command1和Text1,然后编写如下事件过程:PrivateSubForm_Load() Combo1.AddItem"AAAAA" Combo1.AddI
设有如下事件过程:PrivateSubCommand1_Click() Fori=1To5 j=i Do Print"*" j=j-1 LoopUntilj=0 NextiEnd
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommandl——Click()Dima(10)AsInteger,maxAsIntegerFork=1To10a(k)=InputBox(“
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为
以下关于控件的叙述中,正确的是
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n一1)/2的排序方法是
一个工作人员可使用多台计算机,而一台计算机被多个人使用,则实体工作人员与实体计算机之间的联系是
下面的数写成普通十进制数是()。2.65358979335278D-6
随机试题
一成年女性,左肘关节以下包括左前臂和左手,被开水烫伤,烧伤面积
爆炸性气体环境应根据爆炸性气体混合物出现的频繁程度和持续时间分为()个区域等级。
关于不动产信托与不动产投资集合资金信托计划的比较,下列说法错误的是( )。
某公司4月30日的银行存款日记账账面余额为581500元,银行对账单余额为601500元。经逐笔核对,发现有以下未达账项:(1)29日银行代企业收款41000元,企业尚未收到收款通知;(2)30日银行代付电费2500元,企业尚未收到付款通知;(3)30日
简述审计机关的权限。
委托实施行政许可,受委托的主体可为()。①行政机关②具有管理公共事务职能的组织③其他社会团体
根据下列资料,回答111—115题。2012—2016年,S省城镇化水平快速提高。2016年年末,S省常住人口3681.61万人,其中居住在城镇区域的常住人口2069.63万人,较2015年年末增加53.26万人;城镇化率达56.21%,居全国第16位,
简述教学工作的基本环节。
设f(x)在(0,+∞)内连续且单调减少.证明:f(x)dx≤f(k)≤f(1)+f(x)dx.
Aperson’shomeisasmuchareflectionofhispersonalityastheclotheshewears,thefoodheeatsandthefriendswithwhomh
最新回复
(
0
)