首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮(Name属性为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dim a(10)As Interger,p(3)As Interger K=5 F
在窗体上画一个命令按钮(Name属性为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dim a(10)As Interger,p(3)As Interger K=5 F
admin
2017-11-27
63
问题
在窗体上画一个命令按钮(Name属性为Command1),然后编写如下事件过程:
Private Sub Command1_Click()
Dim a(10)As Interger,p(3)As Interger
K=5
For i=l TO 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*j)
Next i
For i=1 To 3
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://www.kaotiyun.com/show/m5Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。PrivateSubForm_Click()StaticxAsIntegerClsPrin
下面程序是由鼠标事件在窗体上画图,如果按下鼠标可以画图,双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量:DimPaintStartAsBoolean编写如下事件过程:PrivateSubForm_Load()Dr
设窗体中有一个文本框Textl,若在程序中执行了Textl.SetFocus,则触发
执行如下语句:a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)将显示一个对话框,在对话框的输入区中显示的信息是______。
下列描述错误的是()。
函数过程F1的功能是:如果参数a为奇数,则返回值为1,否则返回值为0。以下能正确实现所述功能的代码的是()。
下列关于栈的叙述中正确的是______。
如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是______。
希尔排序法属于哪一种类型的排序法______。
随机试题
一患者吞咽困难两月余,最好做哪项检查
某马场病马常躁动不安、不时摇头,但眼睛尚透明清亮,且多为单眼发病。重症者眼结膜发红,患眼羞明流泪,眼角有眼屎,角膜混浊,白翳遮眼,视力减退,甚至失明。将患马牵至光亮处,观察眼房可见一丝状虫体在眼内游动。该病可确诊为()。
治风湿热痹、关节红肿者尤为适宜的药物是
城市规划编制部门的城市规划师区别于其他专业技术人员或专家的重要方面是()
甲企业采用融资租赁方式租入设备一台。租赁合同主要内容:(1)该设备租赁期为5年,每年支付租金5万元;(2)或有租金4万元;(3)履约成本3万元;(4)承租人有关的第三方担保的资产余值2万元。甲企业该设备的最低租赁付款额为()万元。
阅读《丑小鸭》的教学实录片段,回答问题。师:相信“丑小鸭变成美丽的白天鹅”这个故事大家都不陌生,但是老师希望今天大家能够再发散思维想一想,从这个故事中你们都能得到什么样的启发呢?生:要相信自己,不要妄自菲薄,就像丑小鸭完全没有必要觉得自
两数相加,一个加数增加6,另一个加数减少8,它们的和起什么变化?
A、 B、 C、 A由“天上有只鸟。”可知图A符合句意。关键要听懂birdinthesky。
Lookingbackonmychildhood,Iamconvincedthatnaturalistsarebornandnotmade.Althoughwewerebroughtupinthesameway
GrandCanyonHowwastheGrandCanyonformed?Thetruthisthatnooneknowsforsurethoughtherearesomeprettygoodguesses,
最新回复
(
0
)