发布时间 : 星期五 文章《VB程序设计(专科)》自测题二--答案更新完毕开始阅读ee442994e53a580216fcfe6a
… …__…__…__…__…__…__… __…_ __… 心…中…学 教… _…_ __…__线__… __…_ __… __…__…_ 学号……__…__…__…__…__封__…__… __…号 班… … … __…__…_ __…__…__…__…__…__…_称…名密业… 专… _… ___… __… ___…__… __…__…__…_名…姓…………电子科技大学网络教育考卷(A2卷)
(20 年至20 学年度第 学期)
考试时间 年 月 日(120分钟) 课程 VB程序设计 教师签名_____
大题号 一 二 三 四 五 六 七 八 九 十 合 计 得 分 一、填空题(每空2分,共10分)
1、 对象 是面向对象的程序设计的基本概念,也是其核心。 2、 事件过程是指对象对发生在其上的某一事件的反应。 3、 命令按钮控件的Caption属性代表 按钮的标题 。
4、 窗体的位置是相对于屏幕而言的,且由 Left属性和 Top 属性来决定它的位置。
5、 IIf函数可用来执行 简单的条件判断 操作,它是“ If?Then?Else ”结构的简写版本。6、 数组是 内存 中连续存储的一组 单一数据类型值 的数据结构。 7、 字符串格式化是将字符串按 指定的格式 进行大小写显示。
二、单项选择题(每题2分,共20分)
1、 下列可以作为VB变量的是:
( B )
A、a(x*y)
B、second
C、1xyz D、学生信息
2、 逻辑表达式 1>0 and Not 2<7 or 2>6的值为
( B )
A、true B、false C、3
D、0
3、 表达式 “Windows” Like “W_*_s” 的结果为:
( C )
A、indow
B、Windows C、True D、False
4、 下列赋值语句正确的是
( A )
A、 x=y+z
B、y/z=a
C、-b=a
D、a=2×b 5、 文本框控件的值是哪个属性
( B )
A、Caption B、Value
C、Index D、Name 6、 在字符串中定位子串的函数为:
( A )
A、Istr(string1,string2)
B、Mid(string)
C、LTrim(string) D、Trim(string) 7、 如下数组声明语句,正确的是
( B )
A、Dim a[1,1] as interger
B、Dim a(2,2) as integer
C、Dim a(n,n) as integer D、Dim a(4 4) as integer 8、 LBOUND函数的作用是
( A )
A、获取数组的下界 B、获取数组的上界 C、获取数组的长度
D、获取数组的维度
9、 在设计菜单添加菜单项时,需要添加一个分隔条,标题设置为:
( D )
A、加号 B、感叹号
C、星号
D、减号 10、
下列控件中不能响应Click事件的是
( D )
A、Button
B、Label
C、Form
D、Timer
三、简答题(每题5分,共30分)
1、 简述参数按地址传递和按值传递的区别。
答:按值传递参数时,传递的只是变量的副本。如果在过程中改变了这个形参的值,则所进行的变动只影响副本而不会影响实参变量本身。可使用ByVal关键字指出参数是按值来传递的。
按地址传递参数使过程用变量的内存地址去访问实参变量的内容。结果将实参变量传递给过程时,通过
调用过程改变实参变量的值。使用ByRef关键字指出参数是按地址传递的。
2、 简述动态数组的使用过程。 答:
1) 先声明数组为动态数组,与静态数组的声明相比,只是不指出数组的大小。基本格式为:dim 数组
名() [ as 数据类型]
2) 在需要制定数组大小时,再使用ReDim语句分配数组中实际元素的个数。使用格式为:
3) ReDim 数组名 ([ 下界1 to ] 上界1,[下界2 to] 上界2 …) [ As 数据类型]
3、 简述窗体设计的基本过程。 答:
1) 建立空白窗体对象 2) 设置窗体属性 3) 添加窗体内控件
4) 设置控件属性,并进行窗体布局设计 5) 编写窗体及控件事件过程代码
1
4、 简述菜单的基本结构;
答:菜单是一个特殊的空间,其中的每一个菜单项都是一个独立的控件。作为控件,它们都有自己的属性,基本的包括标题和名称。可以通过编辑器设置菜单的标题、名称、快捷键、热键、可见性、有效性等。菜单控件最基本的就是Click事件,在代码窗口通过选择菜单项,即可编辑器相关事件代码。
5、 简述ADO模型的使用过程。 答:
1)建立connection对象,通过其建立数据库连接 2)建立RecordSet对象,并编写查询语句 3)执行查询,并填充记录到RecordSet 4)通过RecordSet对象的属性和方法操作数据 5)更新数据
6、 简述实现二进制文件读写的一般过程。 答:
1) 打开文件
open 文件名 for binary as #文件名 2) 写入数据
put #文件号,【位置】,变量 3) 读取数据
get #文件号,【位置】,变量 4) 关闭文件
close #文件号
(共4题,40分)
1、 设计一个函数,输入1个学生成绩,返回成绩的等级,分别为不及格:0~59,及格:60~69,中等:70~
79,良好:80~89,优秀:90~100;(10 分) 答:
Public Function level(ByVal score As Integer) As String
If score >= 0 And score <= 100 Then Select Case score Case Is >= 90
level = \优秀\ Case Is >= 80
level = \良好\ Case Is >= 70
level = \中等\ Case Is >= 60
level = \及格\ otherwise
level = \不及格\ End Select Else
level = \异常\ End If End Function
2、 设计一个过程,将输入的正整数按十六进制形式输出;(15分) 答:
Public Sub hex()
Dim n As Integer, i As Integer, j As Integer Dim sbit(20) As Integer
n = Val(InputBox(\输入整数\ i = 0
Do While (n > 0)
sbit(i) = n Mod 16 n = Int(n / 16) i = i + 1 Loop
Dim str As String str = \
For j = i - 1 To 0 Step -1 If sbit(j) <= 9 Then str = str & sbit(j) Else
Select Case sbit(j) Case 10
str = str & \ Case 11
str = str & \ Case 12
str = str & \ Case 13
str = str & \ Case 14
str = str & \ Case 15
2
四、应用题
str = str & \ End Select End If Next Print str End Sub
3、 设计一个过程,实现以下功能:输入N,输出 n! + (n-1)!+ … +2! + 1! 的值;(15分) 答:
Public Sub times_all()
Dim sum As Integer, n As Integer, mul As Integer Dim i As Integer, j As Integer sum = 0
n = Val(InputBox(\请输入N:\ For i = n To 1 Step -1 mul = 1
For j = i To 1 Step -1 mul = mul * j Next
sum = sum + mul Next End Sub
3