首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,其名称为Text1,然后编写如下程序: Option Base 1 Private Sub Form_Click()Dim Arc(10)As Integer For i=6 To 10 Arr(i)=i-3 Ne
在窗体上画一个文本框,其名称为Text1,然后编写如下程序: Option Base 1 Private Sub Form_Click()Dim Arc(10)As Integer For i=6 To 10 Arr(i)=i-3 Ne
admin
2017-06-21
63
问题
在窗体上画一个文本框,其名称为Text1,然后编写如下程序:
Option Base 1
Private Sub Form_Click()Dim Arc(10)As Integer
For i=6 To 10
Arr(i)=i-3
Next i
Text1.Text=Str(Arr(6)+Art(Arc(6)+Arr(10)))
End Sub
程序运行后,单击窗体,在文本框中显示的内容是
选项
A、7
B、8
C、9
D、10
答案
D
解析
本题中在循环中为数组部分元素赋值,把Arr(6)~Arr(10)分别赋值为3~7,其余的数组元素保持默认值0;最终输出的是Arr(6)+Arr(Arr(6)+Arr(10))即Arr(6)+Arr(10)=10。
转载请注明原文地址:https://kaotiyun.com/show/rPGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个组合框,编写下列程序:PrivateSubCommand1_Click()Combo1.RemoveItem2EndsubPrivateSubformLoad()Combo1.AddItem“上海”
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整()。PrivateTypeAngKAsIntegerSinx
在窗体上绘制一个名称为Commandl的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommandl_Click()DimcAsInteger,dAsIntegerd=0
设当前日期为2008年4月28日,星期一,则执行下面语句后的输出结果为______。PrintDay(Now)PrintMonth(Now)PrintYear(Now)PrintWeekday(Now)
下列叙述中正确的是
在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在下列横线处合适的语句是()。PrivateSubForm_Cli
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
下列可作为VisualBasic变量名的是______。
下面不属于软件工程的3个要素是
随机试题
良好的曲轴箱通风装置在发动机正常工作时,曲轴箱内应()。
目前,用于全身治疗作用的栓剂主要是
投资价值与市场价值的评估方法可能相同,但其中参数选取的立场可能不同。如都可以采用收益法———价值是未来净收益的现值之和,但在评估市场价值时,收益法中的折现率是与该房地产的风险程度相对应的社会一般的收益率,而在评估投资价值时,该折现率是投资者所要求的最低收益
下列地理空间信息中,导航电子地图制作过程可以采集的内容是()。
一般认为,城镇的()可以用来测量城镇的中心性,因为城镇大多是多功能的,也是一个城镇在区域中的地位的综合反映。
下列不属于简支梁桥施工中常见质量控制点的是()。
空间里两两距离相等的不同点最多有().
2012年12月,甲公司与钱某、于某合伙组建乙合伙企业,甲公司出资400万元,钱某和于某以劳务出资,甲公司不负责乙合伙企业的经营,仅以出资额为限承担合伙责任。钱某和于某负责乙合伙企业的经营,并用自己的全部财产对公司债务负责,钱某为执行合伙人。2013年4
将考生文件夹下JIN文件夹中的SUN.C文件复制到考生文件夹下的MQPA文件夹中。
Youwillhearfivedifferentpeopletalkingaboutajob-huntinglecturetheyhavejustattended.Foreachextractthereare
最新回复
(
0
)