一、单项选择题(共10小题，每题2分，共20分)
1、 Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ ）
A属性、控件和方法 B.属性、事件和方法 C.窗体、控件和过程 D.控件、过程和模块
2、下列语句在任何条件下都至少执行一次的循环体是（ ） A. Do While<条件> B. While<条件> 循环体 循环体 Loop Wend
C. Do D.Do Until<条件> 循环体 循环体 LoopUntil<条件> Loop
3、下面控件中，没有caption属性的（ ） A. 框架 B.组合框 B. 命令按钮 D.复选按钮
4、要使标签透明须将其（ ）属性改为0
A. Style B. backcolor C.visible D.borderstyle 5、下列关于过程叙述不正确的是（ ）
A. 过程的传值调用时将实参的具体值传递给形参 B. 过程的传址调用是将实参在内存的地址传递给形参
C. 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D. 无论过程传值调用还是传地址调用，参数传递都是双向的 6、设a=6, b=8, c=10 则函数lif(a A.1O B.6 C.8 D.12 7、下面程序的执行结果是（ ） Dim S(10) AS Integer For i=0 to 10 S(i)=2*i Next i Print S(S(3)) A.12 B.6 C.0 D.4 8、一下程序输出的结果是（ ） Option Base1 Private Sub Command1_Click() Dim a(10),p(3)As Integer K=5 For i=1 to 10 A(i)=i Next i For i =1to 3 P(i)=a(i*i) Next i For i = 1 to 3 K=k+p(i)*2 Next i Print k End sub A. 33 B.28 C.35 D.37 9、在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For i=1 to 4 For j=0 to i Print chr$(65+i); Next j Print Next i End Sub 程序运行后，如果单击命令按钮，则在窗体上现实的内容是（ ） A. BB CCC DDDD EEEEE B. A BB CCC DDDD C. B CC DDD EEEE D. AA BBB CCCC DDDDD 10、下列过程语句中，一定按传值方式进行数据传递的定义语句是（ ） A. Sub pro2(a AS integer) B. Sub pro2(ByRef a AS integer) C. Sub pro2(ByVal a AS integer) D.Sub pro2(arr( ) ) 二、填空题（共5小题，每题2分，共10分。） 1.数学式 a2?b2对应的VB表达式为___ __________ y?3?22x?y32.已知a=2，b=3，c=4，d=5 .表达式Not a = 为_____ _________ 3.设变量x是一个两位正整数，写出判断x的十位数是个奇数数字的VB逻辑 表达式: _ 4.写出表达式Val(\的值 5.写出DateDiff(“m”,#8/30/1999#,#8/30/2000#)的值 三、判断题(本题15分，每小题1分) 1.标签控件是专门用来显示信息的，所以不能响应鼠标的单击事件。 2.窗体的Move方法不但可以移动窗体，而且可以改变窗体的大小，同时也会改变窗 体与大小和位置有关的属性值。 3.窗体的Enabled属性为False时，窗体上的按钮、文本框等控件都不会对用户的操作 作出反应。 4. 一条Visual Basic 话句如果不超过80个字符是不能续行的。 5. 在Visual Basic 程序中不可能同时出现tstA和tsta两个控件名。 6. If与EndIf关键字必须成对地使用，有个If就有 个End if与之相对应。 7. Do和Loop关键字区须成对使用，有个Do就必须有个Loop与之对应。 8. For和Exit For须成对使用，有个For就必 顿有个Exit For与之对应。 9. Select Case语句实现的是一种循环结构。 10. 一个Do循环只能使用一个Loop关键字， 但可以使用彩个Exit Do语句。 11.如果过程的个形参使用了ByRef 修饰，且调用时 相应的实参是个变量;则实参变量 的数据类型必须与形参相同。 12.因为函数过程有返回值，所以只能用在表达式中，不能使用Call班句调用。 13.事件过程只能在事件发生时由系统调用，不能在程序中使用代码直接调用。 14.使用Static关键字定义的通用过程中过程级变量都为静态变量。 15. 在窗体模块中，不能定义全局通用过程。 四、阅读程序（共4小题，每题5分，共20分）。 1.一下程序运行后，单击命令按钮，写出程序的运行结果。 Private Sub Command1_click() Dim n%,b,t t=1 :b=1 :n=2 Do While n<=4 if b>1 Then Exit Do b=b*n : t=t+b : n=n+1 Loop Print \End Sub 2. 在窗体中添加一个命令技钮Command1, 并编写如下程序: Private Sub Command1_Click() X=InputBox(x) if x^2<=9 Then y=1/x if x^2>9 Then y= x^2+1 if (x^2)-7=9 Then y=x Print \End Sub 程序运行后，在InputBox中输入4,单击命令按钮，写出程序的运行结果。 3. 窗体上画一个命令按钮，并编写以下半件过程和子过程: Private Sub Command1_Click() Dim x As Integer, y As Integer X=12 :y=20 Call Value(x.y) Print\End Sub Private Sub Value(ByVal m As Integer, n As Integer) m=m*2 n =n-5 End Sub 程序运行后，单击命令按钮，写出程序的输出结果。 4.窗体上画一个命令按钮和一个图像框，并编写以下事件过程: Private Sub Command1_Click() Dim a(3,3) For m 1T03 For n= 1To3 If n=m Or n=4 -m Then a(m,n)=m+n Else a(m,n)=0 End if Picture1.Print a(m,n) Next n Picture1.Print Next m End Sub 程序运行后，单击命令按钮，图像框中显示的内容是什么? 五、程序填空题（5个空，每空5分，共25分）。 程序1 [程序说明]以下程序随机产生100个两位正整数，先对这些数按从大到小的顺序 排序每行10个显示在窗体上。再找出所有的个位数字与十位数字之和等于10的数。 [程序] Private Sub Form_ Click() Dim a(100) As Integer, i As Integer, j As Integer, t As Integer, X As Integer,y As Integer For i= 1 To 100 a(i)=____________________ Next i For i= 1To99 Forj=i+ 1To 100 If a(i)< a(j)Then ___________________________ End If Next j Next i Fori= 1To 100 Print a(i); ________________________________ Nexti For i= 1 To 100 X=______________________’取十位数字 Y= a(i) Mod10 '取个位数字 If x+y = 10Then Print a(i) Next i End Sub Private Sub Swap______________________________________ Dim Temp As Integer Temp=X:X=Y:Y= Temp End Sub
2018年第一学期期末考试题
