《《VB程序设计（专科）》自测题三-答案.doc》由会员分享，可在线阅读，更多相关《《VB程序设计（专科）》自测题三-答案.doc（2页珍藏版）》请在金锄头文库上搜索。
1、姓名_ 专业名称_班号_学号_教学中心_ 密 封 线 电子科技大学网络教育考卷（B卷）(20 年至20 学年度第 学期)考试时间 年 月 日(120分钟) 课程 VB程序设计 教师签名_ 大题号一二三四五六七八九十合 计得 分一、 填空题（每空1分，共10分）1、 10+(20-math.sqrt(25) * 2 ) / 4 的运算结果为 12.5 ；2、 if b a then max= b else max =a 用iif函数替代实现的写法为 max=iif(ba,b,a) ；3、 2008年8月8日的日期常量表示为 #2008-08-08# ；4、 Do循环有两类语法形式，即 前测型 循
2、环和 后测型 循环。5、 数组必须先声明后使用，主要声明 数组名 、 类型 、 维数 和 大小 。6、 程序事件可以由动作引发， 程序本身 也可以引发事件。二、 单项选择题（每题2分，共20分）1、 后缀为.bas的文件表示VB的( D )A、类模块文件B、窗体文件C、工程文件D、标准类模块文件2、 下列变量名合法的是( C )A、2xyB、a-bC、a_2D、float3、 表达式1 + 25 6 * 2 / 3 mod 4 的值是( B )A、0B、1C、2D、34、 表达式 “A” Like “A-Z” 的结果为：( C )A、AB、ZC、TrueD、False5、 下列语句是二维数组引
3、用的是：( C )A、g2,3B、g23C、g(2,3) D、g(2)(3)6、 窗体Caption属性的含义为( A )A、决定窗体标题栏显示的内容B、决定是否显示窗体的控制菜单图标C、设置窗体的边框样式D、设置窗体的大小7、 语句format(1234.5678 , ”#.00” )的结果为：( B )A、“1234.56”B、“1234.57”C、1234.56 D、1234.578、 引用对象的属性和方法使用的符号为：( C )A、减号( - )B、箭头（-）C、小数点( . ) D、冒号( : )9、 获取当前系统日期和时间的函数名为：( B )A、NowB、DateC、IsDate
4、 D、TimeOfDate10、 Timer控件只有一个事件，该事件的名称是( B )A、LoadB、TimerC、ClickD、Run三、 简答题（每题5分，共30分）1、 简述创建应用程序的工程包括哪些内容。答：窗体是应用程序的基本构件。应用程序至少拥有一个窗体。窗体用于输入和输出。此外，作为VB的工程应该包括以下内容：工程文件，工程组文件：用于工程管理；窗体文件：一个窗体对应一个文件；模块文件：标准模块文件，主要有代码组成，声明一些全局变量和过程。类模块文件：用户定义的类相关文件；数据文件：是一个二进制文件。2、 简述Visual Basic 6.0标识符的命名规则。答：必须以字母开头不
5、能包含嵌入的（英文）句号或者嵌入的类型声明字符不能超过255个字符在同一个范围内必须是唯一的。3、 试给出控件的5个常用属性，并简单说明；答：name：控件的名称enabled：指定属性是否可以操作visible：决定属性是否可见font：指定控件文本字体ForeColor：指定控件文本字体的前景色4、 说明如何使用可选参数，并设定参数默认值？答：在过程的参数表中输入Optional关键字，就可以指定过程的参数为可选的。要求可选参数后面的参数也必须是可选的，并用Optional关键字声明。可选参数通过以下形式指定默认值：Optional 参数= 值5、 试说明控件数组的建立和使用。答：控件数组
6、中每一个元素都是控件，可以通过以下两种方法建立控件数组：给控件设置相同的名称，即修改若干控件的name属性，使之相同，相同名称的控件构成了控件数组采用控件复制的方法，多次粘贴到其他位置上，所有被粘贴的控件和原控件一起构成了控件数组。6、 简述实现随机文件读写的一般过程答：对随机文件的操作实际上是对文件中的记录进行操作，每个记录都有记录号并且记录长度相同。基本操作如下：打开文件open 文件名 for random as #文件号 【len = 记录长度】写入数据put 【#】文件号，【记录号】，记录变量读取数据get 【#】文件号，【记录号】，记录变量关闭文件close四、 应用题 （共40分
7、）1、 设计一个函数，参数不定，类型为整数，返回最大值；（10分）答：Public Function get_max(ParamArray intnums() As Integer Dim n As Integer, maxnum As Integer maxnum = 0 For n = 0 To UBound(intnums) If maxnum st1(i).sage Then maxi = i End If Next Print 年龄最大男生信息：; Print st1(maxi).sno + , + st1(maxi).sname + , + st1(maxi).ssex + , +
8、 str(st1(maxi).sage)End Sub3、 设计一个过程，输入33整数矩阵，求取其转置矩阵（15分）答：Public Sub trans()Dim a(1 To 3, 1 To 3) As Integer a(1, 1) = 1: a(1, 2) = 2: a(1, 3) = 3 a(2, 1) = 4: a(2, 2) = 5: a(2, 3) = 6 a(3, 1) = 7: a(3, 2) = 8: a(3, 3) = 9 Dim tmp As Integer For i = 1 To 3 For j = 1 To i tmp = a(i, j): a(i, j) = a(j, i): a(j, i) = tmp Next j Next i For i = 1 To 3 mystr = For j = 1 To 3 mystr = mystr + Format(a(i, j), ) Next j Print mystr Next iEnd Sub2
