VB期末考试试题(A卷).doc

VB期末考试试题（A卷）一、 选择题1.要改变控件的宽度，应修改该控件的（B）属性。A、TOP B、width C、Left D、Height2.将命令按钮Command1设置为不可见，应修改该命令按钮的（ A ）属性。A、Visible B、Value C、Caption D、Enabled3.单机滚动条两端的任何一个滚动箭头，将触发该滚动条的（ C ）事件。A、Scroll B 、KeyDown C、change D、Dragver 4.（ D ）对象具有clear方法。A、图片框 B、窗体 C、复选框 D、列表框5.中心定义图片框控件的坐标系统，可采用该图片框的（ A ）A、scale B、Scale X C、scale Y D、setFocus 6.将通过对话框CommdDialog1的类型设置成另存为对话框，可调用该控件的（ 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、Boolwan B、Byte C、Lnteger D、Single10.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（ C ）属性决定了该图片的颜色。A、BackColro B、Forelklor C、Fillcolor D、Dlawstyle二、填空题（每空2分，共20分）1代数式 的Visual Basic 表达式是 sqr(x3+exp(-6)*log(y)*atn(a*3.14159/180)/(x*x+y*y)2.设x=2,y=4,a=4,b=6,表达式 （ax Xor bx） OR xy IMP yb 的结果为True。3a 和b 中有仅只有一个不为1，相应的Visual Basic逻辑表达式为 a1 xor b1。4把条件为1 x 5 写成VB表达式为: x=1 and x0)。求出其中的偶数之和，并在标签框Labol1上显示。程序写在命令按钮Command1的click事件中。Private Sub Command1_Click()Dim n As IntegerDim i As Integer, sum As Longn = Val(InputBox(Please input a integer, Input N value)For i = 1 To nrnddat = (10 + Int(90 * Rnd) If rnddat Mod 2 = 0 Then sum = sum + rnddat End IfNext iLabel1.Caption = sumEnd Sub2由输入对话框中输入100个数值数据，放入数组a，将其中的整数放入数组b，然后运用选择分类将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。注：程序写在窗体form的click事件上。Private Sub Form_Click()Dim a(1 To 100)Dim b() as integerDim i As Integer, j As Integer, k As Integer, pos As Integer,temp as integerFor i = 1 To 100a(i) = Val(InputBox(Please input data)If a(i) = Int(a(i) Then j = j + 1 ReDim Preserve b(j) b(j) = a(i)End IfNext iFor k = 1 To j - 1 pos = k For m = k To j If b(m) b(pos) Then pos = m Next mIf k pos Then temp = b(k) b(k) = b(pos) b(pos) = temp End IfNext kFor k = 1 To j If k Mod 5 = 0 Then Print b(k) Else Print b(k);Next kEnd Sub四、程序阅读题（每小题6分，共18分）1程序1：Dim Y As IntegerPrivate Stub Command_Click() Dim X As Integer X=1 Y=1 Call AA(Y+1) Z=BB(X) Print X, Y, ZEnd SubPrivate Sub AA(ByVal Z As Integer) Y = Z + X Z = X + YEnd SubPrivate Function BB (ByRef Y As Integer) Y = Y + 1 BB=X + YEnd Function 结果：（ 2 2 2 ） 2程序2： private sub Form_click() N = 3Dim A(3，3) As IntegerFor I = I To N For J = I To N A(I, J) = (J l) * N + I Next JNext IFor I = 2 To N For J = 1 To I 1TEMP = A(I, J)A(I, J) =A(J, I)A(J, I) = TEMP Next JNext IFor X = 1 To N Print X, A(X, N +X - I), A(X, X)Next X End Sub 结果：（ 1 0 4 27 83 11 12 ） 3程序3： Private Sub Form_click() Dim f1 As Integer,f2 As Integer,f3 As Integer Open c:a1.datFor Output As #1 f1=2:f2=3 Print #1,NO.; 3,f1 Print #1,NO.; 4,f2 For I=5 To 7f3=f1+f2Print #1,NO.;I,f3f1=f2f2=f3Next I Close #1End Sub写出文件a1.dat的最终结果。（NO. 3 2 NO. 4 3 NO. 5 5 NO. 6 8 NO. 7 13）五、程序填空题（每小题9分，共18分）1.从计算机输入三个数,找出中间数Private Sub FindMidNum( ) X=INPUTBOX(“PLEASE INPUT THE FIRST NUMBER”) Y=INPUTBOX(“PLEASE INPUT THE SECOND NUMBER) Z=INPUTBOX(“PLESSE INPUT THE THIRD NUMBER) IF（ X=Z）THENPRINT Y ELSEIF （ X=Z ） THENPRINT Z ELSEPRINT XENDIF End Sub2. 打印以下杨辉三角形 11 1 1 2 1 1 3 3 11 4 6 4 11 5 10 10 5 1Dim Q() As IntegerN = InputBox(PLEASE INPUT N)ReDim Q(N, N)For I = 1 To N For J = 1 To N Q(I, J) =