Vb期末考试题1.pdf

v b期末考试参考 2008-06-13 08:39云南农业大学计算机公共课V B第1套模拟试题一、判断题(判断下列各题正确与否，正 确 的 打 错 误 的 打，每小题1分，共10分)。1、在定义了一个函数后，可以象调用任何一个V B内部函数一样使用它，即可以在任何表达式、语句或函数中引用它。()2、Visual Basic 表达式为：128 4+COS(28)()3、Visual Basic 中的表达式可以写为：3*cos(c+d)入2 或 3*cos(c+d)*cos(c+d)(,()4、使图片框picture控件中的图像自动适应控件的大小应将控件的Strctchc属性设为false。()5、VB6.0中变量名称只能由英文字母、数字和下划线组成。()6、表达式16/4-2八5*8/4MOD52的结果为4。()7、表达式的执行优先顺序中，关系运算优先级高于算术运算。()8.图像框image可以显示图片及用print语句输出的文字。()9.函数Function用来完成特定的功能但不返回相应的结果。()10.设 A=3,B=4,C=5,D=6,计算表达式 AB AND CC 的值是 False()二、单项选择题(每小题2分，共50分)。1、在V B工具箱中，哪一种控制对象可以放置其它控制对象，并具有将其它控制对象分组的功能？()(A)TextBox(B)ChcckBox(C)Frame(D)Label2、程序代码Print 1+2”的执行结果为()(A)1+2(B)3(C)1+2(D)303、下列哪一个是合法的V B变量名称？()(A)MyName(B)CLS(C)5XY(D)Friend.Myo4、V B程序代码A=7 Mod 4+43.2 Mod 7.6运算后可得A=()(A)0(B)7(C)6(D)45、下列Visual Basic程序执行的结果为何？()Dim M(10):K=0:P=10For J=1 To 10If J Mod 3=0 ThenK=K+1M(K)=JElseM(P)=JP=P-1End IfNext JPrint M(3),M(6)(A)9 7(B)3 6(C)6 8(D)4 56、用冒泡排序法，将自小到大排序的数列(5,10,15,20,2 5)排序成由大到小的顺序，需比较多少次？()(A)0(B)5(C)10(D)157、要求改文本框中显示的文本，应当在属性窗口中改变的属性是()。(A)Caption(B)Name(C)Text(D)Label8、后缀为.bas的文件表示()。(A)类模块文件(B)窗体文件(D)窗体二进制数据文件(D)标准类模块文件9、表达式 16/42人5*8/4MOD52()。(A)20(B)14(C)2(D)410、下列赋值语句正确的是()。(A)a+b=c(B)c=a+b(C)-a=b(D)5=a+b11、在V B中，经Dim A(10),B(-2 To 3,4)将总共产生几个数组变量()(A)30 个(B)31 个(C)40 个(D)41 个12、逻辑表达式AB And B Y ThenY=Z:Z=X:X=YIfX +Y=Y*Z ThenPrint AElsePrint nBMEnd IfElseZ=X:X=Y:Y=ZIf Y+Z=X ThenPrintElsePrint nDnEnd IEnd If(A)A(B)B(C)C(D)D16、确定一个控件在窗体上位置的属性是()(A)Width 或 Height(B)Width 和 Height(C)Top 或 Left(D)Top 和 Left17、MsgBox函数的返回值的数据类型是()(A)字符串(B)日期型(C)逻辑型(D)整型18、下列数组声明语句，正确的是()(A)Dim a3,4 As Integer(B)Dim a(3,4)As Integer(C)Dim a(n,n)As Integer(D)Dim a(3 4)As Integer19、要求从文本框中输入密码时在文本框中只显示#号，则应用在此文本框的属性窗口中设置()。(A)Text属性值为#(B)Caption属性值为#(C)Passwordchar 属性值为#(D)Passwordchar 属性值为真20、下列Visual Basic语言程序的执行结果为什么？()For I=1 To 50If I Mod 15=0 ThenN=N+1End IfNext IPrint N=；N(A)N=2(B)N=3(C)N=4(D)N=521、If(54And34)ThenPrintAHElsePrintBnEndlf的执行结果为()(A)A(B)B(C)5(D)322、数学式X+2Y/5写成BASIC表达式为()(A)X+2Y/5(B)X+2*Y/5(C)(X+2Y)/5(D)(X+2*Y)/523、工程文件的扩展名是()。(A)vbg(B)vbp(C)vbw(D)vbl24、在二维数组变量中定义Dim A(3,3),内存会预留多少个元素空间？()(A)10(B)6(C)9(D)1625、以下选项中，不属于文本框的属性是()。(A)Enabled(B)Caption(C)Name(D)Min三、填空题(每小题2分，共20分)。1、要设置定时器的时间间隔为2秒，则属性Interval的值为。2、数学关系84xV 30表示成正确的V B表达式为。3、为了在运行时把当前路径下的图形文件picturcfilc.jpg装入图片框Picturcl,所使用的语句为。4、静态数组是指 是固定不变的数组。5、有如下程序运行后单击窗体，则在窗体上输出 oPrivate Sub Form_Click()Static Sum As IntegerFor 1=1 To 10Sum=Sum+1Next IPrint SumEnd Sub6、执行下列程序，则在窗体上会输出 oPrivate Sub Form_Click()A 二 COMPUTER”PRINT LEFT(A,LEN(A)/2)End Sub7、下列程序执行后，最后打印出Sum的值应为:P=3:Q=4For J=2 To 4For K=1 To 5P=P+KNext KQ=Q+JNext JSum=P+QPrint Sum8、执行下列程序，会打印出：。X=5Y=10Do Until X=0Print X*Y;For I=1 To 5Next IX=X-1Loop9、如下程序运行时单击窗体后，输出的c,k的值分别是：。Private Sub Form_Click()Dim c As Integer,j As Integer,k As Integerk=0c=1For j=1 To 6If j 4 Thenc=c+4Exit ForElsek=k 4-1End IfNext jPrint c,kEnd Sub10、在下列冒泡排序程序中，若希望将数组中的值由大到小排列，则空白中应填入Dim A(5)As IntcgcDim TEMP As IntegerA(l)=1 0:A(2)=7A(3)=34:A(4)=2 4A(5)=1 2F o r I=1 To (5 -1)F o r J=1 To (5 -I)If ThenT E M P =A(J)A =A(J+1)A Q +1)=T E M PE n d IfNex t JNex t IPr in t A(l);A(2);A(3);A(4);A(5)四、编程题(每小题1 0分，共2 0分)。1、设 一个计时程序。由一个文本框(t ex t 1),和两个按钮：开 始(C o m m a n dl)按钮，停 止(C o m m a n d 2)组成。程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数,按停止按钮，则计时停止。单击窗口则退出。要求写出对应事件代码。(1。分)2、“完备数”是指一个数恰好等于它的因子之和，如6的因子为1、2、3,而6=1+2+3,因而6就是完备数。编制程序，找出1至1 0 0 0之间的全部“完备数”并输出显示。(1 0分一、判断题(判断下列各题正确与否，正确的打M,错 误 的 打，每小题1分，共1 0分)。题号 123 456789 1 0答 案 正 确 错 误 正 确 错 误 正 确 正 确 错 误 错 误 错 误 错 误二、单项选择题（每小题2分，共50分）。题号 1 2 3 4 5 6 7 8 9 10答案 C A A C A C C D D B题号 11 12 13 14 15 16 17 18 19 20答案 D B B D A D D B C B题号 21 22 23 24 25答 案B B B D D三、填 空 题（每小题2分，共20分）。题 号1 2 3 4 5答案 2000 8=x AND x30 Picturcl.Picturc=LoadPrcturc（picturcfilc.jpg）数组元素的个数55题 号6 7 8 9 10答案 COMP 61 50 40 30 2010 5 4 A（J）b and bA2c-d的 值 为(11)(A)True(B)Falsc(C)-l(D)112.下面能够作为Visual Basic的表达式的是(12)(A)4*sin(7t)(B)bA2-4ac(C)-b+sqr(dlt)/(2*a*c)(D)cxp(x)+ABS(Y)13.下面程序执行时，当在窗体上单击左键时的输出结果是：(13)Private Sub Form-ClickQDim i As Integer,)As Integers As SingleFor i=6 To 5 Step-1s=0#For 尸i To 4 Step-1s=s+i*jNext jNext iPrint sEnd Sub(A)90(B)45(C)135(D)6014.分别执行以下语句：x=InputBox(aaan,nbbbn)y=MsgBoxC，ccc,0；,ddd,t)输入对话框窗口和消息对话框的标题信息分别为：(14)(A)aaa 和 ccc(B)aaa 和 ddd(C)bbb 和 ccc(D)bbb 和 ddd15.语句 Print 44+66=;44+66 的输出结果为(15)(A)44+66=110(B)44+66=110(C)44+66=;1 44+66(D)44+66=,=44+6616.下列语句中,不正确的打印语句是：(16)(A)Print a=3+5(B)Print a=;3+5n Print 7=3+5”(D)Print a=;3+517.单击滚动条的滚动箭头时,产生的事件是：(17)(A)CUck(B)ScroU(QChange(D)Move18.为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件)，则应将其Interval属性值设置为：(18)(A)5(B)500(C)300(D)500019.要获得当前驱动器应使用驱动器列表框的(1 9)属性。(A)Path(B)Drivc(C)Dir(D)Pattern20.要使组合框设置成只能从中选择而不能输人数据的组合框(下拉式列表框)，则应将其Style属性设置为：(20)(A)0(B)l(C)2(D)321.设窗体的Click事件过程代码如下：Private Sub Form-Click。Dim k As Integer,a As Integerk=lIf kv=l Then a=2*kIf kv=2 Then a=2*k 十 1I f k 2 0,I s 6,1,2 t o 5C a s e l,3 J s 6P r i n tP r i n t ”OK”E n d Se l e c tE n d Se l e c t2 3.对于下面结构的循环语句Do U n t i l 条件循环体l o o p正确的描述是：(2 3)(A)如果 条件 是一个为0的常数，则不执行循环体(B)如果条件是一个为0的常数，则至少执行一次循环体(C)如果条件是一个不为0的常数，则至少执行一次循环体(D)不论条件是否为真，至少要执行一次循环体第5页(共 页)24.设有以下程序段：D i m i As Int eg er,j As Int eg eri=lD o W h i le i 4i=i+lFo r j=5 T o 1 St ep -1P r i nt i*jN ex t jlo o p则其中的语句P r i nt i*j的执行次数是：(A)15(B)16(C)17(D)2025.在窗体上画一个命令按钮(将其名称定为C o m m a n d)编写其Cli c k事件过程代码:P r i v at e Su b C o m m a n d 1-Cli c kQDim m(lTo 10)As Integer,k As IntegerFor k=lTo 10M(k)=ll-KNext kFor k=l To 10Print m(m(k);Next kEnd Sub程序运行时，单击命令按钮时,程序的输出结果是：(A)10 9 8 7 6 5 4 3 2 1 (B)l 3 5 7 9 2 4 6 8 10(C)2 4 6 8 10 1 3 5 7 9 (D)l 2 3 4 5 6 7 8 9 10第6页(共 页)三、填空题(每空2分，共20分)1.与数学表达式lW x=l and x=1002 round（a,4）3#2006-05-11#4-65 错误，下标越界6 12347 BCD8 顺序，分支，循环9 Next jW A(j,i)四、编程题(每题10分，共20分)得 分：1.Private Sub Form-ClickQDim y As Integery=Int(Val(InputBox(“输入年号”输入与)输入年份，2分If(y Mod 4=0 And y Mod 1000)0r(y Mod 400=0)Thcn 判断是否是闰年，6 分Print y;“是闰年”输出结果2分ElsePrint y;“不是闰年”End ifEnd Sub2.Private Sub Command 1 _Click()sa=0:sb=0:sc=0:sd=0For i=1 To 1000ab 二 Rnd:cd 二 RndIf ab 0.35 ThenIf cd 0.3 Then fA B两队比赛，A队获胜ad=RndC D两队比赛，D队获胜If ad 0.4 Thensd=sd+A D 两队比赛，D 队获胜Elses a=sa+1 AD两队比赛，A 队获胜End IfElsea c=Rnd CD 两队比赛，C 队获胜If ad 0.3 Thens a=sa+1 AC两队比赛，A 队获胜Elses c=sc+1 AC两队比赛，C 队获胜End IfEnd IfElseIf cd 0.3 Then AB两队比赛，B 队获胜bd=Rnd*CD两队比赛，D 队获胜If bd 0.3 Thensd=sd+1 BD两队比赛，D 队获胜Elses b=sb+BD 两队比赛，B 队获胜End IfElsebe=RndCD 两队比赛，C 队获胜If be 0.45 Thensb=sb+BC两队比赛，B 队获胜Elses c=sc+1 BC两队比赛，C 队获胜End IfEnd IfEnd IfNext iPrint nA 胜:“；sa,B 胜:；sb,C 胜sc,D 胜:；sdEnd Sub云南农业大学计算机公共课VB第 3 套模拟题判 断 题（每题1 分，共 10分）1.所有控件都有Name属性，其值不能为空。A.对 B.错2.打开属性窗口的热键是F5。A.对 B.错3.bas是标准模块文件的扩展名。A.对 B.错4.使 用 Redim语句可以改变数组的类型。A.对 B.错5.若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型。A.对B.错6.对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定。A.对 B.错7.在Visual Basic中，运算符中优先级最高的是MOD。A.对 B.错8.文本框的Caption属性是返回或设置文本框中的内容。A.对 B.错9.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递。A.对 B.错10.事件可以由用户引发，也可以由系统引发。A.对 B.错二.单 选 题(每 题2分，共50分)。1.要使一个文本椎可以显示多行文本，应设置为True的属性是 oA.Enablcd B.MultiLinc C.MaxLcnth D.Width2.设在窗体Form l上有一个列表框Listl,其中有若干个项目。要求单击列表框中某一项时,把该项显示在窗体上，正 确 的 事 件 过 程 是=A.Private Sub Listl_Click()B.Private Sub Forml Click。Print Listl.TextPrint Listl.TextEnd SubEnd SubC.Privatc Sub Listl_ClickQD.Private Sub Forml_Click()Print Forml.TextListl.Print Listl.TextEnd SubEnd Sub3.设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件Fileljp g,能 实 现 此 功 能 的 语 句 是。A.Picturel.Picture=w Fliel.jpgB.Picture!.Picture=LoadPicture(Filel.jpg)C.LoadPicture(Filel.jpg)D.Call LoadPicture(b+l Or cd And b Mod cA.True B.1 C.-1 D.07.以下关于函数过程的叙述中，正确的是 oA.如果不指明函数过程参数的类型，则该参数没有数据类型B.函数过程的返回值可以有多个C.当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D.函数过程形参的类型与函数返回值的类型没有关系8.假定有如下事件过程：Private Sub Form_Click()Dim x As Integer,n As Integerx=1n=0Do While x d),“A”，“B )后，X的值为 oA.a B.b C.B D.A 1 1 .执行以下程序段D i m i A s I n t e g e r,x A s I n t e g e rx =0F o r i =2 0 T o 1 S t e p -2x 二 x +i 5N e x tP r i n t x后，x的值为 cA.1 6 B.1 7 C.1 8 D.1 91 2.在窗体上画一个名称为C o m m a n d l的命令按钮，然后编写如下通用过程和命令按钮的事件过程：P r i v a t e F u n c t i o n f u n (B y V a i m A s I n t e g e r)I f m M o d 2 =0 T h e nf u n =2E l s efun1End IfEnd FunctionPrivate Sub Command 1 _Click0Dim i As Integer,s As Integers=0For i=1 To 5s=s+fun(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是 OA.6 B.7 C.8 D.913.1个二维数组可以存放1个矩形，在程序开始有语句Option Base 0,则下面定义的数组中正好可以存放1个4*3矩阵(即只有12个元素)的是。A.Dim a(-2 To 0,2)AS Integer B.Dim a(3,2)AS IngegerC.Dim a(4,3)AS Ingeger.D.Dim a(-l To-4,-1 To-3)AS Ingeger14.在窗体上画一个名称为T cxtl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程Private Sub Commandl_ClickQTcxtl.Text=VisualMc.Tcxtl=Basic”Textl=Program”End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是 OA.Visual B.Basic C.Program D.出错15.如果要在菜单中添加一个分隔线，则应将其Caption属 性 设 置 为。A=B*C.&D.-16.在窗体上画一个名称为Commandl的命令按钮和两个名称分别为TcxtRTcxt2的文本框,然后编写如下事件过程：Private Sub Command 1 _Click0n 二 Textl.TextSelect Case nCase 1 To 20 x=10Case 2,4,6x=20Case Is 10 x=30Case 10 x=40End SelectTcxt2.Tcxt=xEnd Sub程序运行后，如果在文本框T ex tl中输入1 0,然后单击命令按钮，则在Text2中显示的内容是。A.10 B.20 C.30 D.4017.以下控件中没有Caption属 性 的 一 项 是。A.标签框 B.文本框 C.框架 D.命令按钮18.下来程序段执行结果为 oX=2Y=1If X*Y0A.TRUE B.FALSE C.-l D.l19.以下关于选项按钮的说法，正确的是 oA.选项按钮的Enabled属性用于决定该按钮是否被选中B.选项按钮的Value属性用于决定该按钮是否被选中C.选项按钮的Shcckcd属性用于决定该按钮是否被选中D.选项按钮的Visible属性用于决定该按钮是否被选中2 0.下 列 程 序 段 的 执 行 结 果 为。X=2Print X+1;X+1A.3 3 B.X+l X+l C.3 4 D.2+1 2+12 1.下列叙述不正确的是 oA.注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译B.注释语句可以放在代码中的任何位置C.注释语句不能放在续行符的后面D.代码中加入注释语句的目的是提高程序的可读性22.下列程序段的执行结果为 oDim M(10)For 1=0 To 10M(D=2*iNext IPrint M(M(3)A.12 B.6 C.0 D.423.下列程序段的执行结果为 oX=6For k=1 to 10 step-2X=x+kNext kPrint k;xA.-1 6 B.-l 16 C.1 6 D.11 3124.当标签的标题内容太长，需要根据标签自动调整标签的大小时，应设置标签的属性为TrucoA.AutoSize B.Wordwrap C.Enabled D.Visible25.下列程序段的执行结果为 oA=75If A60 Then 1=1If A70 Then 1=2If A80 Then 1=3If A90 Then 1=4Print 1=；IA.I=1 B.I=2 C.I=3 D.I=4三.填 空 题(每 空 2 分，共 20分)。1.Visual Basic采用 驱动编程机制，程序员只需要编写响应用户动作的程序，而不必考虑按精确次序执行的每一个步骤。2.表达式val(.123e2a)的值为。3.为了使计时器控件Timcrl每隔0.5秒触发一次Timer事件，应将Timcrl控件的 属性设置为 04.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_ClickQTcxtl.Tcxt=VB 程序设计“End SubPrivate Sub Textl_Change()Picture 1.Print nVB Programming”End Sub程序运行后，单击窗体，则 在 文 本 框 中 显 示 的 内 容 是,而在图片框中显示的内容是.5.执行下列程序段后n=j=on=0For i=l to 3For j=5 to 1 step-1n=n+lNext j,iPrint n;j;i6.下面程序的作用是利用随机函数产生10个 100200之 间(包 含 100、20 0)的随机数，打印其中为5 的倍数的数，并求出它们的总和。请将下列程序补充完整。Private Sub Command 1 _ClickQFor m=1 To 10 x=Int(Rnd*+100)If ThenPrint x;kl=kl+xEnd IfNext mPrint kl=H;klEnd Sub四.编 程 题(每 题 10分，共 20分)。1.编程实现如下函数：y-2.编程求 1+(1+32)+(1+32+52)+(1+32+52+992)的和。参考答案一.判 断 题（每题1分，共10分）。AB ABB BB BBA二.单 选 题（每题2分，共50分）。BABDC DDAAD CBBDD ABBBA BACAB 三.填 空 题（每题 2 分，共 20 分）1.事 件2.12.33.interval 5004.VB 程序设计 VB Programming5.15 06.101 m mod 5=0四.程 序 设 计 题（每题10分，共20分）1.Private Sub Command 1-Click。Dim x As SingleDim y As Singlex=ValQnputBcx（“请输入数”）If x=-100 And x=0 And x 100 And x=200 Theny=400End IfPrint yEnd Sub2.Private Sub Commandl_Click()Dim i As IntegerDim t As LongDim s As Longt=0:s=0For i=1 To 100 Step 2t=t+i 人 2s=s+tNextPrint sEnd Sub云南农业大学计算机公共课VB第四套模拟题一、单项选择题。(共50分，每小题2.5分)。1.要使文本框获得输入焦点,则应采用文本框控件的哪个方法？()(A)GotFocus(B)LostFocus keypress(D)SctFocus2.要把一个命令按钮设置成无效，应设置其哪一属性值？（）(A)Visible(B)Enabled(QDefault(D)Cancel3.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是：()(A)Value(B)Cancel(C)Enabled(D)Default4.下面给出的符号中，能作为Visual Basic的变量名的是：()(A)ABS(B)4A12(C)AA_123(D)BB%5.下面能够作为Visual Basic的表达式的是：()(A)4sin(力 (B)b人2-4ac(C)-b+sqr(dlt)/(2*a*c)(D)cxp(x)4-ABS(Y)6.下列不支持Print方法的是：()(A)图片框控件(B)窗体(C)打印机(D)文本框控件7 .下列语句中,不正确的打印语句是：()(A)Print a=3+5(B)Print Ha=;3+5n(C)Print a=3+5n(D)Print a=;3+58.设有赋值语句Sttl=abcdc”和Str2=”xyz”,则语句Print Strl;Str2的输出结果为：()(A)abede 1-1 xyz(B)abedexyz(C)-abede 1 xyz(D)11 abede 11 1 1 xyz 1-19.语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是：()(A)12(B)60(C)120(D)34510.Print sgn(20)*sqr(3)sqK2)的输出结果为：()(A)l(B)False(QTruc(D)011.Print Format(abs(-3A2)4-32.5,$S#,#.000”)的输出结果为：()(A)$41.5000(B)$41.500(C)$000041.5000(D)$000041.500012.InputBox函数的返回值的类型是：()(A)数值(B)字符类型(C)变体(D)数值或字符串(视输入的数据而定)13.设计一个程序，在程序中添加一个名称为Form l的窗体，添加窗体的Click事件过程代码，Private sub Form-ClickQDim x As Single,y As SingleX=InputBox(输入第一个数据，输入数据)y=InputBox(输人第二个数据，输入数据)Print x+yEnd Sub程序运行时，单击窗体，先后在两个输入对话框中输入123和456,则程序的输出结果为：()(A)123456(B)123(C)579(D)45614.列表框中的列表项的数目可通过以下哪个属性的值获得：()(A)Count(B)Listcount(C)Listindex(D)Index15.为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件)，则应将其Interval属性值设置为：()(A)5(B)500(C)300(D)500016.设窗体的Click事件过程代码如下：Private Sub Form-ClickQDim k As Integer,a As Integerk=lIf k20,Is20Print nOI6,1,2 to 5Case l,3Js6Print”OK”Print”OK”End Select End Select18.程序运行时，在窗体上单击左键，则输出结果为：()Private Sub Form-clickQDim m As Integer,n as Integer,j as integer,k As Integern=0For m=l To 3For j=l TomFor k=j To3n二n+1Next k,j,mPrint nEnd Sub(A)6(B)10(C)14(D)2119.设有以下程序段：Dim i As Integer,j As Integeri=lDo While i Forml.Width Then(9)Else(10)End ifEnd sub三、是 非 题(共 10分，每空1 分)。1.vb程序设计语言是结构化语言。A.对B.错2.v b程序设计语言是机器语言。A.对 B.错3.v b程序设计语言不能操作数据库。A.对 B.错4.CLS方法能清除窗体上的所有文字和图片。A.对 B.错5.M O V E方法只能移动对象而不能改变对象的大小。A.对 B.错6.V B语言中一共只有19个控件。A.对 B.错7.V B语言只有一种状态，就是运行状态。A.对 B.错8.在运行状态下可以对代码进行更改。A.对 B.错9.V B程序设计语言的编程机制是事件驱动程序机制。A.对 B.错10.T im e函数的作用是返回当前系统的日期和时间。A.对 B.错四、综合应用题（共2 0分）。1.定义两个整型变量a、b,为a,b分别赋值为20,30。然后交换两个变量的值，并且输出到窗体上。2.产生50个 5,500 之间的随机整数，每 10个一行输出到窗体上，并求出这50个数中能被3或 7 整除的数的个数，输出到窗体上。一、单项选择题。（共 50分，每小题2.5分）。1 2 3 4 5 6 7 8 9 10D B D C D D D B C C11 12 13 14 15 16 17 18 18 20B B C B D C D C A B二、填 空 题（共 20分，每空2 分）。1 2 3 4 56 5 中断对象事件驱动6 7 8 9 10 Labcll.Lcft=cmdl Click X Labell.Left=0 Labcll.Left+100三、是 非 题（共 10分，每空1 分）。1 2 3 4 5B B B B B6 7 8 9 10B B B A B四、（共 20分，每题10分）。1.（1。分）Dim a As Integer,b As IntegerDim t As Integera=20:b=30t=a:a=b:b=tPrint a,b2.(10 分)Dim A(1 To 50)As IntegerDim n As IntegerFor i=l To 50A(i)=int(rnd*495)+5Print A;If I mod 10=0 ThenPrintEnd IfIf A(i)Mod 3=0 Or A(i)Mod 7=0 Thenn=n+lEnd ifNext iPrint n云南农业大学计算机公共课VB第五套模拟题一、选择题(每题2 分，共 50分)1.在正确的安装VB后，可以通过多种方式启动V B,在以下方式中不能启动VB的 是（）A.通 过“开始”菜单中的“程序”命令B.通 过“我的电脑 找到VB6.exe,双击该文件名C.通 过“开始”菜单中的“运行”命令D.进入DQS方式，执行VB6.exe2.VB窗体设计器的主要功能是（）A.建立用户界面B.编写源程序代码C.添 加 图 D.显示文字3.同时改变一个适动控件的高度和宽度，正确的操作是（）A.拖拉控件4 个角上的某个小方块B.只能拖拉位于控件右下角的小方块C.只能拖拉位于控件左下角的小方块D.不能同时改变控件的高度和宽度4.下列变量命名正确的是（）A.myfilc B.vb 1 C.page 2 D.cmd.l5.以下关于变量类型说明符的使用正确的是（）A.Dim a%:a=9000 B.Dim a:a=2000%C.Dim a:a#=OK D.Dim a:a&=True6.DataTime是一个Data类型的变量，以下赋值语句中错误的是（）A.DataTimc=#5/14/01#B.DataTimc=#Scptembcr 1,2001#C.DataTimc=#l2:15:00 AM#D.*8/8/99”7.语句 Print Sgn（-6-2）+Abs（-6八 2）+Int（-6八 2）的输出结果是（）A.-36 B.1 C.-1 D.-728.窗体上有一组合框 Combol,并将下列项“Chardonnay、FunBlanc、Gcwrzt”和Zinfande”放置到组合框中，当窗体加载时的代码如下:Private Sub Form_Load()Combo 1 .Additem Chardonnay”Combo 1 .Additem FunBlanc”Combo 1 .Additem“Gewrzt”Combo 1 .AddItem nZinfandenEnd Sub要在文本框T cxtl中显示列表中的第三个项目的正确语句是()A.Tcxtl.Tcxt=Combol.List(O)B.Tcxtl.Tcxt=Combol.List(l)C.Tcxtl.Tcxt=Combol.List(2)D.Tcxtl.Tcxt=Combo 1 .List(3)9.假定窗体上有一个文本框，名为T x tl,为了使该文本框的内容能够换行，并且具有水平的垂直滚动条，正确的属性设置为()A.Txtl.MultiLinc=True B.Txtl.MultiLinc 二 TrueTxtl.ScrollBars 二 0 Txtl.ScrollBars=3C.Txtl.MultiLinc=False D.Txtl.MultiLinc=FalseTxtl.ScrollBars=0 Txtl.ScrollBars=310.执行下面的语句后，所产生的信息框的标题是()a=MsgBox(AAAA,BBBB,5)A.BBBB B.空 C.AAAA D.出错，不能产生信息框11.为了 了取消窗体的最大化功能，需要把它的一个属性设置为False,这个属性是()A.ControlBox B.MinButton C.Enabled D.MaxButton12.当拖动滚动条中的滚动块时，将触发滚动条的事件是()A.Move B.Change C.Scoll D.SetFocus13.下列可以把当前目录下的图形文件picl.jpg装入图片框Picturel中的语句是()A.picture=pic1.j