首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮(Name属性为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dima(10)AsInterger,p(3)AsInterger K=5 For i=1To10 a(i)=i N
在窗体上画一个命令按钮(Name属性为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dima(10)AsInterger,p(3)AsInterger K=5 For i=1To10 a(i)=i N
admin
2020-07-22
31
问题
在窗体上画一个命令按钮(Name属性为Command1),然后编写如下事件过程:
Private Sub Command1_Click()
Dima(10)AsInterger,p(3)AsInterger
K=5
For i=1To10
a(i)=i
Next i
For i=1To3
p(i)=a(j*i)
Next i
For i=1To3
k=k+p(i)*2
Next i
Printk
End Sub
程序运行后,单击命令按钮,输出结果是( )。
选项
A、35
B、28
C、33
D、37
答案
C
解析
题中第一个循环功能是给数组a赋值,即a(1)=1、a(2)=2…:第二个循环功能是给数组p赋值,即p(1)=1、p(2)=4、p(3)=9;第三个循环是求K的值,即是将K值加上数组P所有元素的值,所以K=K+p(1)*2+p(2)*2+p(3)*2=33。
转载请注明原文地址:https://jikaoti.com/ti/GcS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
以下关于VB文件的叙述中,正确的是
设有如下程序:OptionBase()PrivateSubForm_Click()DimaDimiAsIntegera=Array(1,2,3,4,5,6,7,8,9)Fori=0To3P
在窗体上画一个命令按钮,然后编写如下代码:PrivateSubCommand1Click()DimMaxSize,NextChar,MyCharOpen“d:\temp\female.txt”ForInputAs#
下列关于菜单项的描述中,错误的是
(1)在考生文件夹下有一个工程文件sit3.vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮,然后单击“处理数据”按钮,将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框Ifistl中,如图3-23所示。在窗体
在考生文件夹中有一个工程文件sjt5.vbp,如图所示。运行程序时,从文件中读入7×7的矩阵数据并放入二维数组a中。单击“计算”命令按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果在标签lblFirst中显示;同时计算矩阵主对角线的元素之和,
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
为使文本框具有初始值"VB",在设计阶段正确的操作是
设树T的深度为4,其中度为1,2,3,4的结点个数分别为4,2,1,1。则T中的叶子结点数为
随机试题
患者,男性,36岁,急诊入院,昏迷,呼吸抑制,瞳孔缩小,血压下降,查体见骨瘦如柴,臂、臀多处注射痕,诊断为吸毒者,海洛因中毒,可用来鉴别诊断的药物是
A.IenjoyP.E.atschoolB.IlikebasketballC.Whatkindofmoviesdoyoulike,thenD.Becauseit’sexcitingE.It’sanact
A.Perthes试验B.Trendelenburg试验C.Pratt试验D.“5P”征测定交通静脉瓣膜功能的试验是
《联合国国际货物多式联运公约》是调整国际多式联运方面的国际公约,因此对多式联运经营人具有强制适用性。()
汽车制造厂生产的小轿车不需要缴纳消费税的是()。
科学发展观,第一要义是(),核心是以人为本,基本要求是全面协调可持续,根本方法是统筹兼顾。
在物业管理机构发生更迭时,你被委派组织接收项目工作,业主大会应移交的内容包括什么?
1965年5月在云南发现的(),生存于距今170万年前,是在我国境内最早活动的人类。
设A是n阶可逆方阵,将A的第i行和第j行对换后得到的矩阵记为B。证明B可逆;
ShouldSingle-SexEducationBeEliminated?[A]Whyisaneuroscientistheredebatingsingle-sexschooling?Honestly,Ihadnofix
最新回复
(
0
)