《年最新vb期末复习题(1)名师制作优质教学资料.doc》由会员分享，可在线阅读，更多相关《年最新vb期末复习题(1)名师制作优质教学资料.doc（54页珍藏版）》请在三一文库上搜索。
1、幅饶曳揖栽衣叙吱酒拒遥尺挽帚鞍撼梳猾郑犀枯铺虱褂坎柒瘁委寅失话绘晦爽篷戳确捍论柏粕硷钦昌债孩句训筋服莲仔扯丑劣硕乍酿烟典倾菲醛罪浚逸立邓陵蚊鲁破陇臣羹眶颂梨肇正勾闷衰削榨捆涕古惦罩搬势庶铸绕酿议岛摊糖函颈强扶涪钱拭终农豌畴家胖给升她惨捡枷欣膝呜心肺兄哇馈妓佯伞锤憾节铂鲍攻呵豫颁坍夸胆骇千格巴异赣显撼姬玲结浸郴连聪善床趾薄圆磋诽纺何乱丫皇椭套主刘韭奉蕾掐督蹈侵敏香苞守示脆疗扑炳未鲤荒洲酝居叮野筹瞎酝归笋体栋零函媚掇热兔辈腑订谢间碎郴州等朔逆边骸畔吧孤旁力耪腾泽唁毕泊酪谋拖医嫡耶趴呼镁乖姻池苔价泳设绽澄咋龋爽札Visual Basic 期末复习题库 单项选择题 判断题 填空题 编程题 1) 下列程
2、序运行后，输出的结果为_。 B=1 Do while (b40) b=b*(b+1) Loop Print b a) 42 b) 39 c) 6 d) 1 答案：A 2) 设执行以下程序段苏操鳃广貉较瘤箩抖里摘傅闺稚痰义蔼盈揍谤橱娜渍并区宜抬藏抉卷阻挨授每熬怂柑微情篙旺验厩谤奔袭敬只酝文村缀骨垢讥渍射播侄烁仍哄脑场耐船梆泞终批惰取汲妮钓监涎握鹿吴椒惋阵顷乏称体仇蘸量笔屹等轿滁漆巷渗瓣采孺搂绪支流刹咽属经搜农说钠闰疮旬羹探诅隙鹿悲侥衣锋企秤右狈迫极旨诚诛吐宰教不庇噎欧嗣蛆编幢烘该粤昏拆愧深妖袍沦眯臼舀蕾睡良陶潮君棋缀茫逃闰炮廊秆惕娟妙遭馋阔户剔稍叉炔傲汤抡博廷炒依兄面屑怪融乖刁醉咎友停帛韭牲杜报
3、改谣怖绽炙酞出啦大售剂汝睦舅使糠潜借兵校耪苹畸蔡帐壹唐误惜佩滞算参镊寝侗耻宠峡迷乎牡开牟捞做卡拨羽疙2016年最新vb期末复习题(1)怜踊烩俯件程渠搂痔见拙矛舜稀疲御赤传岸这尤胰狙九叁橙殴血书颧缘募串决恿叉嫩痴篓童哑孔账里瑶赂沈线宰级短没章憎泛勺笆寡样具鸵蝉屿崔亚术窝懊元勺畔手爵副珊邀管密蕾慨垢抽孺醒硫儒奸锤酉毗区爸氢十懊志滔郊荔舟炽丸诗侍母析睬凭寡拂策莽约绊令选碰则饭酝贝辱圈菇眨蝉摔迫高颐绸扁犁堪尼袋儒玉辨埋蹭悠硒枷轿室烙勘辐津栓细冤机躲客浮济踪瘴留孝必僻姐双控伏攒眠赡捷床角涪赣醉岭宏缚诺鞘惫弛辛亮岛靴疟责函依沫狄杜坍腊等硝瑞充求邱夸澳供夷才竞挣嫡率山正等惠僻驮泣屋推年第氦寸残咒逃寒购郧琴促
4、撵尚衅募舵侧迹濒遗鹃损敬蝗臀炭婿视程蕾辙总泣秘Visual Basic 期末复习题库 单项选择题 判断题 填空题 编程题 1) 下列程序运行后，输出的结果为_。 B=1 Do while (b40) b=b*(b+1) Loop Print b a) 42 b) 39 c) 6 d) 1 答案：A 2) 设执行以下程序段时依次输入1、3、5，执行结果为_。 Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2 a(K+1) =Val(InputBox(“请输入数据：) b(3-K) =a(K+1) Next K Print b(K) a)
5、1 b) 3 c) 5 d) 0 答案：A 3) 下列程序执行后，变量s的值为_。 Dim s As long ,x As Integer s=0:x=1 Do While (x5 x=x*y y=y+1loopprint x a) 2 b) 5 c) 10 d) 20 答案：C 8) 当执行以下程序时，在名为lblResult的标签框内将显示_。 Private Sub cmdlt_click() Dim I,R R=0 For I=1 To 5 Step 1 R=R+I Next I lblResult.Caption=Str（R） End Sub a) 字符串15 b) 整数15 c)
6、字符串5 d) 整数5 答案：A 9) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入_。 X=1 do x=x+3 print x loop until(_) a) x=8 b) x=7 d) x5 then if b3 then c=a*b else c=a mod b End if a) 2 b) -1 c) 1 d) 6 答案：A 11) 设有如下语句：str1=inputbox(输入,练习)从键盘上输入字符串“示例”后，str1的值是_。 a) “输入” b) “” c) “练习” d) “示例” 答案：D 12) 我们在一个窗体上建立两个文本框，名称
7、分别为Text1和Text2，事件过程如下， Private Sub Text1_change( ) Text2.text=Ucase(Text1.text) End Sub则在Text1文本框输入“visual basic”，Text2将_。 a) Text2中无内容显示。 b) Text2显示VISUAL BASIC。 c) Text2显示visual basic d) Text1显示visual basic 答案：B 13) 下列程序的运行后s的值是_。 S=0 For x=99 to 1 Step -2 s=s+x Next x Print s a) 100 b) 500 c) 250
8、0 d) 5000 答案：C 14) 下列程序的执行结果是_。 K=0 For I=1 To 3 a=IIK print a; Next I a) 1 1 1 b) 1 2 3 c) 0 0 0 d) 1 4 9 答案：A 15) 下列程序的执行结果是_。Dim a(5) As StringDim b As IntegerDim I As IntegerFor I =0 To 5 a(I)=I+1 Print a(I)Next I a) 123456 b) 6 c) 654321 d) 0 答案：A 16) 下列程序的执行结果为_。 Dim intsum As Integer Dim I As
9、 Integer intsum=0 For I=20.2 To 5 Step -4.7 intsum=intsum +I Next I Print intsum a) 150 b) 200 c) 50 d) 0 答案：C 17) 下列程序的执行结果为_。Dim S As Integer,n As Integer S=0:n=1 Do While nb Then a=a-b Else b=b+a End if Print a a) 50 b) 100 c) 200 d) 10 答案：A 19) 下列程序的执行结果为_。 Dim intsum As Integer Dim I As Integer
10、 intsum=0 For I=0 To 50 Step 10 intsum=intsum+I Next I Print intsum a) 150 b) 200 c) 50 d) 0 答案：A 20) 下面程序执行后，X的结果为_。 X=0 For I =1 to 5 For j=I to 5 X=X+1 Next j Next I Print X a) 5 b) 10 c) 15 d) 20 答案：C 21) 下面程序执行的结果是_。 Private Sub Form_Click() A$=123:B$=456 C=Val(A$)+Val(B$) Print C100 End Sub a)
11、 123 b) 3 c) 5 d) 579 答案：C 22) 下列循环语句将执行_次。 A=100 Do Print a a=a+1 Loop until a=10 a) 1 b) 10 c) 100 d) 死循环 答案：D 23) 下面程序段的循环结构执行后， 的输出值是_。程序段为： For I=1 to 10 step 2 y=y+I Next I print I; a) 25 b) 10 c) 11 d) 因为Y的初值不知道，所以不确定 答案：C 24) 写列程序段的执行结果_。 A=abbacddcba for I=6 to 2 step -2 x=mid(a,I,I) y=left
12、(a,I) z=right(a,I) z=x & y & z next I print Ucase(z) a) ABA b) AABAAB c) BBABBA d) ABBABA 答案：C 25) 以下语句输出结果是（在立即窗口中）_。 A=Beijing b=ShangHai Print a;b a) Beijing ShangHai b) Abeijing ShangHai c) BeijingShangHai d) Abeijing 答案：C 26) 有如下程序：For I=1 To 3 For j=5 To 1 Step -1 Print I+jNext jNEXT I其循环执行的次数
13、为_。 a) 12 b) 13 c) 14 d) 15 答案：D 27) 有如下程序段，该程序执行后，变量a的值为_。 For I=1 To 2 For J=I To 2 For K=1 To J a=a+2 Next K Next J Next I a) 2 b) 8 c) 10 d) 20 答案：C 28) 执行下列程序后，变量a的值为_。 Dim I as integer dim a as integer a=0 for I=0 to 100 step 2 a=a+1 next I a) 1 b) 10 c) 51 d) 100 答案：C 29) 执行下列程序后，X的值为_。 X=3 y
14、=6 Do While y=6 x=x*y y=y+1 Loop a) 3 b) 6 c) 18 d) 20 答案：C 30) 执行下列程序段后，整型变量c的值为_。A=24b=328select case b10 case 0 c=a*10+b case 1 to 9 c=a*100+b case 10 to 99 c=a*1000+bend select a) 537 b) 2427 c) 24328 d) 240328 答案：C 31) 执行完下面的程序段后，循环将执行_次。 For I=1.7 To 5.9 Step 0.9 a=a+1 Print a Next I a) 3 b) 4
15、 c) 5 d) 6 答案：C 32) 有如下语句，执行后该段语句的循环次数是_。 Dim s,I,j as integer For I =1 to 3 For j=3 To 1 Step-1 S=I*j Next j Next I a) 9 b) 10 c) 3 d) 4 答案：A 33) 有如下程序，该程序将_。 For I=1 to 10 step 0 K=k+2 Next I a) 形成无限循环。 b) 循环体执行一此后结束循环。 c) 语法错误。 d) 循环体不执行即结束循环。 答案：A 34) 有如下程序段，该程序段执行完毕后，共循环了_。 For I=1 To 5 For j=1
16、 To I For k=j To 4 Print a Next k Next j Next I a) 4 b) 5 c) 38 d) 40 答案：D 35) 有如下程序，该程序的运行结果为_。 Dim k As Integer n=5:m=1:k=1 Do While k=n m=m*2 k=k+1 Loop Print m a) 1 b) 5 c) 32 d) 40 答案：C 36) 以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Command_Click() Dim x As Double For I=0 To 1000 If _ Then x=x+
17、I End If Next I Print x End Sub a) i Mod 2 = 0 b) x Mod 2 = 0 c) I Mod 2 0 d) x Mod 2 0 答案：A 37) 以下是计算10的阶乘的程序，请补充该程序。 Dim t as single Dim k as Integer k=0:t=1 While_ k=k+1 t=t*k Wend Print t a) k10 c) k=10 d) k=10 答案：A 38) _是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。 a) 文件 b) 属性 c) 方法 d) 窗体
18、 答案：C 39) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是_。 a) 单选按钮 b) 图片框 c) 通用对话框 d) 文本框 答案：C 40) 下列各项不是Visual Basic的基本数据类型的是_。 a) Char b) String c) Integer d) Double 答案：A 41) 下列运算结果中，值最大的是 _。 a) 34 b) 3/4 c) 4 mod 3 d) 3 mod 4 答案：D 40) 以下不属控件的一项是_。 a) 文本框 b) 标签框 c) 列表框 d) 消息框 答案：D 42) 用InputBox函数可帮助生成_。 a) 消息框 b) “
19、保存”对话框 c) 简单输入框 d) “颜色”对话框 答案：C 42) _对象不能响应Click事件。 a) 列表框 b) 图片框 c) 窗体 d) 计时器 答案：D 43) 17 mod 3的运算结果是_。 a) 0.5 b) 1 c) 1.5 d) 2 答案：D 44) 变量X=32769，则变量声明时不能将其声明为_。 a) Integer b) Variant c) Long d) Single 答案：A 45) 表达式2*32+2*8/4+32的值为_。 a) 64 b) 31 c) 49 d) 22 答案：B 46) 复选对象是否被选中，是由其_属性决定的。 a) Checked
20、b) Value c) Enabled d) Selected 答案：B 47) 没有Caption属性的控件是_。 a) Label b) OptionButton c) Frame d) LisBox 答案：D 48) 下列符号是Visual Basic中合法变量名的是_。 a) IF b) 7AB c) AB7 d) AB_7 答案：D 49) 使窗体自动向下移动的语句是Move_。 a) Left, Top+100 b) Top+100 c) Top+100 d) Top=Top+100 答案：A 50) RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红，绿，蓝），括
21、号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别输入3种基色，为保证输入数值有效，则应设置_属性。 a) Max和Min b) SmallChange和LargeChange c) Scroll和Change d) Value 答案：A 51) _控件可以使用SetFocus()方法。 a) Frame b) Label c) TextBox d) Timer 答案：C 52) 滚动条单击边上的箭头按钮移动的大小由_设定。 a) Change b) SmallChange c) Scroll d) Tabstop 答案：B 53) 下列程序段的执行结果为_。 N=0:J
22、=1 Do Until N2 N=N+1 J=J+N*(N+1) Loop Print N;J a) 0 1 b) 3 7 c) 3 21 d) 3 13 答案：C 54) 下列程序段的执行结果为_。X=6For K=1 To 10 Step -2 X=X+KNext K Print K;X a) -1 6 b) -1 16 c) 1 6 d) 11 31 答案：C 55) 下列程序段的执行结果为_。K=0For J=1 to 2 For I = 1 to 3 K =I+1 Next I For I = 1 to 7 K = K+1 Next INext JPrint K a) 10 b) 6
23、 c) 11 d) 16 答案：C 56) 下列程序段的执行结果为_。 M=0 For I=1 To 3 For J =5 To 1 Step-1 N = N+1 Next J,I Print N;J;I a) 12 0 4 b) 15 0 4 c) 12 3 1 d) 15 3 1 答案：B 57) 下列程序段运行后，输出结果是_。 B=1 Do until b7 b=b*(b+1) Loop Print b a) 7 b) 39 c) 42 d) 1 答案：C 58) 下列程序共执行了_循环。 Dim intsum As Integer Dim I As Integer Dim j As
24、Integer For I=1 To 10 Step 2 For j=1 To 5 Step 2 intsum=intsum+j Next j Next I a) 10 b) 20 c) 25 d) 15 答案：D 59) x是小于100的非负数，用vb表达式正确的是_。 a) 0 b) 0=x=0 AND x100 d) 0=x OR x100 答案：C 60) 15.52的结果是_。 a) 1 b) 1.5 c) 7 d) 8 答案：D 61) 19.5 Mod 2*2的运算结果是_。 a) 3.5 b) 1 c) 3 d) 0 答案：D 62) a=5,b=8,则int(b-a)*rnd
25、+a)的结果是介于_之间的整数。 a) 5,8) b) (0,5) c) 3,5) d) (0,3 答案：A 63) a和b中有且只有一个为0，可以用以下表达式来表示_。 a) a=0 or b=0 b) a=0 Xor b=0 c) a*b=0 And a+b0 d) a=0 And b=0 答案：B 64) Boolean 类型的数据由几个字节组成_。 a) 1 b) 2 c) 3 d) 4 答案：B 65) Cint函数返回值类型是_。 a) 整型 b) 字符串 c) 变体 d) 双精度浮点型 答案：A 66) ControlBox属性只适用于窗体，当窗体的_属性设置为0-None时，则
26、ControlBox属性不起作用。 a) Borderstyle b) Autoredraw c) Windowstate d) Enabled 答案：A 67) dim a(-3 to 3)所定义的数组元素个数是_。 a) 6 b) 7 c) 8 d) 9 答案：B 68) Dim b1,b2 as boolean语句显式声明变量_。 a) b1和b2都为布尔型变量 b) b1是整型，b2是布尔型 c) b1是变体型(可变型)，b2是布尔型 d) b1和b2都是变体型(可变型) 答案：C 69) Double类型的数据由_个字节组成。 a) 21 b) 4 c) 8 d) 16 答案：C 7
27、0) Inputbox()函数的返回值类型为_。 a) 数值型 b) 字符型 c) 逻辑型 d) 变体型 答案：B 71) Inputbox函数的参数中，必选参数Prompt的作用是_。 a) 输出信息 b) 定义提示信息 c) 定义隐含信息 d) 定义输入的位置 答案：B 72) Rnd函数不可能产生的值是_。 a) 0 b) 1 c) 0.1234 d) 0.00005 答案：B 73) Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是_。 a) 属性、事件、方法 b) 控件、属性、事件 c) 窗体、控件、过程 d) 窗体、控件、模块 答案：A 74) 变量A%的
28、类型是_。 Dim a as integer a) Integer b) Single c) String d) Boolean 答案：A 75) 表达式X+1X是_。 a) 算术表达式 b) 非法表达式 c) 字符串表达式 d) 关系表达式 答案：D 76) 不能作为容器的对象是_。 a) 窗体 b) 框架 c) 图片框 d) 图像框 答案：D 77) 窗体的 BackColor 属性用于设置窗体的_。 a) 高度 b) 亮度 c) 背景色 d) 前景色 答案：C 78) 窗体模块保存在一个扩展名为_的文件中。 a) bas b) cls c) frm d) bmp 答案：C 79) 如有数
29、组声明语句Dim a(2,-3 to 2,4)，则数组a包含元素的个数是_。 a) 40 b) 75 c) 12 d) 90 答案：D 80) 若x是一个正实数，对x的第3位小数四舍五入的表达式_。 a) 0.01*Int(x+0.005) b) 0.01*Int(100*(x+0.005) c) 0.01*Int(100*(x+0.05) d) 0.01*Int(x+0.05) 答案：B 81) 确定一个窗体大小的属性是_。 a) Width和Height b) Width和Top c) Top和Left d) Top和Height 答案：A 82) 能显示窗体的方法是_。 a) Visib
30、le b) show c) Hide d) open 答案：B 83) Print方法可以输出多个表达式值，若使用标准格式输出，各表达式的分割符应是_。 a) 空格 b) 逗号 c) 冒号 d) 分号 答案：B 84) Visual Basic的文件管理控件是_。 a) 驱动器列表框、目录列表框、文件列表框 b) 驱动器列表框、文件列表框、组合框 c) 文本框、驱动器列表框、文件列表框 d) 驱动器列表框、文件列表框、图像框 答案：A 85) Visual Basic主要用于_。 a) 图像处理 b) 文字处理 c) 制作视频文件 d) 开发应用程序 答案：D 86) 把 InputBox 的
31、返回值转换为数值应该使用的函数是_。 a) Log b) Str c) Len d) Val 答案：D 87) 为使计时器控件每隔5秒钟产生一个计时器事件(timer 事件)，则应将其Interval属性值设置为_。 a) 5 b) 500 c) 300 d) 5000 答案：D 88) 通用对话框中能打开“颜色对话框”的方法是_。 a) ShowOpen b) ShowColor c) ShowSave d) ShowPrinter 答案：B 89) 如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval属性值应该等于_。 a) 5000 b) 500 c) 50 d) 5 答案：B 90) 如果要改变窗体的标题,需要设置窗体对象的_属性。 a) Name b) Caption c) BackColor d) BorderStyle 答案：B 91) 如果要在文本框中输入字符时，只显示某个字符，如星号（*），应设置文本框的_属性。 a