2016年vb期末复习试题

Visual Basic期末复习题库单项选择题判断题填空题编程题1)下列程序运行后,输出的结果为 OB=1Do while(b40)b=b*(b+l)LoopPrint ba)42b)39c)6d)1 答 案：A2)设执行以下程序段时依次输入1、3、5,执行结果为Dim a(4)As IntegerDim b(4)As IntegerFor K=0 To 2a(K+l)=Val(InputBox(请输入数据:)b(3-K)=a(K+l)Next KPrint b(K)a)1b)3c)5d)0答 案：A3）下列程序执行后，变 量s的值为。Dim s As long,x As Integers=0:x=lDo While（x5x=x*yy=y+lloopprint xa)2b)5c)10d)20 答 案：C8)当执行以下程序时,在名为IblResult的标签框内将显示一。Private Sub cmdlt_click()Dim I,RR=0For 1=1 To 5 Step 1R=R+INext IlblResult.Caption=Str(R)End Suba)字符串15b)整 数 15c)字符串5d)整 数 5 答 案：A9)如下有一段不完整的程序段，如果要求该程序执行3 次循环，则应在程序中的括号里输入X=1dox=x+3print xloop until()a)x=8b)x=7d)x5 thenif b3 thenc=a*belsec=a mod bEnd ifa)2b)-1c)1d)6 答 案：A1 1)设有如下语句：strl=inputbox(输 入 练 习 )从键盘上输入字符串“示例 后，strl的值是a)“输入b)c)练习d)示例 答 案：D1 2)我们在一个窗体上建立两个文本框,名称分别为Textl和Text2,事件过程如下，Private Sub Textl_change()Text2.text=Ucase(Textl.text)End Sub则在 Textl 文本框输入visual basic,Text2 将 oa)Text2中无内容显示。b)Text2 显示VISUAL BASICOc)Text2 显示“visual basicd)Textl 显示visual basic1 3)下列程序的运行后s的值是_S=0For x=99 to 1 Step-2s=s+xNext xPrint sa)100b)500c)2500d)5000 答 案：C1 4)下列程序的执行结果是oK=0For 1=1 To 3a=IAIAKprint a;Next Ia)1 1 1b)12 3c)0 0 0d)1 4 9 答 案：A1 5)下列程序的执行结果是一。答 案：BDim a(5)As StringDim b As IntegerDim I As IntegerFor I=0 To 5a(I)=I+lPrint a(I)Next Ia)123456b)6c)654321d)0 答 案：A1 6)下列程序的执行结果为Dim intsum As IntegerDim I As Integerintsum=0For 1=20.2 To 5 Step-4.7intsum=intsum+1Next IPrint intsuma)150b)200c)50d)0 答 案：C1 7)下列程序的执行结果为Dim S As Integer,n As IntegerS=O:n=lDo While nb Thena=a-bElseb=b+aEnd ifPrint aa)50b)100c)200d)10 答 案：A1 9)下列程序的执行结果为一Dim intsum As IntegerDim I As Integerintsum=OFor 1=0 To 50 Step 10intsum=intsum+INext IPrint intsuma)150b)200c)50d)0 答 案：A2 0)下面程序执行后,X 的结果为X=0For I=1 to 5For j=I to 5X=X+1Next jNext IPrint Xa)5b)10c)15d)20 答 案：C2 1)下面程序执行的结果是一。Private Sub Form_Click()A$=123:B$=456C=Val(A$)+Val(B$)Print CW100End Suba)123b)3c)5d)579 答 案：C2 2)下列循环语句将执行 次。A=1OODoPrint aa=a+lLoop until a=10a)1b)10c)100d)死循环 答 案：D2 3)下面程序段的循环结构执行后,的输出值是一。程序段为：For 1=1 to 10 step 2y=y+INext Iprint I;a)25b)10c)11d)因为Y 的初值不知道，所以不确定2 4)写列程序段的执行结果。A=abbacddcbafor 1=6 to 2 step-2x=mid(a,I,I)y=left(a,I)z=right(a,I)z=x&y&znext Iprint Ucase(z)a)ABAb)AABAABc)BBABBAd)ABBABA 答 案:C2 5)以下语句输出结果是(在立即窗口中)A=Beijingb=ShangHaiPrint a;ba)Beijing ShangHaib)Abeijing ShangHai答 案：Cc)BeijingShangHaid)Abeijing 答 案：C2 6)有如下程序：For 1=1 To 3For j=5 To 1 Step-1Print I+jNext jNEXT I其循环执行的次数为 oa)12b)13c)14d)15 答 案：D2 7)有如下程序段，该程序执行后，变量a 的值为For 1=1 To 2For J=I To 2For K=1 To Ja=a+2Next KNext JNext Ia)2b)8c)10d)20答 案：c2 8)执行下列程序后,变量a 的值为一。Dim I as integerdim a as integera=0for 1=0 to 100 step 2a=a+lnext Ia)1b)10c)51d)100 答 案：C2 9)执行下列程序后，X 的值为。X=3y=6Do While y=6x=x*yy=y+iLoopa)3b)6c)18d)20 答 案：C3 0)执行下列程序段后，整型变量c 的值为A=24b=328select case bWlOcase 0c=a*10+bcase 1 to 9c=a*100+bcase 10 to 99c=a*1000+bend selecta)537b)2427c)24328d)240328 答 案：C3 1)执行完下面的程序段后,循环将执行一次。For 1=1.7 To 5.9 Step 0.9a=a+lPrint aNext Ia)3b)4c)5d)6 答 案：C3 2)有如下语句，执行后该段语句的循环次数是0Dim s,I,j as integerFor I=1 to 3For j=3 To 1 Step-1S=I*jNext jNext Ia）9b）10c）3d）4 答 案：A33）有如下程序，该 程 序 将。For 1=1 to 10 step 0K=k+2Next Ia）形成无限循环。b）循环体执行一此后结束循环。c）语法错误。d）循环体不执行即结束循环。答 案：A34）有如下程序段，该程序段执行完毕后，共循环了For 1=1 To 5For j=l To IFor k=j To 4Print aNext kNext jNext Ia)4b)5c)38d)40 答 案：D3 5)有如下程序，该程序的运行结果为 oDim k As Integern=5:m=l:k=lDo While k=nm=m*2k=k+lLoopPrint ma)1b)5c)32d)40 答 案：C3 6)以下程序输出1到1000之间所有的偶数之和，请补充完该程序。Private Sub Command_Click()Dim x As DoubleFor 1=0 To 1000If _Thenx=x+IEnd IfNext IPrint xEnd Suba)i Mod 2=0b)x Mod 2=0c)I Mod 2 0d)x Mod 2 0 答 案：A3 7)以下是计算10的阶乘的程序,请补充该程序。Dim t as singleDim k as Integerk=O:t=lWhile_k=k+lt=t*kWendPrint ta)k10c)k=10d)k=10 答 案：A38)是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。a)文件b）属性C）方法d）窗体 答 案：C39）刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是a）单选按钮b）图片框c）通用对话框d）文本框 答 案：C40）下列各项不是Visual Basic的基本数据类型的是。a）Charb）Stringc）Integerd）Double 答 案：A41）下列运算结果中，值最大的是。a）3W4b）3/4c）4 mod 3d）3 mod 4 答 案：D40）以下不属控件的一项是一。a）文本框b）标签框c）列表框d）消息框 答 案：D42）用 InputBox函数可帮助生成_ _ _ _ _。a）消息框b)保存 对话框c)简单输入框d)颜色 对话框 答 案：C42)_ _ _ _ _ 对象不能响应Click事件。a)列表框b)图片框c)窗体d)计时器 答 案:D43)17 mod 3 的运算结果是一。a)0.5b)1c)1.5d)2 答 案：D4 4)变量X=32769,则变量声明时不能将其声明为a)Integerb)Variantc)Longd)Single 答 案：A4 5)表达式2*3A2+2*8/4+3人 2 的值为。a)64b)31c)49d)22 答 案：B4 6)复选对象是否被选中，是由其属性决定的。a)Checkedb)Valuec)Enabledd)Selected 答 案：B4 7)没有Caption属性的控件是一。a)Labelb)OptionButtonc)Framed)LisBox 答 案：D4 8)下列符号是Visual Basic中合法变量名的是一。a)IFb)7ABc)AB7d)AB_7 答 案：D4 9)使窗体自动向下移动的语句是Mo v e。a)Left,Top+100b)Top+100c)Top+100d)Top=Top+100 答 案：A50)RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB(红，绿，蓝)，括号中红、绿、蓝三基色的成分使用5 2 5 5 之间的整数。若使用3 个滚动条分别输入3 种基色，为保证输入数值有效，则应设置属性。a)Max 和 Minb)SmallChange 和 LargeChangec)Scroll 和 Changed)Value 答 案：A51)控件可以使用SetFocus。方法。a)Frameb)Labelc)TextBoxd)Timer 答 案：C5 2)滚动条单击边上的箭头按钮移动的大小由一设定。a)Changeb)SmallChangec)Scrolld)Tabstop 答 案：B5 3)下 列 程 序 段 的 执 行 结 果 为。N=O:J=1Do Until N2N=N+1J=J+N*(N+1)LoopPrint N;Ja)0 1b)3 7c)3 21d)3 13 答 案：C5 4)下列程序段的执行结果为 oX=6For K=1 To 10 Step-2X=X+KNext KPrint K;Xa)-1 6b)-1 16c)1 6d)11 31 答 案：C5 5)下列程序段的执行结果为K=0For J=1 to 2For I=1 to 3K=1+1Next IFor I=1 to