VB期末考试试题AB卷

1、V B 期 末 考 试 试 题 （ A 卷 ）一、选择题1. 要改变控件的宽度，应修改该控件的（ B ）属性。 A、 TOP B 、 width C 、Left D 、 Height2. 将命令按钮Commandl设置为不可见，应修改该命令按钮 的（ 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. 中心定

2、义图片框控件的坐标系统，可采用该图片框的 （ A ）A、 scale B 、 Scale X C 、 scale Y D 、 setFocus6. 将通过对话框 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.

3、下列数据类型中，占用内存最大值是（ D ）A、 Boolwan B 、 Byte C 、 Lnteger D 、 Single10. 如果在图片框上使用绘图方法绘制一个实心圆，则图片 框的（ C ）属性决定了该图片的颜色。A、 BackColro B 、 Forelklor C 、 Fillcolor D 、 Dlawstyle一、选择题1. 要在垂直位置上移动控件，应利用控件的（C ）属性。A、 Left B 、 Width C 、 Top D 、 Height2. 要在文本框中的文本显示掩码 （密码） 符，在属性设置时， 首先必须设置（ D ）属性为 False 。A Txet B、Ena

4、bled C、Visible D 、Multline3. 用键盘的光标键选中某一菜单项，并按回车触发菜单的(C )的事件。A、KeyPress B、KeyDown 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. 下列可调整图片框的大小以适合图片的属

5、性是( B )A Stretch B 、autosize C 、picture D 、oledropmode8. 要想清除文本框中的内容则可利用( A )进行。A 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(xA3+exp(-6)*

6、log(y)*atn(a*3.14159/180)/(x*x+y*y)2. 设 x=2,y=4,a=4,b=6, 表达式 (a>x Xor b<x) OR x<y IMP y<b的结果为True。3. a和b中有仅只有一个不为 1,相应的Visual Basic 逻 辑表达式为a<>1 xor b<>1 。4. 把条件为1£ x £ 5写成/B表达式为：x>=1 and x<=5 。5. 语句 Line(1000,1000)-Step(2000,1500),vbRed,BF 的含义是：在窗体上绘制以角点为(2000

7、, 2000)和(4000 , 3500)的红色实心的矩形6. 用随机函数产生10个100500的整数，其表达可为：for 1=1 to 10a(i)=100+int(400*rnd) next I 。7. 当 x=2 时，语句 if x=2 then Print x=2 的结果值是 True。8. Static Private Sub cmdSum_Click()Dim Sum as integerSum=2*Sum+1End Sub问：第三次单击命令按钮cmdSum后, Sum的值为：_7。9. 声明单精度常量g(重力加速度)代表9. 8可写成：const g=9.8。10 .欲使在自己设

8、计 VB程序运行过程中，不中止本程序的 运行，同时又可调用系统中已有的应用程序 c:windowsnotepad.exe,可在程序代码窗口必要的地方添力口语句： shell( “c:notepad.exe ” )。三、编程题1随机产生n个两位正整数(n由对话框输入，切 n>0)。求 出其中的偶数之和，并在标签框Labol1上显示。程序写在命令按钮 Command的 click事件中。Private Sub Command1_Click()Dim n As IntegerDim i As Integer, sum As Longn = Val(lnputBox("Please i

9、n put a integer", "In put Nvalue")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_Cli

10、ck()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 - 1pos = kFor m = k To jIf b(

11、m) < b(pos) Then pos = mNext mIf k <> pos Then temp = 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=1 Call AA(Y+1) Z=BB(X) Pr

12、int X, Y, Z End Sub Private 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 NFor J = I To NA(l, J) = (J - I) * N + I Next JNext IFor I = 2

13、 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"ForOutput As #1f1=2:f2=3Print#1,"NO

14、."3, f1Print#1,"NO."4, f2For I=5 To 7f3=f1+f2Print #1,"NO."I,f3f1=f2f2=f3Next IClose #1 End Sub 写出文件 a1.dat 的最终结果。 (NO.32NO.43NO.55NO.68NO.713 )五、程序填空题(每小题 9 分，共 18 分) 1. 从计算机输 入三个数 , 找出中间数Private Sub FindMidNum( )X=INPUTBOX“( PLEASE INPUT THE FIRSTNUMBE”R)Y=INPUTBOX“( PLEAS

15、E INPUT THE SECONDNUMBER)Z=INPUTBOX“( PLESSE INPUT THE THIRDNUMBER)IF ( X<Y ) THENA=XX=YY=AENDIFIF (Y>=Z) THENPRINT YELSEIF ( X>=Z ) THENPRINT ZELSEPRINT XENDIFEnd Sub2.打印以下杨辉三角形1010Dim Q() As IntegerN = InputBox("PLEASE INPUT N")ReDim Q(N, N)For I = 1 To N0)For J = 1 To NQ(I, J)

16、=Next JNext IFor K = 0 ToQ(K + 1, 1) = 1 Print 1;For I = 1 To KQ(K + 1,1+ 1) =( Q(K, I + 1)+ Q(K, I)Print ( Q(K + 1,1 + 1)Next IPrintNext KVB期末考试试题(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 Ba

17、sic逻辑表达式是：_ a1=a3 xor a2=a3。若a1和a2之中 没有一个与a3的值相等，则相应的表达式是： a1v>a3 and a2v>a3 。4. 设init的初值为10,则由下列循环语句控制的循环次数是 6。Do While init>=5init=init-1Loop5. 在Visual Basic中，变量从它的作用范围来看， 可分为 _全局变量_ 、模块级变量和 _过程级变量三种。6. 语句 Picture1.Circle(800,1000),500的含义是以圆心为(800, 1000)半径为 500的圆_。7. 声明定长为10个字符变量Sstr的语句为：

18、Dim Sstr as String*10 。三、程序阅读题，阅读下列程序书写结构。程序1Private Static Sub Command1_Click()Dim x As Integer, s As Integerx = Val(InputBox("请输入一个正整数=")If x < 5 Thens = s * xElseEnd IfText1.Text = "s=" + Str(s)End Sub程序运行时连续三次单击 和 4 时，分别写出文本框Command，1 且设输入的数是 5， 2 text1.text 的值。结果：( s=5 s=

19、10 s=40 b) 程序 2Private Sub Form_Click()Form1.ClsFor k = 2 To 6 Step 2Form1.Print "w=" w, "k=" kw = w + 1Next kForm1.Print "w=" w, "k=" kEnd Sub写出程序运行时单击窗体后，Form 1上输出结果结果为：( w=3 k=2W=4 k=4W=5 k=6W=6 k=8 )c) 程序 3 Rem 在窗体的通用声明区声明两个模块级变量 a 和 yDim a As Integer, y A

20、s 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 + 3L

21、oopEnd Sub写出程序运行时连续三次单击Command后，a1.dat文件的最终结果为：(y=5 a=5y=15 a=10y=30 a=15五、 程序填空题（每小题 9分，共18分）a）程序说明：利用一个计时器、一个标签框和二个命令按 钮制作一个动态秒表，如图1所示。单击“开始“命令按钮，秒表开始计时，单击“结束“命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10 秒“。（假设对象的属性都在程序代码中设定）。Dim x As LongDim h As Integer, m As Integer, s As IntegerPrivate Sub Form_Load()Form1.Caption ="动态秒表(小时：分：秒)Command1.Caption ="开始&S"Command2.Caption ="结束&E"Label1.Alignment = 2'居中对齐Label1.Caption = "0:0:0"timer1n terval =_1000Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click() timer1.enabled=TrueEnd SubPrivate Sub Comman