VB期末考试试题AB卷.docx

1、VB期末考试试题AB卷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.中心定义图片框控件的坐标系统，可采用该图片框的（

2、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、Si

3、ngle10.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（ 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、KeyDown

4、 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、Caption

5、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 bx） OR xy IMP yb 的结果为True。3a 和b 中

6、有仅只有一个不为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

7、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,t

8、emp 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

9、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

10、 = 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

11、)Next X End Sub 结果：（ 1 0 4 2 7 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

12、 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

13、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) = （ 0 ）Next JNext IFor K = 0 To（ N 1 ）Q(K + 1, 1) = 1 Print 1; For I = 1 To K Q(K + 1, I + 1) =（ Q(K, I + 1) ） + Q(K, I) Print（ Q(K + 1, I + 1) ） Next I PrintNext KVB期末

14、考试试题（B卷）1下列代数式的Visual Basic表达式是（ ）。二、填空2设x为大于零的实数，则大于x的最小奇数的Visual Basic表达式是_ IIF(int(x) mod 2=0,int(x)+2,int(x)+1)。3 a1和a2之中有且只有一个与a3的值相等，相应的Visual Basic逻辑表达式是:_ a1=a3 xor a2=a3。若a1和a2之中没有一个与a3的值相等，则相应的表达式是：_ a1a3 and a2a3_。 4设init的初值为10，则由下列循环语句控制的循环次数是_6_。 Do While init=5 init=init-1 Loop5.在Visua

15、l Basic 中，变量从它的作用范围来看，可分为_全局变量_、_模块级变量_和_过程级变量_ 三种。6语句Picture1.Circle(800,1000),500的含义是_以圆心为（800，1000）半径为500的圆_。7声明定长为10个字符变量Sstr的语句为：_ Dim Sstr as String*10_。三、程序阅读题，阅读下列程序书写结构。程序1 Private Static Sub Command1_Click()Dim x As Integer, s As Integerx = Val(InputBox(请输入一个正整数)If x i a = a + x x = x + 3

16、LoopEnd 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_Loa

17、d()Form1.Caption = 动态秒表（小时：分：秒）Command1.Caption = 开始&SCommand2.Caption = 结束&ELabel1.Alignment = 2 居中对齐Label1.Caption = 0:0:0timer1.Interval =_1000_Timer1.Enabled = Falsex = 0End SubPrivate Sub Command1_Click()_ timer1.enabled=True _End SubPrivate Sub Command2_Click()Timer1.Enabled = Falsex=_0_Label1

18、.Caption = 运行了 + Str(h) + 小时 + Str(m) + 分 + Str(s) + 秒End SubPrivate Sub Timer1_Timer()x = x + 1h=_x3600_m = (x Mod 3600) 60s=_(x mod 3600) mod 60_Label1.Caption = Str(h) + : + Str(m) + : + Str(s)End Subb)程序说明: 已知自然对数的底数e的级数表示如下: e=1+1/1!+1/2!+1/3!+.+1/n!+.本程序利用函数过程fact()求e，其中绝对值小于1E-8的项被忽略。程序代码如下:P

19、rivate Function fact(m As Integer) As Single 求！的函数Dim x As Single, i As Integerx = 1for i=1 to m : x=_x*i_ :Next ifact = xEnd FunctionPrivate Sub Form_Click()Dim e As Single, item As SingleDim n As Integere=1 : n=_0_Don = n + 1item=_1/fact(n)_e = e + itemLoop while _item=1.OE-8_Form1.Print e=; eEnd Sub