VB期末考试试题（A卷）一、选择题1.要改变控件的宽度，应修改该控件的（ B ）属性。
A、TOPB、widthC、LeftD、Height2.将命令按钮Command1设置为不可见，应修改该命令按钮的（A）属性。
A、VisibleB、ValueC、CaptionD、Enabled3.单机滚动条两端的任何一个滚动箭头，将触发该滚动条的（ C ）事件。
A、Scroll B 、KeyDown C、change D、Dragver4.（ D ）对象具有clear方法。
A、图片框B、窗体C、复选框D、列表框5.中心定义图片框控件的坐标系统，可采用该图片框的（ A ）A、scaleB、Scale XC、scale YD、setFocus6.将通过对话框CommdDialog1的类型设置成另存为对话框，可调用该控件的（ B）方法。
A、ShowopenB、ShowsaveC、ShowColorD、ShowFont7.形状控件所显示的图形不可能是（ D ）A、圆B、椭圆C、圆角正方形D、等边三角形8.由Fro K=10 TO oslept 3：next K循环语句控件的循环次数是（ B ）A、12B、0C、-11D、-109.下列数据类型中，占用内存最大值是（ D ）A、BoolwanB、ByteC、LntegerD、Single10.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（ C ）属性决定了该图片的颜色。
A、BackColroB、ForelklorC、FillcolorD、Dlawstyle一、选择题1.要在垂直位置上移动控件，应利用控件的（C）属性。
A、LeftB、WidthC、TopD、Height2.要在文本框中的文本显示掩码（密码）符，在属性设置时，首先必须设置（ D）属性为False。
A、TxetB、EnabledC、VisibleD、Multline3.用键盘的光标键选中某一菜单项，并按回车触发菜单的（ C ）的事件。
A、KeyPressB、KeyDownC、ClickD、Keyllp4.一下（ D ）对象不具有Clear方法。
A、列表框B、组合框C、剪贴框D、图片框5.软件列表中设定“文件列表”显示文件类型应改该控件的（ D ）属性。
A、PathB、FileNameC、NameD、Patterw 6．组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style属性值应为（ B ）A、0B、1C、2D、37.下列可调整图片框的大小以适合图片的属性是（ B ）A、StretchB、autosizeC、pictureD、oledropmode8.要想清除文本框中的内容则可利用（ A ）进行。
A、CaptionB、TextC、ClearD、Cls9.下列表达式中，其值为0的是（ C ）A、7/9B、7mod 15C、7\9D、15 mod 910.求以10 为底X的常用对数的表达式为（ A ）A、LoG（X）/LoG（10）B、LN（X）C、LoG（X）/LoG(E)D、LoG（X）三、编程题1随机产生n个两位正整数（n由对话框输入，切n>0)。
求出其中的偶数之和，并在标签框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 Thensum = sum + rnddatEnd 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)) 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分，共18分）1．程序1：Dim Y As IntegerPrivate Stub Command_Click()Dim X As IntegerX=1Y=1Call AA(Y+1)Z=BB(X)Print X, Y, ZEnd SubPrivate Sub AA(ByVal Z As Integer)Y = Z + XZ = X + YEnd SubPrivate Function BB (ByRef Y As Integer)Y = Y + 1BB=X + YEnd Function 结果：（ 2 2 2 ）2．程序2：private sub Form_click()N = 3Dim A(3，3) As IntegerFor I = I To NFor J = I To NA(I, J) = (J – l) * N + INext JNext IFor I = 2 To NFor J = 1 To I – 1TEMP = A(I, J)A(I, J) =A(J, I)A(J, I) = TEMPNext JNext IFor X = 1 To NPrint X, A(X, N +X - I), A(X, X)Next XEnd Sub 结果：（ 1 0 42 7 83 11 12 )3．程序3：Private Sub Form_click()Dim f1 As Integer,f2 As Integer,f3 As IntegerOpen "c:\a1.dat"For Output As #1f1=2:f2=3Print #1,"NO."; 3,f1Print #1,"NO."; 4,f2For I=5 To 7f3=f1+f2Print #1,"NO.";I,f3f1=f2f2=f3Next IClose #1End Sub写出文件a1.dat的最终结果。
（NO.3 2NO.4 3NO.5 5NO.6 8NO.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<Y）THENA=XX=YY=AENDIFIF （Y>=Z）THENPRINT YELSEIF （X>=Z） THENPRINT ZELSEPRINT XENDIFEnd Sub2. 打印以下杨辉三角形 11 11 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 NFor J = 1 To NQ(I, J) = （0）Next JNext IFor K = 0 To （N – 1）Q(K + 1, 1) = 1Print 1;For I = 1 To KQ(K + 1, I + 1) = （ Q(K, I + 1)） + Q(K, I)Print （Q(K + 1, I + 1)）Next IPrintNext KVB期末考试试题（B卷）二、填空三、程序阅读题，阅读下列程序书写结构。
程序1Private Static Sub Command1_Click()Dim x As Integer, s As Integerx = Val(InputBox("请输入一个正整数＝"))If x < 5 Thens = s * xElses = s + xEnd IfText1.Text = "s=" + Str(s)End Sub程序运行时连续三次单击Command1，且设输入的数是5，2和4时，分别写出文本框text1.text的值。
结果：（s=5 s=10 s=40 ）b) 程序2Private Sub Form_Click()Form1.Clsw = 3For k = 2 To 6 Step 2Form1.Print "w="; w, "k="; kw = w + 1Next kForm1.Print "w="; w, "k="; kEnd Sub写出程序运行时单击窗体后，Form１上输出结果。
结果为：（ w=3 k=2W=4 k=4W=5 k=6W=6 k=8 ）c) 程序3Rem 在窗体的通用声明区声明两个模块级变量a和y Dim a As Integer, y As IntegerPrivate Sub Form_Load()Open "c:\a1.dat" For Output As #1Close #1End SubPrivate Sub Command1_Click()Open "c:\a1.dat" For Append As #1Call aa(5)y = y + aPrint #1, "y="; y, "a="; a: Close #1End SubSub aa(i As Integer)x = 1Do Until x > ia = a + xx = x + 3LoopEnd Sub写出程序运行时连续三次单击Command1后，a1.dat 文件的最终结果为：（y=5 a=5y=15 a=10y=30 a=15 ）五、程序填空题（每小题9分，共18分）a) 程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图１所示。
