2013年VB语言程序设计试卷A

2013年春季学期年春季学期 VBVB 语言程序设计语言程序设计 试卷试卷 A A 命题教师命题组系主任审核考试形式闭卷 考试类型 学位课 非学位课 请打 选择 考试班级管院 12 级考试日期2013 年 6 月 8 日考试时间2 小时 班 级姓名学号成绩 注意 1 命题时请适当留答题位置 请用深蓝色墨水书写 字 图清晰 书写不出边框 2 答题演草时不许使用附加纸 试卷背面可用于演草 试卷不得拆开 一 单项选择题 本大题共 20 小题 每小题 1 分 共 20 分 1 与传统的程序设计语言相比 Visual Basic 最突出的特点是 C A 结构化程序设计 B 程序开发环境 C 事件驱动的编程机制 D 程序调试技术 2 以下能在窗体 Form1 的标题栏中显示 VisualBasic 窗体 的语句是 A A Form1 Caption VisualBasic 窗体 B Form1 Title VisualBasic 窗体 C Form1 Name VisualBasic 窗体 D Form1 Text VisualBasic 窗体 3 在 VB 中 使用变量 x 存放数据 87654321 123456 应该将 x 声明为 B 类型 A 单精度 Single B 双精度 Double C 长整型 Long D 货币型 Currency 4 在 VB 中 设 x 10 y 50 要求生成一个字符串变量 s 其值为 10 50 500 其中数字由变 量 x 和 y 的值或表达式来表示 正确的是 C A s x y n c b a End If Next b Next a End Sub 教务处印制 共 14 页 第 6 页 3 下面程序的功能是对已知数组 a 删除数组中数组元素中某个元素 要删除的数组元素的值 由 Inputbox 输入 请分析下面的程序 并填空 Private Sub Command1 Click Dim a as variant Dim key as integer i as integer j as integer a Array 1 6 8 3 5 9 10 2 7 4 key Val InputBox 输入要删除的值 For i 0 To 9 If Then For j i 1 To 9 Next j ReDim Preserve a 8 MsgBox 删除完成 Exit Sub End If Next i MsgBox 找不到要删除的元素 End Sub 教务处印制 共 14 页 第 7 页 4 分析下面的程序 假定输入的数据依次为 1 2 3 4 5 6 7 8 9 Private Sub Form Click Dim a 1 to 3 1 to 3 as integer Dim m as integer n as integer max as integer For i 1 To 3 For j 1 To 3 a i j Int InputBox 输入要数组元素的值 Next j Next i For i 1 To 3 For j 1 To 3 Print a i j Next j Print Next i max a 1 1 m 1 n 1 For i 1 To 3 For j 1 To 3 If max a j Then t a i a i a j a j t End If Next j Next i Print 排序结果 排序结果 For i 1 To 10 Print a i Next i End Sub 教务处印制 共 14 页 第 13 页 4 编写程序求解 s 1 2 3 10 的值 要求把求解 n 定义成一个 function 过程 然后通过 主程序调用求解 主调程序在 Form Load 事件中实现 Private Sub Form Load Dim y As Long s As Long Show S 0 For i 1 to 10 S s fac i Next i Print 1 2 10 s End Sub Private function fac n As Integer as lon