一、判断题
１、移动框架时框架内控件也跟随移动，因此框架内控件的Ｌｅｆｔ和Ｔｏｐ属性值也随之改变。
对
错
错误参考答案：错
２、Ｆｏｒ／Ｎｅｘｔ语句中，若循环变量的初值大于终值，Ｓｔｅｐ缺省，则为死循环。
对
错
错误参考答案：错
３、数组作为参数，传递的是地址数据。
对
错
错误参考答案：对
４、如果ｘ、ｙ、ｚ是３个数值型变量，那么这３个变量的积的ＶＢ表达式可以写成ｘｙｚ。
对
错
错误参考答案：错
５、内部函数是系统预定义的函数。
对
错
错误参考答案：对
６、在ＶＢ中，对象的数据被称为属性。
对
注意：在阅卷前请先保存
。
ＶＢ程序设计上机考试
Test Service Solution 准考证号：12X2A0101VBP 姓名：练习001IP ：192.168.102.1交卷帮助
错
错误参考答案：对
７、目录列表框当前目录的ＬｉｓｔＩｎｄｅｘ为０，其子目录的ＬｉｓｔＩｎｄｅｘ属性再按顺序往下编号。
对
错
错误参考答案：错
８、改变图形对象的坐标系可以用ＳｃａｌｅＭｏｄｅ方法。
对
错
错误参考答案：错
９、只要设置命令按钮的ｂａｃｋｃｏｌｏｒ为蓝，按钮就一定可以变成蓝按钮。
对
错
错误参考答案：错
１０、表达式＂１２３＂＋＂１＂的计算结果是＂１２３１＂。
对
错
错误参考答案：对
二、单选题
１、ＶｉｓｕａｌＢａｓｉｃ坐标系的默认单位是＿＿＿＿＿＿。
Ａ、像素
Ｂ、缇
Ｃ、毫米
Ｄ、厘米
错误参考答案：Ｂ
２、若ｉ的初值为５，则ＰｒｉｎｔＩ输出是＿＿＿＿＿＿。
ＤｏＷｈｉｌｅｉ＜＝１７
ｉ＝ｉ＋３
Ｌｏｏｐ
Ｐｒｉｎｔｉ
Ａ、１４
Ｂ、１７
Ｃ、２０
Ｄ、２３
错误参考答案：Ｃ
３、下列关于ＳｅｌｅｃｔＣａｓｅ的叙述中，错误的是＿＿＿＿＿＿。
Ａ、Ｃａｓｅ１０Ｔｏ１００表示判断Ｉｓ是否介于１０与１００之间
Ｂ、Ｃａｓｅ＂ａｂｃ＂，＂ＡＢＣ＂表示判断Ｉｓ是否和＂ａｂｃ＂、＂ＡＢＣ＂两个字符串中的一个相同
Ｃ、Ｃａｓｅ＂Ｘ＂表示判断Ｉｓ是否为大写字母Ｘ
Ｄ、Ｃａｓｅ－７，０，１００表示判断Ｉｓ是否等于字符串＂－７，０，１００＂
错误参考答案：Ｄ
４、以下关于表达式的运算顺序，错误的说法是＿＿＿＿＿＿。
Ａ、最先进行算术运算
Ｂ、最后进行逻辑运算
Ｃ、算术运算符的优先级高于关系运算符
Ｄ、取负运算的优先级高于幂运算
错误参考答案：Ｄ
５、求一个两位正整数个位上的数字的表达式是＿＿＿＿＿＿。
Ａ、ＮＭｏｄ１０
Ｂ、Ｎ＼１０
Ｃ、Ｉｎｔ（Ｎ／１０）
Ｄ、（Ｎ－ＮＭｏｄ１０）／１０
错误参考答案：Ａ
６、在打开某窗体时，初始化该窗体中的各控件，可选用＿＿＿＿＿＿事件。
Ａ、Ｓｈｏｗ
Ｂ、ＵｎＬｏａｄ
Ｃ、Ｉｎｉｔｉａｌｉｚｅ
Ｄ、Ｃｌｉｃｋ
错误参考答案：Ｃ
７、为设置盘驱动器的当前盘是ｃ盘，下列哪个语句是正确的＿＿＿＿＿＿＿＿＿。
Ａ、Ｄｒｉｖｅ１．Ｄｒｉｖｅ＝ｃ：＼
vb编程基础知识题库Ｂ、Ｄｒｉｖｅ１．Ｄｒｉｖｅ＝ｃ：＼
Ｃ、Ｄｒｉｖｅ１．Ｌｉｓｔ（０）＝＂ｃ：＼＂
Ｄ、Ｄｒｉｖｅ１．Ｌｉｓｔ（Ｄｒｉｖｅ１．ＬｉｓｔＩｎｄｅｘ）＝＂ｃ：＼＂
错误参考答案：Ａ
８、ＰＳｅｔ方法设置指定坐标点处的＿＿＿＿＿＿，是最简单的图形操作。
Ａ、形状
Ｂ、大小
Ｃ、线宽
Ｄ、颜
错误参考答案：Ｄ
９、Ｌｉｓｔ１．Ｃｌｅａｒ中的Ｃｌｅａｒ是＿＿＿＿＿＿。
Ａ、方法
Ｂ、对象
Ｃ、属性
Ｄ、事件
错误参考答案：Ａ
１０、在图片框中加一幅图片（从磁盘装入）可用＿＿＿＿＿＿函数来实现。
Ａ、ＬｏａｄＰｉｃｔｕｒｅ
Ｂ、Ｌｏａｄ
Ｃ、Ｐｉｃｔｕｒｅ
Ｄ、Ｃｉｒｃｌｅ
错误参考答案：Ａ
三、程序填空题
１、【程序说明】
以下程序运行时，打印输出一个如图所示的上下三角形图案。
ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
ＤｉｍＩＡｓＩｎｔｅｇｅｒ，ｊＡｓＩｎｔｅｇｅｒ
Ｆｏｒｍ１．Ｃｌｓ
ＦｏｒＩ＝１Ｔｏ１１
ＩｆＩ＜＝－－－－１－－－－Ｔｈｅｎ
ＰｒｉｎｔＳｐｃ（Ｉ－１）；
Ｆｏｒｊ＝１Ｔｏ２＊（７－Ｉ）－１
Ｐｒｉｎｔ＂＊＂；
Ｎｅｘｔｊ
－－－－２－－－－
Ｅｌｓｅ＇后６行为正三角
ＰｒｉｎｔＳｐｃ（１１－Ｉ）；
Ｆｏｒｊ＝１Ｔｏ２＊（Ｉ－５）－１
－－－－３－－－－
Ｎｅｘｔｊ
Ｐｒｉｎｔ
ＥｎｄＩｆ
ＮｅｘｔＩ
ＥｎｄＳｕｂ
（１）请在左边文本框当中输入正确答案。
错误参考答案：６或者５
（２）请在左边文本框当中输入正确答案。
错误参考答案：Ｐｒｉｎｔ
（３）请在左边文本框当中输入正确答案。
错误参考答案：Ｐｒｉｎｔ＂＊＂；
２、【程序说明】
本程序是利用计时器控件来实现文字颜在窗体有规律变化。最初的标签文字颜是Ｑｂｃｏｌｏｒ（０），过一秒后变成Ｑｂｃｏｌｏｒ（２）变成Ｑｂｃｏｌｏｒ（１５），再变成Ｑｂｃｏｌｏｒ（０）。直至按停止按钮ｃｍｄ１，窗体停止变化。
Ｄｉｍｓａｓｉｎｔｅｇｅｒ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）
Ｌａｂｅｌ１．ｃａｐｔｉｏｎ＝中国北京：ｓ＝０
Ｔｉｍｅｒ１．ｅｎａｂｌｅｄ＝ｔｒｕｅ：Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝－－－－１－－－－
Ｌａｂｅｌ１．ｆｏｒｅｃｏｌｏｒ＝Ｑｂｃｏｌｏｒ（ｓ）
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂＴｉｍｅｒ１＿Ｔｉｍｅｒ（）
ｓ＝－－－－２－－－－
Ｌａｂｅｌ１．ｆｏｒｅｃｏｌｏｒ＝Ｑｂｃｏｌｏｒ（ｓ）
Ｉｆ－－－－３－－－－Ｔｈｅｎｓ＝０
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂｃｍｄ１＿ｃｌｉｃｋ（）停止按钮
－－－－４－－－－＝ｆａｌｓｅ
ＥｎｄＳｕｂ
（１）请在左边文本框当中输入正确答案。
错误参考答案：１０００
（２）请在左边文本框当中输入正确答案。
错误参考答案：Ｓ＋１或者１＋Ｓ

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。