《vb第15周周练习zyq》由会员分享,可在线阅读,更多相关《vb第15周周练习zyq(24页珍藏版)》请在金锄头文库上搜索。
1、2012VB第15周周练习zyq 总分:110分1.单项选择题1. 当运行程序时,系统自动执行启动窗体的 事件过程。A. LoadB. ClickC. UnLoadD. GotFocus(1分)2. 以下说法正确的是 。A. 属性是对象的一部分B. 方法是对象的一部分C. 事件是对象的一部分D. A、B都正确(1分)3. 在过程调用中,参数的传递可以分为_和_两种方式。A. 按值传递 按地址传递B. 按地址传递 按参数传递C. 按参数传递 按值传递D. 按位置传递 按参数传递(1分)4.在多窗体的应用程序中,当前窗体模块的Form_Click事件过程中包含如下语句,单击该窗体,其中_一定可以将
2、Hello显示在当前窗体上。A. Forml.PrintHelloB. Me.PrintHelloC. Debug.PrintHelloD. Form2.PrintHello(1分)5. Sub Main函数可以在 模块中定义。A. 窗体B. 标准C. 类模块D. 以上均可(1分)6. 程序中未定义的变量均为integer,单击Command1,程序的输出是 。Private Sub Command1_Click()k=4:m=1n=Func(k, m)Print n, Func(k,m)End SubPublic Function Func(a As Integer, b As Intege
3、r) As IntegerStatic m As Integerm=0:i=2i=i+m+1m=i+a+bFunc=mEnd FunctionA. 8 8B. 8 20C. 8 16D. 8 17(1分)7. 要想在过程调用后返回两个结果,下面的过程定义语句合法的是_。A. Sub Procl ( ByVal n , ByVal m)B. Sub Procl ( n , ByVal m)C. Sub Procl ( n , m)D. Sub Procl ( ByVal n , m)(1分)8. 一般来说,当变量名称相同而作用域不同时,局限性_的变量总会用阴影遮住局限性不太大的变量。A. 大B.
4、 小C. 更小D. 比较小(1分)9. 通用过程可以通过执行“工具”菜单中的_命令来建立。A. 添加过程B. 通用过程C. 添加窗体D. 添加模块(1分)10. 阅读下列程序,其输出的结果是_。Private Sub Command1_Click()Dim a(1 To 3) As IntegerFor i=1 To 3a(i)=iNext iCall sub1(a)For i=2 To 3Print a(i)Next iEnd SubPublic Sub sub1(a() As Integer)For i=1 To 3a(i)=i*iNext iEnd SubA. 1 2B. 2 3C. 4
5、 9D. 1 4(1分)11. 当在Cmd1按钮上单击时,程序的输出是 .Public Function Func(a%,b%)As IntegerStatic m As Integer : Dim i As Integerm=0 : i=2: i=i+m+1 : m=i+a+b : Func=mEnd FunctionPrivate Sub Cmd1_Click( )Dim k%,m%,n%k=4 : m=1 :n=Func(k,m)Print n, Func(k, m)End SubA. 8 8B. 8 20C. 8 16D. 8 17(1分)12. 要想从子过程调用后返回两个结果,下面子
6、过程语句说明合法的是_。A. Sub f2(ByVal n%, ByVal m%)B. Sub f1(n%, ByVal m%)C. Sub f1(n%,m%)D. Sub f1(ByVal n%, m%)(1分)13. 下面的过程定义语句中合法的是_。A. Sub Procl (ByVal n () )B. Sub Procl ( n ) As IntegerC. Function Procl (Procl )D. Function Procl (ByVal n )(1分)14. 可以在窗体模块的通用声明段中声明的是_。A. 全局变量B. 全局常量C. 全局数组D. 全局用户自定义类型(1分
7、)15. 程序中用“Private Function Fun(X As Integer,Y AsSingle)”定义了函数Fun。调用函数Fun的过程中的变量i、j均定义为Integer型,能正确引用函数Fun的是。 Fun(i,j) Call Fun(i,3.65) Fun(3.14,234) Fun(245,231.5)A. B. C. D. (1分)16. 以下有关数组的说明中,错误的是_。A. 根据数组说明的方式,可将数组分为动态数组和静态数组。B. 在过程中,不能用Private语句定义数组。C. 利用ReDim语句重新定维时,不得改变已经说明过的数组的数据类型。D. 数组重新定维后
8、,原有的数组元素内容将不予保留。(1分)17. 在窗体上添加一个命令按钮,名为Command1,事件过程如下。执行结果是_。Sub pb(b( ) As Integer)For i=1 To 4B(i)=2*iNext iEnd SubPrivate Sub Command1_Click( )Dim a(1 To 4) As Integera(1)=5:a(2)=6: a(3)=7:a(4)=8pb aFor i=1 To 4Print a(i);Next iEnd SubA. 2 4 6 8B. 1 3 5 7C. 3 6 6 12D. 4 8 12 16(1分)18. 以下程序输出的结果是
9、_。Dim aa=Array(1,2,3,4,5,6,7)For i=Lbound(a)To Ubound(a)a(i)= a(i)*a(i)Next iPrint a(i)A. 49B. 0C. 不确定D. 程序出错(1分)19. 要分配存放如下方阵的数据,_数组声明语句能实现(不能浪费空间)。每行三个元素,第一行为:1.12.2 3.3第二行为:4.4 5.5 6.6第三行为:7.7 8.8 9.9A. Dim a(9) As SingleB. Dim a(3,3) As SingleC. Dim a(-1 To l,-5 To -3) As SingleD. Dim a(-3 To -1
10、,5 To 7) As Integer(1分)20. 运行以下程序段,输出结果是 。Dim a(1 To 10)Dim p(1 To 4)k = 5For i = 1 To 4p(i) = i * 2Next iFor i = 1 To 4k = k + p(i) * 2Next iPrint kA. 48B. 32C. 30D. 45(1分)21. Option Base 1Private Sub Command1_Click()Dim a%(3, 3)For i = 1 To 3For j = 1 To 3If j 1 And i 1 Thena(i, j) = a(a(i - 1, j
11、- 1), a(i, j - 1) + 1Elsea(i, j) = i * jEnd IfPrint a(i, j); ;Next jPrintNext iEnd SubA. 1 2 32 3 13 2 3B. 1 2 31 2 31 2 3C. 1 2 32 4 63 6 9D. 1 1 12 2 23 3 3(1分)22. 程序代码如下,当单击窗体上Command1控件时,窗体上显示的结果是_。Option Base 1Private Sub Command1_Click( )Dim i As IntegerDim x(3,3)As IntegerFor i = 1 To 3For j
12、= 1 To 3x(i,j) = (i-1) * 3+jNext jNext iFor i = 1 To 3Print x(i,4-i)Next iEnd SubA. 1 5 9B. 1 4 7C. 3 5 7D. 3 6 9(1分)23. 在窗体模块的通用声明处用下面的语句声明变量、数组,正确语句有_个。Public A(5) As IntegerPublic N As IntegerPublic St As StringPrivate b() As IntegerA. 2B. 3C. 4D. 1(1分)24. 当发生Command1_Click事件后,程序输出结果是_。Option Bas
13、e 1Private Sub Command1_Click()Dim a(4, 4) As Integer,i As Integer,s As Integers=0For i=1 To 4For j=1 To 4a(i, j) = (i-1)*4+j*2Next jNext iFor i = 1 To 4s=s+a(i, i)Next iPrint sEnd SubA. 28B. 32C. 30D. 44(1分)25. 当发生Command1_Clik事件后,下列程序的执行结果是_。Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4, 5)For i = 1 To 4Print a(i) - a(i1);Next iEnd SubA. 1 1 1 1 1B. 1 1 1 1C. 1 1 1D. 2 2 2(1分)26. 当发生Command1_Clik事件后,下列程序的输出结果是_。Dim i As IntegerDim a(10) As Integer