VB期末考试试题(A卷)
VB期末考试试题(A卷)
一、 选择题
1.要改变控件的宽度，应修改该控件的( B )属性。 A、TOP B、width C、Left D、Height
2.将命令按钮Command1设置为不可见，应修改该命令按钮的( A )属性。
A、Visible B、Value C、Caption D、Enabled 3.单机滚动条两端的任何一个滚动箭头，将触发该滚动条的( 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、ShowFont 7.形状控件所显示的图形不可能是( D )
A、圆 B、椭圆 C、圆角正方形 D、等边三角形 8.由Fro K=10 TO oslept 3:next K循环语句控件的循环次数是( B )
A、12 B、0 C、-11 D、-10
9.下列数据类型中，占用内存最大值是( D )
A、Boolwan B、Byte C、Lnteger D、Single
10.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的( C )属性决定了该图片的颜色。
A、BackColro B、Forelklor C、Fillcolor D、Dlawstyle 二、 填空题(每空2分，共20分)
1(代数式 的Visual Basic 表达式是
sqr((x^3+exp(-6)*log(y))*atn(a*3.14159/180)/(x*x+y*y)) 2.设x=2,y=4,a=4,b=6,表达式 (a>x Xor b1 xor b<>1。
4(把条件为1? x ? 5 写成VB表达式为: x>=1 and x<=5。 5. 语句Line(1000,1000)-Step(2000,1500),vbRed,BF的含义是:在窗体上绘制以角点为(2000，2000)和(4000，3500)的红色实心的矩形。 6(用随机函数产生10个100,500的整数，其表达可为:for I=1 to 10 a(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 integer
Sum=2*Sum+1
End Sub
问:第三次单击命令按钮cmdSum后，Sum的值为: 7。
9(声明单精度常量g(重力加速度)代表9(8可写成:const g=9.8。
10(欲使在自己设计VB程序运行过程中，不中止本程序的运行，同时又可调用系统中已有的应用程序c:\windows\notepad.exe,可在程序代码窗口必要的地方添加语句:shell(“c:\windows\notepad.exe”)。 三、编程题
1随机产生n个两位正整数(n由对话框输入，切n>0)。求出其中的偶数之和，并在标签框Labol1上显示。
程序写在命令按钮Command1的click事件中。
Private Sub Command1_Click() Dim n As Integer
Dim i As Integer, sum As Long n = Val(InputBox("Please input a integer", "Input N value"))
For i = 1 To n
rnddat = (10 + Int(90 * Rnd))
If rnddat Mod 2 = 0 Then
sum = sum + rnddat
End If
Next i
Label1.Caption = sum
End Sub
2由输入对话框中输入100个数值数据，放入数组a，将其中的整数放入数组b，然后运用选择分类将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。
注:程序写在窗体form的click事件上。
Private Sub Form_Click() Dim a(1 To 100)
Dim b() as integer
Dim i As Integer, j As Integer, k As Integer, pos As Integer,temp
as integer
For i = 1 To 100
a(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 If
Next i
For k = 1 To j - 1
pos = k
For m = k To j
If b(m) < b(pos) Then pos = m
Next m
If k <> pos Then
temp = b(k)
b(k) = b(pos)
b(pos) = temp
End If
Next k
For k = 1 To j
If k Mod 5 = 0 Then Print b(k) Else Print b(k);
Next k
End Sub
四、 程序阅读题(每小题6分，共18分)
1(程序1:
Dim Y As Integer
Private Stub Command_Click()
Dim X As Integer
X=1
Y=1
Call AA(Y+1)
Z=BB(X)
Print X, Y, Z
End Sub
Private Sub AA(ByVal Z As Integer)
Y = Z + X
Z = X + Y
End Sub
Private Function BB (ByRef Y As Integer)
Y = Y + 1
BB=X + Y
End Function 结果: ( 2 2 2 ) 2(程序2:
private sub Form_click()
N = 3
Dim A(3，3) As Integer
For I = I To N
For J = I To N
A(I, J) = (J – l) * N + I
Next J
Next I
For I = 2 To N
For J = 1 To I – 1
TEMP = A(I, J)
A(I, J) =A(J, I)
A(J, I) = TEMP
Next J
Next I
For X = 1 To N
Print X, A(X, N +X - I), A(X, X)
Next X
End Sub 结果:( 1 0 4
2 7 8
3 11 12 )
3(程序3:
Private Sub Form_click()
Dim f1 As Integer,f2 As Integer,f3 As Integer
Open "c:\a1.dat"For Output As #1
f1=2:f2=3
#1,"NO."; 3,f1 Print
Print #1,"NO."; 4,f2
For I=5 To 7
f3=f1+f2
Print #1,"NO.";I,f3
f1=f2
f2=f3
Next I
Close #1
End 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)THEN
PRINT Y
ELSEIF ( X>=Z ) THEN
PRINT Z
ELSE
PRINT X
ENDIF
End Sub
2. 打印以下杨辉三角形 1 1 1
1 2 1
1 3 3 1
1 4 6 4 1 1 5 10 10 5 1 Dim Q() As Integer N = InputBox("PLEASE INPUT N")
ReDim Q(N, N)
For I = 1 To N
For J = 1 To N
Q(I, J) = ( 0 )
Next J
Next I
For 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
Print
Next K
本文档为【VB期末考试试题(A卷)】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483