首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1))
在窗体上有一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1))
admin
2013-01-23
31
问题
在窗体上有一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next For Each b In a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是
选项
A、ABCDE
B、1 2 3 4 5
C、abcde
D、出错信息
答案
A
解析
本题考查数组的赋值操作及For Each…In循环语句。本程序段首先定义了一个一维数组变量,然后用For循环为其赋值,Asc()函数的作用是返回字符的ASCII码,字符“A”的ASCII码为65,Chr()函数的作用是将ASCII码值变为相应的字符,而“a(i)=Chr(Ase(“A”)+(i-1))”的作用是将每次比原来大1的ASCII码值变为字符赋给a,所以a的元素是“A,B,C,D,E”。For Each…In用于输出a中元素的值,所以正确答案是选项A) 。
转载请注明原文地址:https://kaotiyun.com/show/60hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:PrivateSubForm_Click()Text1.Text=“VB程序设计”EndSubPrivmeSubTex
单击窗口时,下列程序代码的执行结果为 PrivateSubForm_Click()Text1EndSubPrivateSubText(xAsInteger)
编写了如下事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAslnteger)If(ButtonAnd3)=3ThenPrint“A
有如下程序段,该程序段执行完后,共执行循环的次数是PrivateSubCommand1_Click()Tota1=0Counter=1DoPri
用来设置窗体背景图片的属性是
在3种不同类型的组合框中,只能选择而不能输入数据的组合框是【】。
在VisualBasic中,用于文件复制的命令是【】。
假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表框Dirl,如图20-10所示。当改变了驱动器列表框中的驱动器时,希望在目录列表框中显示相应驱动器的目录结构,可在Drive1_Change事件中输入语句【】。
VisualBasic预先设置好的,能够被对象识别的动作是
假设有程序代码如下:Form1.Caption="Open",这里Form1、Caption和Open分别代表______。
随机试题
法律认识错误也称违法性错误,是指行为人对自己的行为在法律上是否构成犯罪、构成何种犯罪或者应受怎样的刑事处罚有不正确的理解。这种不正确的理解是由不知法律规定或是误解法律所引起的。对于法律认识错误,原则上一般不影响定罪量刑。根据上述定义,下列属于法律认识错误
女性,20岁,持续高热1周。入院后查外周血白细胞为2.9乘以十的九次方/L,中性70%,血培养:伤寒杆菌。该病人属于
患者,男,16岁,口服地西泮自杀,家人发现时已昏迷,急诊来院。以下护理措施不正确的是
房地产抵押合同,属于()。
易受雨水冲刷的土质边坡和易风化的岩石边坡进行封面防护采用的形式是()。
丙公司所得税税率为25%。该公司11月份的利润表如下表所示:丙公司12月发生以下经济业务:(1)对外销售商品2000件,单价55元,增值税税率17%,已办妥银行托收手续。(2)经批准处理财产清查中的账外设备一台,估计原价8000元,七成新。(3)
计算机的外存储器主要有软盘、()、光盘和优盘。
下列表述正确的是()。
一、注意事项1.申论考试是对应考者阅读理解能力、综合分析能力、提出和解决问题能力、文字表达能力的测试。2.仔细阅读给定资料,按照后面提出的“申论要求”依次作答。二、给定资料1.回扣是指卖方从买方支付的商品款项中按一定比例返还给
将E-R图转换为关系模式时,实体和联系都可以表示为
最新回复
(
0
)