首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有名称为Command1的命令按钮,其事件过程如下: Option Base1 Private Sub Command1_Click() Dim a Dim b(10)As Integer a=Array
窗体上有名称为Command1的命令按钮,其事件过程如下: Option Base1 Private Sub Command1_Click() Dim a Dim b(10)As Integer a=Array
admin
2019-03-08
73
问题
窗体上有名称为Command1的命令按钮,其事件过程如下:
Option Base1
Private Sub Command1_Click()
Dim a
Dim b(10)As Integer
a=Array(2,4,7,3,9,6)
For i=LBound(a)To UBound(a)
b(i)=a(i)+i
Sum=Sum+b(i)
Next i
Print Sum
End Sub
运行程序,单击命令按钮时,窗体上显示的是
选项
A、44
B、46
C、50
D、52
答案
D
解析
本题中使用了一个循环为b数组进行赋值,每个元素的值是对应a数组元素的值加上下标的值。因此b数组中的元素为(3、6、10、7、14、12),然后累加和为52。
转载请注明原文地址:https://www.kaotiyun.com/show/yaFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体Form1上画一个名称为Command1的命令按钮,编写如下程序代码:PrivateTypestusnAsString*20classAsString*20EndTypePrivateSubCommand1
下列叙述中正确的是
设有如下事件过程:PrivateSubForm_Click() Sum=0 Fork=1To3 Ifk
命令按钮Command1的事件过程如下:PrivateSubCommand1_Click() Dimarr(5,5)AsInteger DimiAsInteger,jAsInteger Fori=1To4
在考生文件央下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
窗体上有一个名称为List1的列表框控件,其List属性值为一组花卉的名称。一个名称为Picture1的图片框。窗体外观如图所示。程序代码如下:PrivateSubList1_Click()Fori=0ToList1.Listcou
通用对话框控件文件建立对话框时,可以通过一个属性指定对话框的标题,这个属性是
以下叙述中错误的是
设a=10,b=4,c=5,d=7,表达式a>bAndNotc
设有表达式:A=IIf(x>y,"go","back")。以下与该表达式具有相同功能的语句是
随机试题
男性,50岁,反复发作右第一跖趾关节内侧红肿2年,这次发作疼痛较剧烈,不能行走,有时伴发热,38℃左右,持续l周缓解,查体发现右足有足癣,有轻度外翻。其初步诊断应考虑为
梅毒性主动脉瘤的临床表现有
A.黄绿色B.脓性浑浊C.金黄色D.无色透明E.黄色胎儿窘迫时羊水呈
A.手足抽搐B.手足肿胀C.手足麻木D.足软软弱E.手足不遂痿证可见
在风险管理决策中,在损失概率能够确定的情形下,决策原则有()。
课堂教学应该尽可能地增强学生学习的内部动机,怎样才能增强学生的内部动机呢?试述增强学生内部动机的几点建议。
下列给定程序中,函数fun的功能是:比较两个字符串,将长的字符串的首地址作为函数值返回。请改正程序中的错误,使它能得出正确的结果。注意:部分源程序在文件MODIl,C中,不要改动main函数,不得增行或删行,也不得更改程序的结构!
在考生文件夹下,打开文档WORD2.DOCX,按照要求完成下列操作并以该文件名(WORD2.DOCX)保存文档。分别合并第l、2行第1列单元格,第1行第2、3、4列单元格和第1、2行第5列单元格;在“合计(万台)”列的相应单元格中,计算并填入一季度该产
ShipAccidentofftheSeaofJapan,NoCasualtiesTo:WilliamJohnFrom:JohnC.MartinDate:August22,2003Yesterdayafter
TheybothlikedLondonbecausetheycouldspeakEnglishatabarorarestaurant.Theplacewherepeoplecangetupandsayany
最新回复
(
0
)