VB考试题库十五套13

一、判断题１、移动框架时框架内控件也跟随移动，因此框架内控件的Ｌｅｆｔ和Ｔｏｐ属性值也随之改变。

对错错误参考答案：错２、Ｆｏｒ／Ｎｅｘｔ语句中，若循环变量的初值大于终值，Ｓｔｅｐ缺省，则为死循环。

对错错误参考答案：错３、数组作为参数，传递的是地址数据。

对错错误参考答案：对４、如果ｘ、ｙ、ｚ是３个数值型变量，那么这３个变量的积的ＶＢ表达式可以写成ｘｙｚ。

对错错误参考答案：错５、内部函数是系统预定义的函数。

对错错误参考答案：对６、在ＶＢ中，对象的数据被称为属性。

对注意：在阅卷前请先保存。

ＶＢ程序设计上机考试Test Service Solution 准考证号：12X2A0101VBP 姓名：练习001IP ：192.168.102.1交卷帮助错错误参考答案：对７、目录列表框当前目录的ＬｉｓｔＩｎｄｅｘ为０，其子目录的ＬｉｓｔＩｎｄｅｘ属性再按顺序往下编号。

对错错误参考答案：错８、改变图形对象的坐标系可以用ＳｃａｌｅＭｏｄｅ方法。

对错错误参考答案：错９、只要设置命令按钮的ｂａｃｋｃｏｌｏｒ为蓝色，按钮就一定可以变成蓝色按钮。

对错错误参考答案：错１０、表达式＂１２３＂＋＂１＂的计算结果是＂１２３１＂。

对错错误参考答案：对二、单选题１、ＶｉｓｕａｌＢａｓｉｃ坐标系的默认单位是＿＿＿＿＿＿。

Ａ、像素Ｂ、缇Ｃ、毫米Ｄ、厘米错误参考答案：Ｂ２、若ｉ的初值为５，则ＰｒｉｎｔＩ输出是＿＿＿＿＿＿。

ＤｏＷｈｉｌｅｉ＜＝１７ｉ＝ｉ＋３ＬｏｏｐＰｒｉｎｔｉＡ、１４Ｂ、１７Ｃ、２０Ｄ、２３错误参考答案：Ｃ３、下列关于ＳｅｌｅｃｔＣａｓｅ的叙述中，错误的是＿＿＿＿＿＿。

Ａ、Ｃａｓｅ１０Ｔｏ１００表示判断Ｉｓ是否介于１０与１００之间Ｂ、Ｃａｓｅ＂ａｂｃ＂，＂ＡＢＣ＂表示判断Ｉｓ是否和＂ａｂｃ＂、＂ＡＢＣ＂两个字符串中的一个相同Ｃ、Ｃａｓｅ＂Ｘ＂表示判断Ｉｓ是否为大写字母ＸＤ、Ｃａｓｅ－７，０，１００表示判断Ｉｓ是否等于字符串＂－７，０，１００＂错误参考答案：Ｄ４、以下关于表达式的运算顺序，错误的说法是＿＿＿＿＿＿。

Ａ、最先进行算术运算Ｂ、最后进行逻辑运算Ｃ、算术运算符的优先级高于关系运算符Ｄ、取负运算的优先级高于幂运算错误参考答案：Ｄ５、求一个两位正整数个位上的数字的表达式是＿＿＿＿＿＿。

Ａ、ＮＭｏｄ１０Ｂ、Ｎ＼１０Ｃ、Ｉｎｔ（Ｎ／１０）Ｄ、（Ｎ－ＮＭｏｄ１０）／１０错误参考答案：Ａ６、在打开某窗体时，初始化该窗体中的各控件，可选用＿＿＿＿＿＿事件。

Ａ、ＳｈｏｗＢ、ＵｎＬｏａｄＣ、ＩｎｉｔｉａｌｉｚｅＤ、Ｃｌｉｃｋ错误参考答案：Ｃ７、为设置盘驱动器的当前盘是ｃ盘，下列哪个语句是正确的＿＿＿＿＿＿＿＿＿。

Ａ、Ｄｒｉｖｅ１．Ｄｒｉｖｅ＝ｃ：＼Ｂ、Ｄｒｉｖｅ１．Ｄｒｉｖｅ＝ｃ：＼Ｃ、Ｄｒｉｖｅ１．Ｌｉｓｔ（０）＝＂ｃ：＼＂Ｄ、Ｄｒｉｖｅ１．Ｌｉｓｔ（Ｄｒｉｖｅ１．ＬｉｓｔＩｎｄｅｘ）＝＂ｃ：＼＂错误参考答案：Ａ８、ＰＳｅｔ方法设置指定坐标点处的＿＿＿＿＿＿，是最简单的图形操作。

Ａ、形状Ｂ、大小Ｃ、线宽Ｄ、颜色错误参考答案：Ｄ９、Ｌｉｓｔ１．Ｃｌｅａｒ中的Ｃｌｅａｒ是＿＿＿＿＿＿。

Ａ、方法Ｂ、对象Ｃ、属性Ｄ、事件错误参考答案：Ａ１０、在图片框中加一幅图片（从磁盘装入）可用＿＿＿＿＿＿函数来实现。

Ａ、ＬｏａｄＰｉｃｔｕｒｅＢ、ＬｏａｄＣ、ＰｉｃｔｕｒｅＤ、Ｃｉｒｃｌｅ错误参考答案：Ａ三、程序填空题１、【程序说明】以下程序运行时，打印输出一个如图所示的上下三角形图案。

ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）ＤｉｍＩＡｓＩｎｔｅｇｅｒ，ｊＡｓＩｎｔｅｇｅｒＦｏｒｍ１．ＣｌｓＦｏｒＩ＝１Ｔｏ１１ＩｆＩ＜＝－－－－１－－－－ＴｈｅｎＰｒｉｎｔＳｐｃ（Ｉ－１）；Ｆｏｒｊ＝１Ｔｏ２＊（７－Ｉ）－１Ｐｒｉｎｔ＂＊＂；Ｎｅｘｔｊ－－－－２－－－－Ｅｌｓｅ＇后６行为正三角ＰｒｉｎｔＳｐｃ（１１－Ｉ）；Ｆｏｒｊ＝１Ｔｏ２＊（Ｉ－５）－１－－－－３－－－－ＮｅｘｔｊＰｒｉｎｔＥｎｄＩｆＮｅｘｔＩＥｎｄＳｕｂ（１）请在左边文本框当中输入正确答案。

错误参考答案：６或者５（２）请在左边文本框当中输入正确答案。

错误参考答案：Ｐｒｉｎｔ（３）请在左边文本框当中输入正确答案。

错误参考答案：Ｐｒｉｎｔ＂＊＂；２、【程序说明】本程序是利用计时器控件来实现文字颜色在窗体有规律变化。

最初的标签文字颜色是Ｑｂｃｏｌｏｒ（０），过一秒后变成Ｑｂｃｏｌｏｒ（２）变成Ｑｂｃｏｌｏｒ（１５），再变成Ｑｂｃｏｌｏｒ（０）。

直至按停止按钮ｃｍｄ１，窗体停止变化。

ＤｉｍｓａｓｉｎｔｅｇｅｒＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）Ｌａｂｅｌ１．ｃａｐｔｉｏｎ＝中国北京：ｓ＝０Ｔｉｍｅｒ１．ｅｎａｂｌｅｄ＝ｔｒｕｅ：Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝－－－－１－－－－Ｌａｂｅｌ１．ｆｏｒｅｃｏｌｏｒ＝Ｑｂｃｏｌｏｒ（ｓ）ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＴｉｍｅｒ１＿Ｔｉｍｅｒ（）ｓ＝－－－－２－－－－Ｌａｂｅｌ１．ｆｏｒｅｃｏｌｏｒ＝Ｑｂｃｏｌｏｒ（ｓ）Ｉｆ－－－－３－－－－Ｔｈｅｎｓ＝０ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂｃｍｄ１＿ｃｌｉｃｋ（）停止按钮－－－－４－－－－＝ｆａｌｓｅＥｎｄＳｕｂ（１）请在左边文本框当中输入正确答案。

错误参考答案：１０００（２）请在左边文本框当中输入正确答案。

错误参考答案：Ｓ＋１或者１＋Ｓ（３）请在左边文本框当中输入正确答案。

错误参考答案：Ｓ＝１５（４）请在左边文本框当中输入正确答案。

错误参考答案：Ｔｉｍｅｒ１．ｅｎａｂｌｅｄ３、【程序说明】在组合框中选择形状后，图片框中控件Ｓｈａｐｅ１的形状、填充样式和颜色均作相应变化。

程序运行时如下图ＰｒｉｖａｔｅＳｕｂＣｏｍｂｏ１＿Ｃｌｉｃｋ（）Ｓｈａｐｅ１．Ｓｈａｐｅ＝＝Ｃｏｍｂｏ１．Ｌｉｓｔ（－－－－１－－－－）Ｓｈａｐｅ１．ＦｉｌｌＣｏｌｏｒ＝ＱＢＣｏｌｏｒ（Ｉｎｔ（Ｒｎｄ＊１６））－－－－２－－－－＝Ｉｎｔ（Ｒｎｄ＊８）ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）ＤｉｍＩＡｓＩｎｔｅｇｅｒＦｏｒ－－－－３－－－－：Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍＳｔｒ（Ｉ）：ＮｅｘｔＩＥｎｄＳｕｂ（１）请在左边文本框当中输入正确答案。

错误参考答案：Ｃｏｍｂｏ１．ＬｉｓｔＩｎｄｅｘ（２）请在左边文本框当中输入正确答案。

错误参考答案：Ｓｈａｐｅ１．ＦｉｌｌＳｔｙｌｅ（３）请在左边文本框当中输入正确答案。

错误参考答案：ｉ＝０Ｔｏ５四、程序阅读题１、写出程序运行时单击窗体后，在窗体上出现的结果。

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｃｌｉｃｋ（）ＤｉｍｉＡｓＩｎｔｅｇｅｒ，ｘＡｓＳｉｎｇｌｅ，ｙＡｓＳｉｎｇｌｅＦｏｒｍ１．Ｓｃａｌｅ（－３００，２００）－（３００，－２００）Ｆｏｒｉ＝１Ｔｏ１００ｘ＝３００＊Ｒｎｄｙ＝２００＊ＲｎｄＬｉｎｅ（０，０）－（ｘ，ｙ），ＲＧＢ（Ｉｎｔ（Ｒｎｄ＊２５６），Ｉｎｔ（Ｒｎｄ＊２５６），Ｉｎｔ（Ｒｎｄ＊２５６））ＮｅｘｔｉＥｎｄＳｕｂ（１）请在左边文本框当中写出正确的答案。

Ａ、Ｂ、Ｃ、Ｄ、错误参考答案：Ｄ２、写出程序运行时单击窗体后，ａ１．ｄａｔ文件的结果。

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｃｌｉｃｋ（）ＤｉｍｉＡｓＩｎｔｅｇｅｒ，ｓＡｓＩｎｔｅｇｅｒｓ＝０Ｏｐｅｎ＂ａ１．ｔｘｔ＂ＦｏｒＯｕｔｐｕｔＡｓ＃１Ｆｏｒｉ＝１Ｔｏ５ｓ＝ｓ＋ｉＰｒｉｎｔ＃１，ｓ；ＮｅｘｔｉＣｌｏｓｅ＃１ＥｎｄＳｕｂ（１）请在左边文本框当中写出正确的答案。

Ａ、１２３４５Ｂ、１３６１０１５Ｃ、１５Ｄ、３５错误参考答案：Ｂ３、请写出鼠标单击命令按钮２后窗体上的结果。

文本框初始内容为空。

ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）ＤｉｍｉＡｓＩｎｔｅｇｅｒＦｏｒｉ＝１Ｔｏ５Ｔｅｘｔ１．Ｔｅｘｔ＝Ｔｅｘｔ１．Ｔｅｘｔ＋Ｓｔｒ（ｉ）ＮｅｘｔｉＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ２＿Ｃｌｉｃｋ（）ＤｉｍｉＡｓＩｎｔｅｇｅｒＦｏｒｉ＝１Ｔｏ５Ｔｅｘｔ１．Ｔｅｘｔ＝Ｔｅｘｔ１．Ｔｅｘｔ＋Ｃｈｒ（ｉ＋６４）ＮｅｘｔｉＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＴｅｘｔ１＿Ｃｈａｎｇｅ（）ＰｒｉｎｔＴｅｘｔ１．ＴｅｘｔＥｎｄＳｕｂ（１）请在左边文本框当中写出正确的答案。

Ａ、１１２１２３１２３４１２３４５Ｂ、ＡＡＢＡＢＣＡＢＣＤＡＢＣＤＥＣ、１２３４５Ｄ、ＡＢＣＤＥ错误参考答案：Ｂ五、程序设计题１、编写一个函数，其功能是求Σｎ。

参考答案：ＰｒｉｖａｔｅＦｕｎｃｔｉｏｎｓｕｍ（ｎＡｓＩｎｔｅｇｅｒ）ＡｓＳｉｎｇｌｅＤｉｍＩａｓｉｎｔｅｇｅｒｓｕｍ＝０Ｆｏｒｉ＝１Ｔｏｎｓｕｍ＝ｓｕｍ＋ｉＮｅｘｔｉＥｎｄＦｕｎｃｔｉｏｎ２、编制Ｆｏｒｍ＿Ｃｌｉｃｋ事件过程，单击窗体后可以将坐标原点设置到窗体的中心位置（保持单位长度不变），前窗体所能容纳的最大的红、黄、蓝、绿各占１／４的圆饼图，其中红、黄、蓝、绿分别为四部分扇形的填充色参考答案：ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｃｌｉｃｋ（）ＤｉｍｘＡｓＳｉｎｇｌｅ，ｙＡｓＳｉｎｇｌｅ，ｒＡｓＳｉｎｇｌｅＣｏｎｓｔｐｉ＝３．１４１５９２６Ｆｏｒｍ１．Ｃｌｓｘ＝Ｆｏｒｍ１．ＳｃａｌｅＷｉｄｔｈ／２ｙ＝Ｆｏｒｍ１．ＳｃａｌｅＨｅｉｇｈｔ／２Ｆｏｒｍ１．Ｓｃａｌｅ（－ｘ，－ｙ）－（ｘ，ｙ）ｒ＝Ｆｏｒｍ１．ＳｃａｌｅＨｅｉｇｈｔＩｆＦｏｒｍ１．ＳｃａｌｅＨｅｉｇｈｔ＞Ｆｏｒｍ１．ＳｃａｌｅＷｉｄｔｈＴｈｅｎｒ＝Ｆｏｒｍ１．ＳｃａｌｅＷｉｄｔｈｒ＝ｒ／２Ｆｏｒｍ１．ＦｉｌｌＳｔｙｌｅ＝０Ｆｏｒｍ１．ＦｉｌｌＣｏｌｏｒ＝ｖｂＲｅｄＦｏｒｍ１．Ｃｉｒｃｌｅ（０，０），ｒ，，－２＊ｐｉ，－２＊ｐｉ／４Ｆｏｒｍ１．ＦｉｌｌＣｏｌｏｒ＝ｖｂＹｅｌｌｏｗＦｏｒｍ１．Ｃｉｒｃｌｅ（０，０），ｒ，，－２＊ｐｉ／４，－ｐｉＦｏｒｍ１．ＦｉｌｌＣｏｌｏｒ＝ｖｂＢｌｕｅＦｏｒｍ１．Ｃｉｒｃｌｅ（０，０），ｒ，，－ｐｉ，－６＊ｐｉ／４ 在Ｅ盘上建以自己【姓名＋准考证号】为名的文件夹，并在该文件夹下面根据设计题中小题个数建相应的子文件夹小题结果文件保存在相应的子文件夹中。

例如：考生张三的准考证号为０１００１０１，做设计题中的第１小题，文件保存位置是：Ｅ：＼张三０１００１０１＼设计题１题型导航Ｆｏｒｍ１．ＦｉｌｌＣｏｌｏｒ＝ｖｂＧｒｅｅｎＦｏｒｍ１．Ｃｉｒｃｌｅ（０，０），ｒ，，－６＊ｐｉ／４，－２＊ｐｉＥｎｄＳｕｂ３、设计一个界面如下图所示的点餐程序，运行时，用户选择了食物和份数以后，单击结帐按钮，将会参考答案：ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）＇结帐ＤｉｍｍＡｓＩｎｔｅｇｅｒ，ｉＡｓＩｎｔｅｇｅｒＤｉｍｄｊ（０Ｔｏ３）ＡｓＩｎｔｅｇｅｒｄｊ（０）＝１０：ｄｊ（１）＝５：ｄｊ（２）＝８：ｄｊ（３）＝３Ｆｏｒｉ＝０Ｔｏ３ＩｆＣｈｅｃｋ１（ｉ）．Ｖａｌｕｅ＝１ＡｎｄＶａｌ（Ｔｅｘｔ１（ｉ）．Ｔｅｘｔ）＜＞０Ｔｈｅｎｍ＝ｍ＋ｄｊ（ｉ）＊Ｖａｌ（Ｔｅｘｔ１（ｉ）．Ｔｅｘｔ）ＥｎｄＩｆＮｅｘｔｉＩｆｍ＜＞０ＴｈｅｎＬａｂｅｌ１．Ｃａｐｔｉｏｎ＝＂您共需付款：＂＆ｍ＆＂元。