经管法10—11学年第二学期《visual 程序设计》课程期末考试试卷（A卷）任课教师：学号：姓名：成绩：一、单项选择题（每题1分,共30分）注意答案必须写在下面答题卡中1．在下列窗口中，（）可以查看与项目有关的所有文件。

A）解决方案资源管理器B）属性窗口C）起始页D）任务列表2.若要使命令窗口不可操作，要对（）属性进行设置。

A)Enabled B)Visible C)BackColor D) Text3.项目名为“现实”，在窗体上建立了PictureBox控件，若在代码窗口中要装入图片，语句如下picturebox控件名.image=image.fromfile(“图片文件名”)，图片文件存放的当前路径应该是（）。

A)现实B)现实\Bin\Debug C) 现实\Bin D)\4.有程序代码入下:TextBox1.Text=“Text”,则TextBox1、Text、“Text”分别代表（）。

A)对象、值、属性B)对象、方法、属性C) 对象、属性、值D) 属性、对象、值5. 项目文件的扩展名是( )。

A).vb B) .sln C) .exe D) .vbproj6.下面是合法的变量名（）。

A) A_Bc B)9abc C)Long D) a-b7.下面（）是合法的字符常量。

A)ABC$ B)”ABC”C)’ABC’D)ABC8. 表达式Chr(Int(Rnd*10+66))产生的范围是( )。

A)“A“～”Z”B) “a“～”z”C) “B“～”K”D) “b“～”k”9. 已知A$=”12345678”,则表达式val(Mid(A,4,2) +Mid(A,1,4))A)561234 B)454321 C)654321 D) 45123410.InputBox函数中必修要写的参数是（）。

A)Prompt B)Title C)DefalutResponse D)XPos,YPos11.\、/、Mod、*这四个算术运算符中，优先级别最低的是（）。

A)\ B) / C)mod D) *12.If x=1 then y=1,下列说法中正确的是（）。

A)x=1和y=1均为赋值语句B) x=1和y=1均为关系表达式C) x=1为关系表达式，y=1为赋值语句D) x=1为赋值语句，y=1 为关系表达式13.下列关于单选按钮和复选框控件的说法中，错误的是（）。

A)一个复选框的状态发生变化，不会影响其他复选框的状态B)一个单选按钮的状态发生变化，同组中必有另一个单选按钮的状态也发生变化C)某个单选按钮被单击，这一定会触发它的CheckChangedD)某个复选框被单击，这一定会触发它的CheckChanged14.如下数组声明语句（）是正确的。

A) Dim a(9) As Single = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}B) Dim a() As Single = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}C) Dim a() As Single = {1, "a", 3, "bc", 4, 5, 6, 7, 8, 9, 10}D) Dim a(,) As Single = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}15.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（）。

A) Sub f2(byval n%,byval m%)B) Sub f1(byref n%,byval m%)C) Sub f1(byref n%,byref m%)D) Sub f2(byval n%,byref m%)16.在下列关于通用对话框的说法中，正确的是( ) 。

A)可以用showdialog方法打开B)可以用show方法打开C)当单击了“取消”按钮后，showdialog方法的返回值是dialogresult.okD)通用对话框是用户界面控件17.在下列关于菜单的说法中，错误的是（）。

A)每个菜单项都是一个对象，也有自己的属性、方法、事件B)除了click事件之外，菜单项还能响应DoubleClickC)在程序执行时，如果菜单项的Enable属性值为False,则该菜单项变成灰色，不能被用户选择D) 菜单的分隔符也是一个对象18.下面关于顺序文件的描述中，正确的是（）。

A)文件中的记录按记录号从小到大排序B) 每条记录的长度必修相同C) 数据以ASCII码形式存放在顺序文件中的D) 记录是按进入的先后顺序存放的，读出也是按先写入的先后顺序读出的19.Select Case 语句中，表达式是下面四种形式，不正确的是（）。

A)表达式，例如"a"B)一组用逗号分隔的枚举值，例如"a"，"b"C) 表达式1 to 表达式2，例如1 to 10D) 关系运算符表达式，例如>=6020. 表达式Len("abc程序设计教程123")的值是（）。

A)18 B)12 C) 11 D) 2021.为了给x,y,z这三个变量赋初值1，正确的赋值语句是（）。

A)x=1:y=1:z=1 B)x=1,y=1,z=1 C)x=y=z=1 D) x=1;y=1;z=122.下面四种运算符，优先级别最低的是（）。

A)算术运算符B)逻辑运算符C) 连接运算符D) 关系运算符23. 要存放某人的年龄，下面的( )数据类型占用的字节数最少。

A) Short B) Byte C) Integer D) Long24.使用分组控件（GroupBox）的主要作用是（）。

A) 为了规则显示B)对控件分组C) 建立新的显示创口D) 在窗体上绘制线条25.下列循环体能正常结束的是（）。

A) i=5 B)i=10Do doi=i+1 i=i+1loop until i<0 loop until i>20C) i=1 D) i=6Do Doi=i+2 i=i-2loop until i=10 loop until i=126.下列关于do…..loop循环结构执行循环体次数的描述正确的是（）。

A) Do while …loop循环可能不执行，do…loop until循环至少可以执行一次B) Do while …loop循环至少可以执行一次，do…loop until循环C) Do while …loop和do…loop until循环可能都不执行D) Do while …loop和do…loop until循环都至少执行一次27.假定有两个窗体form1和form2,form2上有一个文本框textbox1,则在下列说法中，错误的是( ）。

A) 可以用语句form1.show显示form1B) 可以用语句form2.showdialog显示form2C) 在form1窗体上可以用form2.textbox1.text访问form2上的textbox1D) 在form1窗体上可以用textbox1.text访问form2上的textbox128.在用通用对话框控件建立打开文件对话框时，在文件列表框只允许显示问本文件，则filter属性的正确设置是（）。

A) text(.txt)||*.txt B) text(.txt) C) 文本文件|(.txt) D) text(.txt)|*.txt29.随机文件使用下述（）语句读数据。

A)Write B) FilePut C)Input D) FileGet30.以下关于Visual 的叙述中不正确的是（）。

A) Dim a,b as integer 变量声明语句将a,b声明为整形。

B) 当Boolean类型的值转换为数值类型的数时，False转为0，True转成为-1。

C) 在中，数组的下界可以是小于上界的任何整数。

D) 顺序文件的每条记录的长度可以相等。

二、填空题(每空1分，共20分)(注意将结果写在下面相应横线上)（1）（2）（3）（4）（5）（6）（7）（8）（9）（10）（11）（12）（13）（14）（15）（16）（17）（18）（19）（20）1. 整形变量x中存放了一个两位数，要将两位数交换位置，例如67变成76，实现这一功能的表达式是（1）。

2.表示x是5的倍数或者是9的倍数的表达式是（2）。

3.在编程中，如果要使用数学函数，应该在模块代码的最前面添加语句（3）。

4.要显示当前机器内系统日期的函数为（4）。

5.VB中的变量按其作用域可分为（5）、模块级变量、（6）和块级变量。

6.隐藏窗体的方法是（7），关闭窗体的方法是（8）。

7.在循环语句For和Do中，Continue语句的作用是（9）。

8.在中，如何表示2005年12月7日（10）9.自定义对话框，要求这个对话框弹出后，不可以在其他窗体上进行操作，程序也不继续运行下去，则应该设置这个对话框为（11）。

10.文件按照存储信息的形式分类，可以分为（12）文件和（13）文件。

11.下面程序段用于显示（14）个"*"。

For i=1 to 4For j=2 to imsgBox("*")next jnext i12. 设x是一个整型变量，写出x的个位数是奇数的表达式（15）。

13.对于正在使用的数组x(n),既要增加2个数组元素，又要保留原来数组元素的值，使用的命令是（16）14.已知a=3.5,b=5.0,c=2.5,d=True,则表达式a>=0 and a+c>b+5 or not d的值是（17）15.如下数组声明语句，dim a(3,4),则数组a中包含的元素有（18）个。

16. 提供了结构化程序设计的三种基本结构，它们是顺序结构、（19）和（20）。

三、程序分析与填空(按题目要求答题！每空两分，共30分)(注意将结果写在下面相应横线上)（1）（2）（3）（4）（5）（6）（7）（8）（9）（10）（11）（12）（13）（14）（15）1.输入若干字符，统计有多少个元音字母（"A", "E", "I", "O", "U"）、多少个其他字母，直到按enter键结束，显示结果，不区分字母大小写。

其中Y中存放元音字母个数，X中存放其他字母个数。

Dim y%, x%Private Sub TextBox1_KeyPress(……) Handles TextBox1.KeyPressDim c As Charc = UCase(e.KeyChar)If "A" <= c And c <= "Z" ThenSelect Case cCase （1）y = y + 1Case Elsex = x + 1（2）End IfIf Asc(c) = 13 ThenMsgBox("元音字母有" & y & "个")MsgBox("元音字母有" & x & "个")End IfEnd Sub2. 程序填空找出分别被3,5,7,除余数都为1的最小的5个正整数。