1、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 ）
2、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、S
3、ingle10.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（ C ）属性决定了该图片的颜色。A、BackColro B、Forelklor C、Fillcolor D、Dlawstyle一、 选择题1.要在垂直位置上移动控件，应利用控件的（ C ）属性。A、Left B、Width C、Top D、Height2.要在文本框中的文本显示掩码（密码）符，在属性设置时，首先必须设置（ D ）属性为 False。A、Txet B、Enabled C、Visible D、Multline3.用键盘的光标键选中某一菜单项，并按回车触发菜单的（ C ）的事件。A、KeyPress B、KeyDo
4、wn C、Click D、Keyllp4.一下（ D ）对象不具有 Clear 方法。A、列表框 B、组合框 C、剪贴框 D、图片框5.软件列表中设定“文件列表”显示文件类型应改该控件的（ D ）属性。A、Path B、FileName C、Name D、Patterw6组合框有三种风格，它们由 Style 属性所决定，其中为简单组合框时，Style 属性值应为（ B ）A、0 B、1 C、2 D、37.下列可调整图片框的大小以适合图片的属性是（ B ）A、Stretch B、autosize C、picture D、oledropmode8.要想清除文本框中的内容则可利用（ A ）进行。A、
5、Caption B、Text C、Clear D、Cls9.下列表达式中，其值为 0 的是（ C ）A、7/9 B、7mod 15 C、79 D、15 mod 910.求以 10 为底 X 的常用对数的表达式为（ A ）A、LoG（X）/LoG（10） B、LN（X） C、LoG（X）/LoG(E) D、LoG（X）二、 填空题（每空 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 b1 xor b=1 an
6、d 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 Thensum = sum + rnddatEnd IfNext iLabel1.Ca
7、ption = 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(“
8、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) 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
9、：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 In
10、tegerFor 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 X End Sub 结果：（ 1 0 42 7 83 11 12 )3程序 3：Private Sub Form_click()Dim f1 As Integer,f2 As Integer
11、,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 2 NO.4 3 NO.5 5 NO.6 8 NO.7 13）五、 程序填空题（每小题 9 分，共 18 分）1.从计算机输入三个数,找出中间数Private Sub FindMidNum( )X=INPUTBOX(“PL
12、EASE 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 XENDIFEnd Sub2. 打印以下杨辉三角形 11 11 2 11 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
13、= 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 卷）1下列代数式的 Visual Basic 表达式是（ ）。二、填空2设 x 为大于零的实数，则大于 x 的最小奇数的Visual Basic 表达式是_ IIF(int(x) mod 2=0
14、,int(x)+2,int(x)+1)。3 a1 和 a2 之中有且只有一个与 a3 的值相等，相应的 Visual Basic 逻辑表达式是 :_ a1=a3 xor a2=a3。若 a1 和 a2 之中没有一个与 a3 的值相等，则相应的表达式是：_ a1a3_。 4设 init 的初值为 10，则由下列循环语句控制的循环次数是_6_。Do While init=5init=init-1Loop5.在 Visual Basic 中，变量从它的作用范围来看，可分为 _全局变量_、_模块级变量_和_过程级变量_ 三种。6语句 Picture1.Circle(800,1000),500 的含义是
15、_以圆心为（800，1000）半径为 500 的圆_。7声明定长为 10 个字符变量 Sstr 的语句为：_ Dim Sstr as String*10_。三、程序阅读题，阅读下列程序书写结构。程序 1Private Static Sub Command1_Click()Dim x As Integer, s As Integerx = Val(InputBox(“请输入一个正整数“)If x ia = a + xx = x + 3LoopEnd Sub写出程序运行时连续三次单击 Command1 后，a1.dat文件的最终结果为：（ y=5 a=5 yy=15 a=10yy=30 a=15 ）五、 程序填空题（每小题 9 分，共 18 分）a) 程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表， 如图所示。单击“开始“命令按钮，秒表开始计时 ，单击“结束“命令按钮， 秒表结束计时，并在标签框显示运行时间，如“运行了小时分秒“。 （假设对象的属性都在程序代码中设定）。Dim x As LongDim h As Integer, m As Integer, s As IntegerPrivate Sub Form_Load()Form1.Caption = “动态秒表（小时：分：秒）“Command1.Caption = “开始 eEnd Sub
