VB考试题库十五套11

ｈｔｔｐ：／／１９２．１６８．１５０．６３／ｗｅｂｔｅｓｔ／Ｈｏｍｅ／Ｉｎｄｅｘ
２０１３－５－２０
Ｄ、组合框 错误 参考答案： Ｂ １０、画椭圆的方法中，半径以后的参数依次是＿＿＿＿＿＿。
Ａ、圆弧起点处转角、圆弧终点处转角、颜色、椭圆纵轴与横轴长度之比 Ｂ、圆弧起点处转角、圆弧终点处转角、颜色、椭圆横轴与纵轴长度之比 Ｃ、颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比 Ｄ、颜色、圆弧起点处转角、圆弧终点处转角、椭圆横轴与纵轴长度之比 错误 参考答案： Ｃ
Ｆｏｒ Ｎ１ ＝ ３ Ｔｏ Ｎ ＼ ２ Ｓｔｅｐ ２
Ｋ１ ＝ －－－－１－－－
Ｆｏｒ Ｉ ＝ ２ Ｔｏ Ｋ１
Hale Waihona Puke ＇判断Ｎ１是否是素数Ｉｆ Ｎ１ Ｍｏｄ Ｉ ＝ ０ Ｔｈｅｎ －－－－２－－－－
Ｎｅｘｔ Ｉ
Ｉｆ Ｉ ＞ Ｋ１ Ｔｈｅｎ
ｈｔｔｐ：／／１９２．１６８．１５０．６３／ｗｅｂｔｅｓｔ／Ｈｏｍｅ／Ｉｎｄｅｘ
Test Service Solution
准考证号：12X2A0101VBP 交卷姓名：练帮习助001
IP：192.168.102.1
ＶＢ程序设计上机考试
注意：在 阅卷 前请先 保存 。
一、判断题
１、 Ｐｉｃｔｕｒｅ对象的ＡｕｔｏＳｉｚｅ属性值为Ｔｒｕｅ时，表示该对象不管原来图片的大小，一律都自动调整为控件的大小尺寸 该图片。
二、单选题
１、对画出的图形改变填充样式，应使用＿＿＿＿＿＿属性。 Ａ、ＢａｃｋＳｔｙｌｅ Ｂ、ＦｉｌｌＣｏｌｏｒ Ｃ、ＢｏｒｄｅｒＳｔｙｌｅ Ｄ、ＦｉｌｌＳｔｙｌｅ
错误 参考答案： Ｄ
ｈｔｔｐ：／／１９２．１６８．１５０．６３／ｗｅｂｔｅｓｔ／Ｈｏｍｅ／Ｉｎｄｅｘ
２０１３－５－２０
２、由Ｆｏｒ ｋ＝３５ ＴＯ ０ Ｓｔｅｐ ３ ： Ｎｅｘｔ ｋ循环语句控制的循环次数是＿＿＿＿＿＿ 。 Ａ、０ Ｂ、１２ Ｃ、－１１ Ｄ、－１０
三、程序填空题
１、【程序说明】 下列程序运行后，当在组合框中输入一个新项目后按回车时，如果输入的项目在组合框列表中不存在，则 ｌａｂｅｌ２中显示 成功添加新项目！ （界面如下图所示）；若该项目存在，则显示 输入项目已存在！ 。
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｂｏ１＿ ｋｅｙｐｒｅｓｓ（ＫｅｙＡｓｃｉｉ Ａｓ Ｉｎｔｅｇｅｒ） Ｉｆ ＫｅｙＡｓｃｉｉ ＝ １３ Ｔｈｅｎ Ｆｏｒ Ｉ ＝ ０ Ｔｏ －－－－１－－－－ Ｉｆ Ｃｏｍｂｏ１．Ｔｅｘｔ ＝ －－－－２－－－－Ｔｈｅｎ Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ ＝ ＂输入项目已存在！＂ Ｅｘｉｔ Ｓｕｂ Ｅｎｄ Ｉｆ Ｎｅｘｔ Ｉ Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ ＝ ＂成功添加新项目！＂ Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍ －－－－３－－－－ Ｅｎｄ Ｉｆ
Ｆｉｌｅ１．Ｐａｔｈ ＝ Ｄｉｒ１．Ｐａｔｈ Ｆｏｒ ｉ ＝０ Ｔｏ Ｆｉｌｅ１．ＬｉｓｔＣｏｕｎｔ － １
Ｌｉｓｔ１．ＡｄｄＩｔｅｍ Ｆｉｌｅ１．Ｌｉｓｔ（ｉ） Ｎｅｘｔ ｉ Ｅｎｄ Ｓｕｂ Ｐｒｉｖａｔｅ Ｓｕｂ Ｄｒｉｖｅ１＿Ｃｈａｎｇｅ（） Ｄｉｒ１．Ｐａｔｈ ＝ Ｄｒｉｖｅ１．Ｄｒｉｖｅ Ｅｎｄ Ｓｕｂ
（１） 请在左边文本框当中写出正确的答案。
ｈｔｔｐ：／／１９２．１６８．１５０．６３／ｗｅｂｔｅｓｔ／Ｈｏｍｅ／Ｉｎｄｅｘ
２０１３－５－２０
Ａ、
Ｂ、
Ｃ、
Ｄ、 错误 参考答案： Ｂ
２、先在Ｃ盘中创建文件夹 ｍｌ ，再在文件夹 ｍｌ 中创建两个文件 ａ１．ｔｘｔ 和 ａ２．ｔｘｔ ，窗体上添加一 框、文件列表框和一列表框。下列程序运行后，在目录列表框中找到并双击 ｍｌ 后，写出列表框Ｌｉｓｔ１中是什 Ｐｒｉｖａｔｅ Ｓｕｂ Ｄｉｒ１＿Ｃｈａｎｇｅ（）
四、程序阅读题
１、写出程序运行时单击窗体后，在窗体上显示的结果。 Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｃｌｉｃｋ（）
Ｄｉｍ ｉ Ａｓ Ｉｎｔｅｇｅｒ， ｘ Ａｓ Ｓｉｎｇｌｅ， ｙ Ａｓ Ｓｉｎｇｌｅ， ｒ Ａｓ Ｓｉｎｇｌｅ Ｆｏｒｍ１．Ｓｃａｌｅ （－３００， －２００）－（３００， ２００） Ｆｏｒ ｉ ＝ １ Ｔｏ ５００
在Ｅ盘上建以自己【姓名＋准考证号】为名的文件夹，并在该文件夹下面根据设计题中小题个数建相应的子文件夹 小题结果文件保存在相应的子文件夹中。 例如：考生张三的准考证号为０１００１０１，做设计题中的第１小题， 文件保存位置是：Ｅ：＼张三０１００１０１＼设计题１
ｈｔｔｐ：／／１９２．１６８．１５０．６３／ｗｅｂｔｅｓｔ／Ｈｏｍｅ／Ｉｎｄｅｘ
错误 参考答案： Ａ ３、假定有情况语句：Ｓｅｌｅｃｔ Ｃａｓｅ Ｘ，为了描述Ｘ的绝对值大于５，正确的Ｃａｓｅ子句为＿＿＿＿＿＿
Ａ、Ｃａｓｅ Ｉｓ＜－５，＞５ Ｂ、Ｃａｓｅ Ｎｏｔ（－５ ｔｏ ５） Ｃ、Ｃａｓｅ ５ ｔｏ ５ Ｄ、Ｃａｓｅ Ａｂｓ（Ｘ）＞５ 错误 参考答案： Ａ ４、表达式３＜ｘ＜５的ＶＢ表达式是＿＿＿＿＿＿。 Ａ、３ Ｂ、３ Ｃ、ｘ＞３ ａｎｄ ｘ＜５ Ｄ、３－５ 错误 参考答案： Ｃ ５、表达式１１＼４＋８／４ Ｍｏｄ ４的值是＿＿＿＿＿＿。 Ａ、１ Ｂ、２ Ｃ、３ Ｄ、４
Ｄｉｍ Ｉ ａｓ ｉｎｔｅｇｅｒ Ｆｏｒ ｉ＝ １ ｔｏ ５
Ａ（ｉ）＝ｉ＊ｉ Ｎｅｘｔ ｉ Ｅｎｄ ｓｕｂ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
Ｄｉｍ Ｉ ａｓ ｉｎｔｅｇｅｒ Ｆｏｒ ｉ＝ １ ｔｏ ５
Ｐｒｉｎｔ ａ（ｉ）； Ｎｅｘｔ ｉ Ｅｎｄ Ｓｕｂ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ２＿Ｃｌｉｃｋ（）
ｈｔｔｐ：／／１９２．１６８．１５０．６３／ｗｅｂｔｅｓｔ／Ｈｏｍｅ／Ｉｎｄｅｘ
２０１３－５－２０
错误 参考答案： Ｄ ６、对象的三要素是＿＿＿＿＿＿ 。
Ａ、过程、方法、事件 Ｂ、属性、函数、事件 Ｃ、属性、过程、事件 Ｄ、属性、方法、事件 错误 参考答案： Ｄ ７、如果ＥＯＦ（）函数的返回值为Ｔｒｕｅ，则表明文件的指针指向＿＿＿＿＿＿＿＿＿＿。 Ａ、文件开头 Ｂ、文件结尾 Ｃ、文件的第１个记录 Ｄ、文件的最后一个记录 错误 参考答案： Ｂ ８、将图片框的＿＿＿＿＿＿属性设置成Ｔｒｕｅ时，可使图片框根据图片调整大小。 Ａ、Ｐｉｃｔｕｒｅ Ｂ、ＡｕｔｏＳｉｚｅ Ｃ、Ｓｔｒｅｔｃｈ Ｄ、ＡｕｔｏＲｅｄｒａｗ 错误 参考答案： Ｂ ９、若要在同一窗体中安排四组单选钮，可用＿＿＿＿＿＿控件予以分隔。 Ａ、文本框 Ｂ、框架 Ｃ、列表框
（１）
请在左边文本框当中输入正确答案。
错误 参考答案： Ｄｉｍ ｘ１ Ａｓ Ｓｉｎｇｌｅ， ｙ１ Ａｓ Ｓｉｎｇｌｅ 或者 Ｄｉｍ ｘ１！， ｙ１！
（２）
请在左边文本框当中输入正确答案。
错误 参考答案： Ｐｉｃ１．ＦｉｌｌＳｔｙｌｅ ＝ ０
（３）
请在左边文本框当中输入正确答案。
错误 参考答案： Ｐｉｃ１．Ｌｉｎｅ （ｘ１， ｙ１）－（Ｘ， Ｙ）， ｖｂＲｅｄ， Ｂ 或者 Ｐｉｃ１．Ｌｉｎｅ （ｘ１， ｙ１）－（Ｘ， Ｙ）， ２５５， Ｂ （ｘ１， ｙ１）－（Ｘ， Ｙ）， ＲＧＢ（２５５，０，０）， Ｂ
ｘ１ ＝ Ｘ： ｙ１ ＝ Ｙ Ｅｎｄ Ｓｕｂ Ｐｒｉｖａｔｅ Ｓｕｂ Ｐｉｃ１＿ＭｏｕｓｅＵｐ（Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ， Ｓｈｉｆｔ Ａｓ Ｉｎｔｅｇｅｒ， Ｘ Ａｓ Ｓｉｎｇｌｅ， Ｙ Ａｓ Ｓｉｎｇｌｅ）
Ｐｉｃ１．ＦｉｌｌＣｏｌｏｒ ＝ ｖｂＧｒｅｅｎ －－－－２－－－－ －－－－３－－－－ Ｅｎｄ Ｓｕｂ
３、【程序说明】
下列程序的功能是：验证一个大于６的偶数能分解为两个素数之和
基本思想是：Ｎ为大于６的任一偶数，可分解为Ｎ１和Ｎ２两个数，分别检查Ｎ１和Ｎ２是否为素数，若都是，则为
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｃｌｉｃｋ（）
Ｄｉｍ Ｎ％， Ｎ１％， Ｎ２％， Ｉ％， Ｋ１％， Ｋ２％
Ｎ ＝ Ｖａｌ（ＩｎｐｕｔＢｏｘ（＂输入大于６的偶数＂））
对 错 错误 参考答案： 错
２、Ｆｏｒ／Ｎｅｘｔ语句正常（未执行Ｅｘｉｔ Ｆｏｒ）结束其循环变量的值一定大于终值。 对 错
错误 参考答案： 错
３、因为Ｆｕｎｃｔｉｏｎ过程有返回值，所以只能在表达式中调用，而不能使用Ｃａｌｌ语句调用。 对 错
错误 参考答案： 错
４、算述运算符要比关系运算符、逻辑运算符的运算优先级低。 对 错
２０１３－５－２０
１、单击窗体，在窗体上画出一个当前窗体中所能容纳的最大的红色实心椭圆（即椭圆的上下左右分别与窗体的上下左
参考答案： ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ｃｌｉｃｋ（） ＤｉｍｒＡｓＳｉｎｇｌｅ ｒ＝Ｆｏｒｍ１．ＳｃａｌｅＷｉｄｔｈ ＩｆＦｏｒｍ１．ＳｃａｌｅＨｅｉｇｈｔ＞Ｆｏｒｍ１．ＳｃａｌｅＷｉｄｔｈＴｈｅｎｒ＝Ｆｏｒｍ１．ＳｃａｌｅＨｅｉｇｈｔ Ｆｏｒｍ１．ＦｉｌｌＳｔｙｌｅ＝０ Ｆｏｒｍ１．ＦｉｌｌＣｏｌｏｒ＝ＲＧＢ（２５５，０，０） Ｆｏｒｍ１．Ｃｌｓ Ｆｏｒｍ１．Ｃｉｒｃｌｅ（ＳｃａｌｅＷｉｄｔｈ／２，ＳｃａｌｅＨｅｉｇｈｔ／２），ｒ／２，ＲＧＢ（２５５，０，０），，，ＳｃａｌｅＨｅｉｇｈｔ／ＳｃａｌｅＷｉｄｔｈ ＥｎｄＳｕｂ
（１）
ｈｔｔｐ：／／１９２．１６８．１５０．６３／ｗｅｂｔｅｓｔ／Ｈｏｍｅ／Ｉｎｄｅｘ
２０１３－５－２０
请在左边文本框当中写出正确的答案。 Ａ、ａ１．ｔｘｔ Ｂ、ａ２．ｔｘｔ Ｃ、 ａ１．ｔｘｔ ａ２．ｔｘｔ Ｄ、无内容 错误 参考答案： Ｃ
３、请写出当鼠标点击命令按钮２后窗体上的结果。 Ｄｉｍ ａ（５） ａｓ ｉｎｔｅｇｅｒ Ｐｒｉｖａｔｅ ｓｕｂ ｆｏｒｍ＿ｌｏａｄ（）
２０１３－５－２０
Ｅｎｄ Ｉｆ Ｎｅｘｔ Ｎ１ Ｅｎｄ Ｓｕｂ
Ｎ２ ＝ －－－－３－－－－ Ｋ２ ＝ Ｉｎｔ（Ｓｑｒ（Ｎ２）） Ｆｏｒ Ｉ ＝ ２ Ｔｏ Ｋ２
Ｉｆ －－－－４－－－－ Ｔｈｅｎ Ｅｘｉｔ Ｆｏｒ Ｎｅｘｔ Ｉ Ｉｆ Ｉ ＞ Ｋ２ Ｔｈｅｎ
Ｐｒｉｎｔ Ｎ ＆ ＂＝＂ ＆ Ｎ１ ＆ ＂＋＂ ＆ Ｎ２ Ｅｎｄ Ｉｆ