VB期末考试试题(A、B卷)　.pdf

VB期末考试试题（A卷）一、选择题1 .要改变控件的宽度，应修改该控件的（B）属f t oA、T O P B、wi d t h C、L e f t D、H e i g h t2 .将命令按钮Co m m a n d 1设置为不可见，应修改该命令按钮的（A）属性。A、Vi s i b l e B、Va l ue C、Ca p t i o n D、En a b l e d3.单机滚动条两端的任何一个滚动箭头，将触发该滚动条的（C）事件。A、S c r o l l B、K e yDo wn C、c h a n g e D、Dr a g ve r4.（D）对象具有c l e a r方法。A、图片框 B、窗体 C、复选框 D、列表框5.中心定义图片框控件的坐标系统，可采用该图片框的（A）A、s c a l e B、S c a l e X C、s c a l e Y D s e t Fo c us6.将通过对话框Co m m d Di a l o g l的类型设置成另存为对话框，可调用该控件的（B）方法。A、S h o wo p e n B、S h o ws a ve C S h o wCo l o r DS h o wFo n t7.形状控件所显示的图形不可能是（D）A、圆B、椭圆 C、圆角正方形 D、等边三角形8 .由 Fr o K=1 0 T O o s l e p t 3：n e xt K 循环语句控件的循环次数是（B）A、1 2 B、0 C、-1 1 D、-1 09.下列数据类型中，占用内存最大值是（D）A、Bo o I wa n B、Byt e C、L n t e g e r D、S i n g l e1 0.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（C）属性决定了该图片的颜色。A、Ba c k Co l r o B、Fo r e l k l o r C、Fi l l c o l o r D、Dl a ws t yl e一、选择题1.要在垂直位置上移动控件，应利用控件的（C）属性。A、L e f t B、Wi d t h C、T o p D、H e i g h t2 .要在文本框中的文本显示掩码(密码)符，在属性设置时，首先必须设置(D)属性为Fa l s e。A、T xe t B、En a b l e d C、Vi s i b l e D、M ul t l i n e3 .用键盘的光标键选中某一菜单项，并按回车触发菜单 的(C)的事件。A、K e yP r e s s B、K e yDo wn C、Cl i c k D K e yl l p4 .-F(D)对象求具有Cl e a r 方法。A、列 表 框 B、组合框 C、剪贴框 D、图片框5.软件列表中设定“文件列表”显示文件类型应改该控件的(D)属性。A、P a t h B、Fi l e N a m e C、N a m e D P a t t e r w6.组合框有三种风格，它优J 由S t yl e 属性所决定，其中为简单组合框时，S t yl e 属性值应为(B)A、0 B、1 C、2 D、37.下列可调整图片框的大小以适合图片的属性是(B)A S t r e t c h B、a ut o s i z e C、p i c t ur e D o l e d r o p m o d e8 .要想清除文本框中的内容则可利用(A)进行。A、Ca p t i o n B、T e xt C、Cl e a r D Ci s9 .下列表达式中，其值为0的 是(C)A、7/9 B、7m o d 1 5 C、7 9 D、1 5 m o d 91 0 .求以1 0 为底X 的常用对数的表达式为(A)A、L o G (X)/L o G (1 0)B、L N (X)C、L o G (X)/L o G(E)D、L o G (X)二、填空题(每空2 分，共 2 0 分)1 .代数式的Vi s ua l Ba s i c 表达式是s q r(x/3+e x p(-6)*l o g(y)*a t n(a*3.1 4 1 5 9/1 8 0)/(x*x+y*y)2 .设 x=2,y=4,a=4,b=6,表达式(a x X o r b x)O Rx y I M P y l xor b l。4.把条件为1 x 5 写成VB表达式为:xl andx0)o求出其中的偶数之和，并在标签框Laboll上显示。程序写在命令按钮Commandl的click事件中。Private Sub Commandl_Click()Dim n As IntegerDim i As Integer,sum As Longn=Vai(InputBox(Please input a integer”,“Input N valuez/)For i=1 To nrnddat=(10+Int(90*Rnd)If rnddat Mod 2=0 Thensum=sum+rnddatEnd IfNext iLabel1.Caption=sumEnd Sub2 由输入对话框中输入100个数值数据，放入数组a,将其中的整数放入数组b,然后运用选择分类将数组b中的数据按从大到小的顺序排列，并以每行5 个数据在窗体上输出。注：程序写在窗体form的 click事件上。Private Sub Form_Click()Dim a(l To 100)一Dim b()as integerDim i As Integer,j As Integer,k As Integer,posAs Integer,temp as integerFor i=1 To 100a(i)=Vai(InputBox(Please input data)If a(i)=Int(a(i)ThenJ=j+1ReDim Preserve b(j)b(j)=a(i)End IfNext iFor k=1 To j-1pos=kFor m=k To jIf b(m)b(pos)Then pos=mNext mIf k pos Thentemp=b(k)b(k)=b(pos)b(pos)=tempEnd IfNext kFor k=1 To jIf k Mod 5=0 Then Print b(k)Else Print b(k);Next kEnd Sub四、程序阅读题（每小题6分，共 1 8 分）1 .程 序 1 ：D i m Y A s I n t e g e rP r i v a t e S t u b C o m m a n d C l i c k ()D i m X A s I n t e g e rX=1Y 二 1C a l l A A(Y+1)Z=B B(X)P r i n t X,Y,ZEn d S u bP r i v a t eY =ZZ 二 XEn d S u bP r i v a t eY 二 YS u b A A (B y V a i Z A s I n t e g e r)+X+YF u n c t i o n B B (B y R e f Y A s I n t e g e r)+1B B=X +YEn d F u n c t i o n2 )2 .程序2：p r i v a t e s u b F o r m c l i c k()N 二 3结果:2 2D i m A(3,3)A s I n t e g e rF o r I =I T o NF o r J =I T o NA(I,J)二(J -1)*N +N e x t JN e x t IF o r I =2 T o NF o r J =1 T o I -1T EM P =A(I,J)A(I,J)=A (J,I)A (J,I)二 T EM PN e x t JN e x t IF o r X =1 T o NP r i n t X,A(X,N +X -I),A(X,N e x t XEn d S u b 结果：(1 0/2 7 13 11 3.程 序 3：P r i v a t e S u b F o r m c l i c k OD i m f l A s I n t e g e r,f 2 A sI n t e g e rO p e n c:a l.d a t F o r O u t p u tf l=2:f 2=3P r i n t ；3,f lP r i n t ；4,f 2F o r 1=5 T o 7f 3=f l+f 2P r i n t#1,N 0.；I,f 3f l 二 f 2f 2 =f 3N e x t IC l o s e#1X)I2)I n t e g e r,f 3 A sA s#1En d S u b写出文件a l.d a t的最终结果。(NO.3 2NO.4 3NO.5 5NO.6 8NO.7 13)五、程序填空题(每小题9分，共1 8分)1.从计算机输入三个数，找出中间数P r i v a t e S u b F i n d M i d N u m()X=I N P U T B O X(uP L EA S E I N P U T T H E F I R S TN U M B ER )Y二I N P U T B O X(P L EA S E I N P U T T H E S EC O N DN U M B ER)Z二I N P U T B O X (P L ES S E I N P U T T H E T H I R D N U M B ER)I F (X =Z)T H ENP R I N T YEL S EI F (X =Z )T H ENP R I N T ZEL S EP R I N T XEN D I FEn d S u b2.打印以下杨辉三角形 11 11 2 11 3 311 4 6 4 11 5 1 0 1 0 5 1D i m Q()A s I n t e g e rN 二 I n p u t B o x (P L EA S E I N P U T N )R e D i m Q(N,N)F o r I =1 T o NF o r J =1 T o NQ(I,J)二(0)N e x t JN e x t IF o r K =0 T o (N -1 )Q(K +1,1)=1P r i n t 1;F o r I =1 T o KQ(K +1,I +1)=(Q(K,I +1)+Q(K,I)P r i n t (Q(K +1,I +1)N e x t IP r i n tN e x t KV B 期末考试试题(B 卷)1 .下 列 代 数 式 的 V i s u a l B a s i c 表 达 式 是()o二、填空2 .设 x为大于零的实数，则大于x的最小奇数的V i s u a l B a s i c 表 达 式 是 H F(i n t(x)m o d2=0,i n t (x)+2,i n t (x)+1)。3 .a l 和 a 2 之中有且只有一个与a3的值相等，相应的 V i s ual Bas i c 逻辑表达式是：al=a3 x o r a2=a3o有 al 和 a2之中没有一个与a3的值相等，则相应的表达式是：al a3 an d a2 a3。4 .设 i n i t的初值为10,则由下列循环语句控制的循环 次 数 是 6 。D o W h i l e i n i t 二 5i n i t=i n i tTL o o p5 .在 V i s ual Bas i c中，变量从它的作用范围来看，可 分 为 全 局 变 量、模块级变量 和过程级变量 三种。6 .语句 P i ctur e l.Ci r cl e (8 0 0,10 0 0),5 0 0 的含义是 _以圆心为(8 0 0,10 0 0)半径为5 0 0 的圆7 .声明定长为10 个字符变量S s tr 的语句为：D i mS s tr as S tr i n g*10 。三、程序阅读题，阅读下列程序书写结构。程序1P r i vate S tati c S ub Co mman dl _ Cl i ck()D i m x As I n te ge r,s As I n te ge rx=V ai (I n p utBo x (请输入一个正整数=)I f x 5 T h e nS=S*XEl s es =s +xEn d I fT e x tl.T e x t=s=+S tr (s)En d S ub程序运行时连续三次单击Co mman dl,且设输入的数是5,2 和 4时,分别写出文本框te x tl.te x t的值。结果：(s=5 s 二 10 s=4 0 )b)程序2P r i vate S ub Fo r mCl i ck()Fo r ml.Ci sw 二 3Fo r k =2 T o 6 S te p 2Fo r ml.P r i n t w二 ；w,k二 ；kw=w+1N e x t kFo r ml.P r i n t w二 ；w,k二 ；kEn d S ub写出程序运行时单击窗体后，Fo r m 1上输出结果。结果为：(w=3 k=2W二 4 k 二4W=5 k=6W=6 k=8 )c)程 序3R e m在窗体的通用声明区声明两个模块级变量a和yD i m a As I n te ge r,y As I n te ge rP r i vate S ub Fo r m L o ad()O p e n c:al.dat Fo r O utp ut As#1Cl o s e#1En d S ubP r i vate S ub Co n n n an dl _ Cl i ck ()O p e n c:al.dat Fo r Ap p e n d As#1Cal l aa(5)y =y +aP r i n t#1,y二“；y,a=；a:Cl o s e#1En d S ubS ub aa(i As I n te ge r)x =1D o U n ti l x ia=a+xx =x +3L o o pEn d S ub写出程序运行时连续三次单击Co mman d 1 后，al.dat文件的最终结果为：(y=5 a=5y 二 15 a二 10y=30 a=15 )五、程序填空题(每小题9分，共 18 分)a)程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如 图 1 所示。单击“开始“命令按钮，秒表开始计时，单击“结束”命令按钮,秒表结束计时，并在标签框显示运行时间，如“运行T 0小时2 分 1 0 秒“。(假设对象的属性都在程序代码中设定)。D i m x As L o n gD i m h As I n te ge r,m As I n te ge r,s As I n te ge rP r i vate S ub Fo r m L o ad()Fo r ml.Cap ti o n =动态秒表(小时:分：秒)Co mman dl.Cap ti o n =开始&S Co mman d2.Cap ti o n =结束&E L abe l 1.Al i gn me n t=2 居中对齐L abe l 1.Cap ti o n =0:0:0 ti me r l.I n te r val =1000T i me r l.En abl e d=Fal s ex 二 0En d S ubP r i vate S ub Co mman dl _ Cl i ck()_ timerl.enabled=True_En d S ubP r i vate S ub Co mman d2_ C1i ck()T i me r l.En abl e d=Fal s ex=_ 0L abe l 1.Cap ti o n 二运行了+S tr (h)+小 时 +S tr(m)+分 +S tr(s)+秒 En d S ubP r i vate S ub T i me r I T i me r()x =x +1h二 x 36 0 0m 二(x M o d 36 0 0)6 0s=_(x mo d 36 0 0)mo d 6 0 _L abe l 1.Cap ti o n =S tr(h)+：+S tr(m)+：+S tr(s)En d S ubb)程序说明：已知自然对数的底数e的级数表示如下：e=l+l/l!+l/2!+l/3!+.+l/n!+.本程序利用函数过程f act。求e,其中绝对值小于1E-8的项被忽略。程序代码如下：P r i vate Fun cti o n f act(m As I n te ge r)AsS i n gl e 求M !的函数D i m x As S i n gl e,i As I n te ge rx =1f o r i=l to m:x=x*i :N e x t if act 二 xEn d Fun cti o nP r i vate S ub Fo r m Cl i ck()D i m e As S i n gl e,i te m As S i n gl eD i m n As I n te ge re=l :n=0D on =n +1i te m 二 l/f act(n)e =e +i te mL o o p wh i l e _ i te m=l.0 E-8 _Fo r ml.P r i n t e二 ；eEn d S ub