VB期末考试试题一.pdf

《VB期末考试试题一.pdf》由会员分享，可在线阅读，更多相关《VB期末考试试题一.pdf（15页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、VB期末考试试题一、填空题1、VB程序设计的主要特点是 可视化设计 和 事件驱动编程 o2、在 V B 中，最 主 要 的 两 种 对 象 是 窗 体（form）和控件。3、工程是构成应用程序文件的 集合 o4、方法是VB提供的一种 特殊子程序，用来完成一定的操作。5、浮点类型数据包括单精度型和一双精度数据。6、事件是窗体或控件对象识别的 动作。7、可用窗体的 Print_ 方法在窗体中显示文字。8、复选框控件Value属性指示复选框处于选中 或禁止状态（暗淡的）中的某一种。9、在 V B 中，修改窗体的 高 度（Height）和 宽 度（Width）属性值，可改变窗体的大小。10、双击工具箱

2、中的控件图标，可在窗体的 中 央 出现-一个尺寸为缺省值的控件。11、在 MsgBox函数中，如果缺省title参数，则使用 工 程 1作为消息框的标题。12、设 x=3 4.5 8,语句 Print Format（x,“000.0）的输出结果是（34.6）。13、在 V B 中，数值型变量的初值为（0）,Varant型 变 量 的 初 值 为（空），布尔型变量的初值为（False）。14、设置窗体的（Picture）属性，可在窗体上显示图片。15、程序运行工程中，清除M P图片框中的图片应使用语句（Cis）。二、选择题1、菜单控件只包括一个事件，即（C）,当用鼠标单击或键盘选中后按“回车”键

3、时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。A、GotFocus B、Load C、Click D、KeyDown2、滚动条控件（如图所示）的 Max属性所设置的是（A）。A、滚动框处于最右位置时，个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句 Select*Form student 中的*表示（B）。A、所有记录 B、所有字段 C、所有表 D、都不对4、以下选项中，不属于标签的属性是（C）。A、Enabled B、Caption C、

4、Default D、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（A）。A、Caption B、Name C、Text D、Label6、设置个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（D）。A、Caption B、Name C、Text D、Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？（D）。A、在标题项中输入&,然后打勾 B、在索引项中打勾C、在有效项中打勾 D、在复选项中打勾8、当执行以下过程时，在窗体上将显示（A）。Private Sub Command l_Click()Print nVBn;

5、Print“Hello!”；Print HVBMEnd SubA、VBHelloJVB B、VBHelloJVBC、VBD、Hello!VBVBHello!VB9、语句 Print nThe answer is:n;20/4-2 的结果为（B）A、The answer is 20/4-2 B、The answer is 3C、The answer is H20/4-2n D、非法语句10、下列哪个控件是容器控件（B）。A、Image B、Picture C、ComboBox D、FileListBox11、若要将窗体从内存中卸载出去，其实现的方法是（D）oA.Show B.Hide C.Loa

6、d D.UnLoad12、以下选项中，不 是 Visual Basic控件的是（A）。A.窗体 B.定时器 C.单选框 D.命令按钮13、双击窗体中的对象后，Visual Basic将显示的窗口是（A）。A.代码窗口 B.工具箱 C.项 目（工程）窗口 D.属性窗口14、可决定窗体的左上角是否有控制菜单的属性是（A）。A.ControlBox B.Min ButtonC.MaxButton D.BorderStyle15、设有如下语句：Strl=InputBox（输人，叫 练 习 ）从键盘上输人字符“示例”后，Strl的值是（D）。A.“输入 B.C.“练习”D.“示例”16、窗体Form l

7、的 Name属性是Frml,它的单击事件过程名是（C）A.Forml_Click B.Form Click C.Frml Click D.Me CIick17窗体的hide属性的含义是（A）。A.隐藏 B.展现 C.装入 D.卸载18、若要设置定时器控件的定时时间，需设置的属性是（C）oA.Enabled B.Value C.Interval D.Text19、能够改变复选框中背景颜色的属性是（C）oA.Value B.FontColor C.BackColor D.Font20、窗体能响应的事件是（B）oA.ActiveForm B.Load C.Drive D.Change三、判断题（判断

8、下列正确与否，正确的打4,错误的打X。）1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。X2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。X3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名 字 X4、通过改变属性窗口中的Name属性，来改变窗体的标题。5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。X6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。47 已知 P=MsgBox(Howareyou?,VbYesNo+VbQuestion)“Hello!”),变量 P 是

9、 Integer 数据类型。8、工程文件的扩展名是.vbg。49、V B允许设计和使用用户自己设计的控件。410、OptionButton 控件没有 DbICliek 事件。X11、同一条记录中的各数据具有相同的类型。412、使用Data控件可以直接显示数据库中的数据。X13 ImageList是一个图像容器控件，可用作工具栏的图像库。714、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。15、在 V B 的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除(真正删除)。X16、如果列表框的ListConut的属性为1 0,则列表框最后一项的Lis

10、tindex值 为 10。X17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。Y18、使用数组定义语句：Dim DS(1 0),则数组D 中各元素的值为空。X19、如果在一行中输入多条语句，各语句之间用使用；分隔。X20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。4四、读程序题，写出程序运行结果1、Private Sub Form_Click()Static SUM As Integer1=1Do While I=10SUM=SUM+I1 =1+1LoopPrint SUMEnd Sub运行程序，第一次单击窗体：55第二次单

11、击窗体：1102、Private Sub Form_Click()Print Tab(6);2,Tab(15);5PrintFor 1=15 To 16Print I;For j=2 To 6 Step 3Print Tab(3*j);j*I;Next jPrintNext IEnd Sub程序运行结果：*2 515 30 7516 32 80五、编程题(一)窗体中有图片框(Picture】)和计时器(Timerl)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2 秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动lOOtwip(2 0 分之一像素)。请填空：Private Su

12、b Form_load()(Picture】.Picture)=loadPicture(“c:picball.ico)(Timer 1).Interval=200End SubPrivate Sub Timer 1 Timer(x)Static x,y As Integerx=x+100y=y+100Picture l.Move(y)End Sub(二)有个单击按钮过程，其作用是产生50个 60 100的随机数，统计其中被6 整除余 2 的个数，并将这些数输出。请填空：Private Sub Command 1 _Click()Dim x As Integer,N%Dim Counter As

13、 Integer(Randomize)TimerFor N=1 To 50X=Rnd()*(41+60)If(x Mod 6)=2 ThenPrint xCounter=(Counter+1)(End If)Next NPrint CounterEnd Sub大一的V b期末考试题和答案1.在代码中引用一个控件时，应使用控件的(b)属性。A.Caption B.Name C.Text D.Index2.设 变 量x=4,y=-1,a=7,b=8,下 面 表 达 式(a）的值为“假”。A.x+a 0 AND y yD.x+y a+b AND NOT(y b)3.表 达 式lnt（Rnd*71）+

14、10产生的随机整数范围是（C)oA.(10,80)B.(10,81)C.10,80D.10,814.函 数Sgn（3.1416）的 返 回 值 是（c)oA.-1B.0C.1D.以上都不对5.67890属 于（d）类型数据。A.整型B.单精度浮点数C.货币型D.长整型6.卜.列变量名中正确的是(d)o7.D.8.9.A.3SB.PrintC.SelectMy NameD.Select 1下 列 赋值语句（aA.sum=sum-sumlast=y/0)是有效的。B.x+2=x+2C.x+y=sum以下的控件或方法具有输入和输出双重功能的为（A.PrintB.Textboxb)oC.Optionb

15、uttonD.Checkbox若要获得列表框中被选中的列表项的内容，可以通过访问(d）属性来实现。A.NameB.ListindexC.ListCountD.Text1 0.下列代码的运行结果为（b）oPrivate Sub command1_click()Dim m(10)For k=1 To 10m(k)=11-kNext kx=5Print m(2+m(x)End SubA.2 B.3 C.4 D.5二、填 空 题（10分）6 .要 使 标 签 的 大 小 自 动 与 所 显 示 的 文 本 相 适 应，可 以 通 过 设 置属性为True来实现。7.若要在一行书写多条语句，则各语句间应

16、加分隔符，Visual Basic的语句分隔符为。8.要强制显式声明变量，使用 语句完成。9.在 V B 中，用户定义常量使用 语句，声明变量使用 语句。三、将下列数学表达式转换为V B表达式。（6分）1.a2+2ab+b2 _3.8exln10 _4.2sin（450）cos（450）_四、判断题，正确打7”,错误打“x”（10分）1.在 V B 中，控件的事件只能通过用户的操作触发。（）2.字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。（）3.保存工程时，窗体文件和工程文件的文件名不能相同。（）4.改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。（）5.同一过程中

17、，数组和简单变量可以同名。（）6.V B 函数中的参数可以是常量、变量、表达式，还可以是另一个函数。（）7.代码 Const Number1=15：Number1=10合法。（）8.允许将块If-Then语句结构中的所有语句都写在一行上（）9.定义数组语句Dim a（b）As Integer是正确的（）10.在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。（）五、根据题意，将下列程序补充完整。（16分）1.产生20个10,100 之间的随机整数，每行输出10个数据。Private Sub command1_cl

18、ick()Dim a(1 To 20)As IntegerRandomizei=0Do While i 10 Then Print a(i);LoopEnd Sub2.打印九九乘法表Private Sub command1_click()For i=1 To 9Forj=1To9Print()Next jPrint()End Sub3.判断一个数是否素数Private Sub command1_click()x=lnputBox(请输入一个整数”)flag=1For i=2 To(If x Mod i=0 Thenflag=0End IfNext iIf()Then Print x;是素数”日

19、se Print x;不是素数”End Sub4.利用数组输出Fibonacci数列的前15项。该数列的第1项和第2项为1,其余各项均为其前两项之和。Private Sub Command1_Click()()f(1)=1 :f(2)=1Listl.Additem f(1):Listl.Additem f(2)Fori=3To15f(i)=()Listl.AddItem f(i)Next iEnd Sub六、写出下面程序的输出结果。(每题3分，共18分)1.Private Sub command1_click()x=lnputBox(Henter x)V x 的输入值为-8Select Cas

20、e Sgn(x)+2Case 1Pr i n t xA2+1Case 2Print,y=；x-4Case 3Print Hy=;xA3+100End SelectEnd Sub2.Private Sub command1_click()Dim a,b,c,d,e As Stringa=Zheng Zhoub=Zhong Yuan Gong Xue Yuanc=a+bd=Left(a,1)+Mid(a,7,1)e=Left(b,1)+Mid(b,12,1)Print cPrint d;eEnd Sub3.设有Sub过程：Private Sub p1(x As Integer,By Vai y A

21、s Integer)x=4：y=5：z=6End Sub则如下程序段的运行结果是：Private Sub Command1_Click()Dim x As Integer,y As Integerx=1:y=2:z=3Print x,y,zCall p1(x,y)Print x,y,zEnd Sub4.Private Sub command1_click()k=0For i=1 To 3k=k+1a=i*i*kPrint a;Next iEnd Sub5.Private Sub command1_click()Dim a(5,5)As IntegerFor i=1 To 5Forj=1 To

22、5a(i,j)=i*2+jPrint a(i,j);Next jPrintNext iEnd Sub6.设有Function过程：Private Function f1(b,a)a=a*a:b =b*bf1=a-bEnd Function则如下程序段的运行结果是什么？Private Sub command1_click()a=4:b=3a=f1(a,b)Print aEnd Sub七.编 程 题（共30分）1.给出一个百分制的成绩，要求输出成绩的相应等级。（7分）90分以上为“A”,8089分为“B”，7079分为“C”，6069分为“D”，60分以下为“E”。2.求 n!,n由键盘输入。（7

23、分）3.产生20个 0,99 之间的随机整数，并按从小到大的顺序输出。（8分）4.产生并输出一个6x6的二维数组A：（8分）（1）两条对角线上元素的值为1,其余元素为小于30的随机整数。（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。5.输出1+2+100的和，并求出1 1 0 0 之间能被17整除的数据的个数（8分）6.从键盘输入10个数，求出其中的最大数，最小数和平均值。（8分）V B试题答案及评分标准一、1.B 2.A 3.C 4.C 5.D 6.D 7.A 8.B 9.D 10.B二、1.n Mod 13=0 And n Mod 17=0 2、对象 3.LEFT(Visu

24、al Basic 6.0”,6)4.6 5.False 6.Autosize 7.：8.Option Explict 9.Const Dim三、1、aA2+2*a*b+bA2 2、x(1/3)*y(1/4)3、8*exp(x)*log(10)4、2*sin(3.1416/4)*cos(3.1416/4)5、(x+y+z)/sqr(xA2+yA2+zA2)6、log(1+abs(a+b)/(a-b)四、1.x 2.4 3.x 4.4 5,x6.4 7.x 8.x 9.x 10.4五、1.(1)int(rnd*91)+10(2)l10 2.(1)i*j(2)next i3.(1 )int(sqr(

25、x)或者 x1 (2)flag=1 4.(1)dim f(15)as integer(2)f(l-1)+f(l-2)六、1、y=65 2、Zheng Zhou Zhong Yuan Gong Xue Yuan 2分ZZZG 2 分3.1 2 34 2 3 4.1 8 275.3 4 5 6 75 6 7 8 97 8 9 10 119 10 11 12 1311 12 13 14 15 6.七、1.private sub command 1_click()dim x as integer,grade as string 1 分x=text1.text 1 分select case x 4分ca

26、se 90 to 100grade=Acase 80 to 89grade=,BMcase 70 to 79grade-C”case 60 to 69gradehD”case is a(j)Thent=a(i):a(i)=aQ):aQ)=tEnd IfNext jNext iFor i=1 To 20 2分Print a(i);Next iEnd Sub4.Private Sub Command1_Click()Dim a(1 To 6,1 To 6)As Integer V 1 分Dim aver As SingleRandomizeFor i=1 To 6 3分Forj=1 lb 6If i=j Or i+j=7 Thena(i,j)=1Elsea(i,j)=lnt(Rnd*30)End IfPrint a(i,j);Next jPrintNext iPrintMax=0:Min=30 4分For i=1 To 6s=0Forj=1To6s=s+a(i,j)Next javer=s/6If aver Max Then Max=aver:row_max=IIf aver Max Then Max=xIf x Min Then Min=xNext iP rin ts/10 1 分Print Max,Min 1 分End Sub