程序设计基础期中考试试卷与参考答

第 1 页 共 7 页 程序设计基础 课程期中考试试卷 试题一 判断题 每小题 2 分 共 20 分 说明 在以下提供的若干陈述中 逐一判断其正确与否 用 A 表示正确 用 B 表示错误 1 事件过程可以由某个用户事件触发执行 它不能被其他过程调用 2 Visual Basic 的 Double 类型数据可以精确表示其数值范围内的所有实数 3 For Next 循环正常 未执行 Exit For 结束后 控制变量的当前值等于终值 4 Sub 过程名在过程中必须被赋值 5 SetFocus 方法是把焦点移到指定对象上 使对象获得焦点 该方法适用于所有控件 6 移动框架时框架内控件也随之移动 所以框架内控件的 Left 和 Top 属性值也随之改变 7 单选钮控件和复选框控件都具有Value 属性 它们的作用完全一样 8 当组合框的 Style 属性设置为 0 时 组合框称为 下拉式组合框 其选项可以从下拉 列表框的列表项中选择 也可以由用户输入 9 若 Visual Basic 中容器取缺省坐标系 则坐标原点在容器左上角 单位长度为像素 10 用 Output 模式打开文件 如果指定文件和路径不存在 则会自动创建指定文件及路径 试题二 单选题 每小题 2 分 共 20 分 11 将 VB 新建的 标准 EXE 工程保存在磁盘上 至少会产生 11 文件 A frx 和 frm B exe 和 vbp C vbp 和 frm D frm 和 bas 12 窗体 Form1 的 Name 属性是 Frm1 它的单击事件过程名是 12 A Form1 Click B Form Click C Frm1 Click D Me Click 13 已知字符串变量 x 存放 1234 表达式 Val 34 56 Hi Date 后 相应的文件内被写入 20 A 234 34 56 Hi 2004 06 11 B 234 34 56 Hi 2004 06 11 C 234 34 56 Hi 2004 06 11 D 234 34 56 Hi 2004 06 11 试题三 程序填空题 每空 2 分 共 20 分 说明 阅读下列程序说明和相应程序 在每小题提供的若干可选答案中 挑选一个正确答案 程序 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 21 Next i For i 1 To 99 For j i 1 To 100 If a i 1 And 30 Then n n 1 End Sub 选项 26 A 退出 B 开 始 C 显示 D 开始 27 A n B Val n C Str n D Trim n 28 A 1 B 0 C 2 D 3 29 A vbBlack B RGB 255 0 0 C vbWhite D RGB 255 255 0 30 A x x y y 2 And y 2 C x x y y 4 第 4 页 共 7 页 试题四 程序改错题 每小题 2 分 共 10 分 Transfer 过程用于将一个十六进制整数转换为十进制整数 number 函数过程用于将一个十六进 制符号转换为数值 Public Sub Transfer Dim Hex As String 十六进制数 Dim Dec As Double 十进制数 Dim temp As String Dim i As Integer Dim n As Integer Hex InputBox 输入一个十六进制整数 n Val Hex 1 i 0 Do temp Mid Hex i 1 2 Dec Dec number 16 i 3 i i 1 Loop While i n Form1 Print str Hex y End Sub 程序 3 写出程序运行后事件过程 Timer1 Timer 自动执行的次数 运行中 这段文字的显示位 置及 Label1 的标题在窗体上的变化规律 Private Sub Form Load Timer1 Interval 100 Form1 WindowState 2 Label1 Width ScaleWidth 2 Label1 Left ScaleLeft Label1 Alignment 0 Label1 Caption 运行中 End Sub Private Sub Timer1 Timer Static m As Byte m m 8 Label1 FontSize m Timer1 Interval Timer1 Interval 100 If m 80 Then Timer1 Enabled False End Sub 程序 4 写出程序运行后单击窗体 窗体上的显示结果 Private Sub Form Click Dim i As Integer j As Integer For i 1 To 6 Print Spc 6 i For j 1 To 2 i 1 Print W Next j Print Next i End Sub 试题六 程序设计题 10 分 文本文件 e aaa txt 中存放了若干行字符 编制相应事件过程 在加载窗体时读入文件中 各行字符并顺序在列表框控件 List1 的列表部分显示 在运行时按窗体控制菜单 关闭 后自动将 列表框中各行数据存储到文本文件 e aaa txt 提示 加载窗体时自动执行的事件过程是 Form load 按窗体控制菜单 关闭 后自动执 行的事件过程是 Form Unload Cancel As Integer 第 6 页 共 7 页 参考答案 一 判断题 每小题 2 分 满分 20 分 1 2 3 4 5 6 7 8 9 10 BBBBBBBABB 二 单选题 每小题 2 分 满分 20 分 11 12 13 14 15 16 17 18 19 20 CBDDBABA BA 三 程序填空题 每小题 2 分 满分 20 分 21 22 23 24 25 26 27 28 29 30 ABDBCDCBAA 四 程序改错题 每小题 2 分 满分 10 分 1 n Len Hex 2 temp Mid Hex n i 1 3 Dec Dec number temp 16 i 4 Form1 Print Hex 转换为十进制数为 Dec 5 number Val str 五 程序阅读题 每小题 5 分 满分 20 分 程序 1程序 2 程序 3程序 4 执行次数为 11 文字的显示位置始终在窗体的左边 Label1 的标题在窗体上的显示变化规律为字 体变大 变化减慢 第 7 页 共 7 页 六 程序设计题 10 分 Private Sub Form Load Dim x As String Open e aaa txt For Input As 1 Do While Not EOF 1 Line Input 1 x List1 AddItem x Loop Close 1 End Sub