《VB期末考试试题(A卷).pdf》由会员分享，可在线阅读，更多相关《VB期末考试试题(A卷).pdf（10页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、一、选择题1.要改变控件的宽度，应修改该控件的（B）属性。A、TOP B、width C、Left D、Height2.将命令按钮Command 1设置为不可见，应修改该命令按钮的（A）属性。A、Visible B、Value C、Caption D、Enabled3.单机滚动条两端的任何一个滚动箭头，将触发该滚动条的（C）事件。A、Scroll B、KeyDown C、change D、Dragver4.（D）对象具有clear方法。A、图片框 B、窗体 C、复选框 D、列表框5.中心定义图片框控件的坐标系统，可采用该图片框的（A）A、scale B、Scale X C、scale Y D、
2、setFocus6.将通过对话框CommdDialogl的类型设置成另存为对话框，可调用该控件 的（B）方法。A、Showopen B、Showsave C、ShowColor D、ShowFont7.形状控件所显示的图形不可能是（D）A、圆B、椭圆 C、圆角正方形 D、等边三角形8.由Fro K=10 TO oslept 3：next K循环语句控件的循环次数是（B）A、12 B、0 C、-11 D、-109.下列数据类型中，占用内存最大值是（D）A、BoolwanB、Byte C、Lnteger D、Single1().如果在图片框上使用绘图方法绘制一个实心圆，则图片框的(C )属性决定了
3、该图片的颜色。A、B a c k C o l ro B、F o re l k l o r C、F i l l c o l o r D、D l a w s t y l e二、填空题(每空2分，共 2 0 分)1 .代 数 式 的 V i s u a l B a s i c 表达式是s qr(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 R x y I M P y b 的结果为T ru e。3 .a和 b中有仅只有一个不为1,相应的V i s u
4、 a l B a s i c 逻辑表达式为a l x o r b l。4 .把条件为1 x 5写成V B 表达式为：x =l a n d x 0)。求出其中的偶数之和，并在标签框La b ol l 上显不。程序写在命令按钮Com m a n d 1的c l i c k 事件中。Pr i v a te Sub Com m a n d 1_ C1i c k()Di m n As In te g e rDi m i As In te g e r,s um As Lon gn =Va i(In p utBox(Pl e a s e i n p ut a i n te g e r ,In p ut N
5、v a l ue )For i =1 To nr n d d a t=(10+In t(90*Rn d)If r n d d a t Mod 2=0 Th e ns um =s um +r n d d a tEn d IfNe x t iLa b e l 1.Ca p ti on =s umEn d Sub2 由输入对话框中输入100个数值数据，放入数组a,将其中的整数放入数组 b,然后运用选择分类将数组b中的数据按从大到小的顺序排列，并以每行5 个数据在窗体上输出。注：程序写在窗体f or m 的c l i c k 事件上。Private Sub Form_Click()Dim a(l To
6、 100)Dim b()as integerDim i As Integer,j As Integer,k As Integer,pos As Integer,tempas 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(po
7、s)b(pos)=tempEnd IfNe x t kFor k =1 To jIf k Mod 5=0 Th e n Pr i n t b(k)El s e Pr i n t b(k);Ne x t kEn d Sub四、程序阅读题(每小题6 分，共 18分)1.程序1：Di m Y As In te g e rPr i v a te Stub Com m a n d Cl i c k()Di m X As In te g e rX=1Y=1Ca l l AA(Y+1)Z=BB(X)Pr i n t X,Y,ZEn d SubPr i v a te Sub AA(By Va i Z As I
8、n te g e r)Y =Z +XZ =X +YEn d SubPr i v a te Fun c ti on BB(By Re f Y As In te g e r)Y =Y +1BB=X +YEn d Fun c ti on2)2.程序2：p r i v a te s ub For m _ c l i c k()N=3Di m A(3,3)As In te g e rFor I=I To NFor J=I To NA(I,J)=(J-1)*N+INe x t JNe x t IFor I=2 To NFor J=1 To I-1TEMP=A(I,J)A(I,J)=A(J,I)A(J,I)
9、=TEMPNe x t JNe x t IFor X =1 To N结果：(2 2Pr i n t X,A(X,N+X -I),A(X,X)Next XEnd Sub 结果：(1 042 7 83 11 12)3.程序3：Private Sub Form_click()Dim fl As Integer,f2 As Integer,f3 As IntegerOpen c:al.datFor Output As#1fl=2:f2=3Print 3,flPrint 4,f2For 1=5 To 7f3=fl+f2Print#1,N0.”;I,f3fl=f2f2=f3Next IClose#1End
10、 Sub写出文件al.dat的最终结果。(NO.3 2NO.4 3NO.5 5NO.6 8NO.713)五、程序填空题(每小题9 分，共 18分)1.从计算机输入三个数,找出中间数Pr i v a te Sub Fi n d Mi d Num()X=INPUTBOX(uPLEASE INPUT THE FIRST NUMBER )Y=INPUTBOX(PLEASE INPUT THE SECOND NUMBER)Z=INPUTBOX(PLESSE INPUT THE THIRD NUMBER)IF(X=Z)THENPRINT YELSEIF(X=Z )THENPRINT ZELSEPRINT XEND IFEn d Sub2.打印以下杨辉三角形 1111211 3 3 11 4 6 4 11 5 10 10 5 1Di m Q()As In te g e rN=In p utBox (PLEASE INPUT N)Re Di m Q(N,N)For I=1 To NFor J=1 To NQ(I,J)=(0)Ne x t JNe x t IFor K=0 To(N-1)Q(K+1,1)=1Pr i n t 1;For I=1 To KQ(K+1,I+1)=(Q(K,I+1)+Q(K,I)Pr i n t(Q(K+1,I+1)Ne x t IPr i n tNext K