VB期末考试试题(A、B卷)

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 ）A、scale

2、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、Single10.如果在图

3、片框上使用绘图方法绘制一个实心圆，则图片框的（ 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 C、Click D、

4、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 B、Text C、Cle

5、ar 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,表达式 （a>x Xor b<x） OR x<y  IMP y<b

6、的结果为True。3a 和b 中有仅只有一个不为1，相应的Visual Basic逻辑表达式为 a<>1 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个100500的整数，其表达可为：for I=1 to 10a(i)=100+int(400*rnd)next I。7当x=2

7、时，语句if x=2 then Print x=2 的结果值是 True。8. Static Private Sub cmdSum_Click()Dim Sum as integer    Sum=2*Sum+1End Sub问：第三次单击命令按钮cmdSum后，Sum的值为： 7。9声明单精度常量g(重力加速度)代表98可写成：const g=9.8。10欲使在自己设计VB程序运行过程中，不中止本程序的运行，同时又可调用系统中已有的应用程序c:windowsnotepad.exe,可在程序代码窗口必要的地方添加语句：shell(“c:windowsno

8、tepad.exe”)。三、编程题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 n rnddat = (10 + Int(90 * Rnd)&#

9、160;  If 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(

10、) as integerDim i As Integer, j As Integer, k As Integer, pos As Integer,temp as integerFor 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 IfNext iFor k = 1 To j

11、- 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 j  If k Mod 5 = 0 Then Print b(k) Else

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

13、+ YEnd SubPrivate Function BB (ByRef Y As Integer)  Y = Y + 1  BB=X + YEnd Function                  结果： （ 2 2 2 ）   2程序2：      private sub Form_click()  

14、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      &

15、#160;   Next JNext IFor X = 1 To N   Print X, A(X, N +X - I), A(X, X)Next X End Sub       结果：（ 1   0   4    2   7   83 11 12 ) 3程序3：   Private Sub Form_click()   

16、60; Dim f1 As Integer,f2 As Integer,f3 As Integer     Open "c:a1.dat"For Output As #1     f1=2:f2=3     Print  #1,"NO." 3,f1     Print  #1,"NO." 4,f2     For I=

17、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          5 NO

18、.6          8 NO.7          13）五、 程序填空题（每小题9分，共18分）1.从计算机输入三个数,找出中间数Private Sub FindMidNum( )      X=INPUTBOX(“PLEASE INPUT THE FIRST NUMBER”)      Y=INPUT

19、BOX(“PLEASE INPUT THE SECOND NUMBER)      Z=INPUTBOX(“PLESSE INPUT THE THIRD NUMBER)      IF（ X<Y ）THEN A=XX=YY=A      ENDIF      IF （Y>=Z）THENPRINT Y      ELSEIF （

20、 X>=Z ） THENPRINT Z      ELSEPRINT XENDIF   End Sub2.  打印以下杨辉三角形              11   1                &#

21、160;                   1   2   1                          &#

22、160;         1   3   3    11   4   6    4    11   5   10   10   5    1Dim Q() As IntegerN = InputBox("PLEASE INPUT

23、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) =&#

24、160;（ Q(K, I + 1) ） + Q(K, I)        Print （ Q(K + 1, I + 1) ）    Next I   PrintNext 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的值相等，相应的Vis

25、ual Basic逻辑表达式是:_ a1=a3 xor a2=a3。若a1和a2之中没有一个与a3的值相等，则相应的表达式是：_ a1<>a3 and a2<>a3_。  4设init的初值为10，则由下列循环语句控制的循环次数是_6_。      Do While  init>=5        init=init-1      Loop5.在Visual Basic 中，变

26、量从它的作用范围来看，可分为 _全局变量_、_模块级变量_和_过程级变量_ 三种。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("请输入一个

27、正整数")If x < 5 Then    s = s * xElse             s = s + xEnd IfText1.Text = "s=" + Str(s)End Sub程序运行时连续三次单击Command1，且设输入的数是5，2和4时，分别写出文本框text1.text的值。结果：（ s=5 s=10 s=40 ）b) 程序2    Private

28、 Sub Form_Click()Form1.Clsw = 3For k = 2 To 6 Step 2           Form1.Print "w=" w, "k=" k           w = w + 1Next kForm1.Print "w=" w, "k=" kEnd Sub写出程序运行时单击窗体后

29、，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() 

30、;Open "c:a1.dat" For Append As #1 Call aa(5) y = y + a Print #1, "y=" y, "a=" a: Close #1End SubSub aa(i As Integer)  x = 1  Do Until x > i     a = a + x     x = x + 3  LoopEnd Sub写出程序运行时连续三次单击Comm

31、and1后，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 = "开始&S"Command2.Caption = "结束&E"Label1.