VB程序设计习题

1、精选优质文档-倾情为你奉上洛阳师范学院20112012学年第二学期期末考试 电子信息科学与技术、物理学 专业 2011 级 VB程序设计 试卷（A）题号一二三四五总分得分得分评卷人一、单项选择题（每题2分，共20分） 1. Visual Basic是一种面向对象的程序设计语言，以下（ ）不是对象所包含的三要素。A. 变量 B. 事件 C. 属性 D. 方法2. 要使文本框获得输入焦点，则应采用文本框控件的（ ）方法。A. GotFocus B. LostFocus C. KeyPress D. SetFocus3. 下面的控件中，用来将屏幕上的对象进行分组的是（ ）。A. 列表框 B. 组合框

2、 C. 框架 D. 图片框4. 要使Print方法在Form_Load事件中起作用，要对窗体的（ ）属性进行设置。A.ForeColor B.Caption C.BackColor D.AutoRedraw5. 为使得图像框(Image)中的图像能够自动调整大小以适应图像框的大小，以下正确的设置是（ ）。A. 将AutoSize属性设置为True B. 将AutoSize属性设置为False C. 将Stretch属性设置为True D. 将Stretch属性设置为False 6. 在VB中，要使一个窗体不可见，但是并不从内存释放，应该使用的方法是（ ）。A.Show B. Hide C. L

3、oad D. Unload7. 下面数组声明语句错误的是（ ）。A. Dim a%(-5 to -3) B. Dim a%(-1 to 2,3) C. Dim n%,a%(n) D. Dim a(-1 to 0) as Integer8. 以下合法的Visual Basic标识符是( )。A. ForLoop B. Const C. 9abc D. a#x9. 确定一个控件在窗体上位置的属性是（ ）。A. Width和Height B. Width或Height C. Top和Left D. Top或Left10. 下列控件中可自动设置滚动条是（ ）。A.复选框 B.框架 C.文本框 D.列表

4、框得分评卷人二、填空题（每空1分，共15分） 1. VB提供的Visible属性，用来控制对象是否可见，当属性值为 时，表示对象可见。2. 数字关系：x0，并且x 10，写成正确的VB表达式为 。3. ReDim 语句用于确定_ 数组的大小。4. 随机生成一个两位正整数的表达式是_。5. 表达式20 / 4 - 3 2 * 6 2 mod 7 2 的值是_。6. 表达式 Mid(abcdefgh,3,4) 的值是_ 。7. 语句Dim a(-1 To 1,3 To 6) As Integer 定义的数组的元素个数是 。8. 在VB中，组合框有三种不同的风格形式，通过_属性设置。9. 为使计时器

5、控件每隔0.5秒钟产生一个计时事件(Timer事件)，则应将其Interval属性值设置为 。10. 为了使标签能自动调整大小以显示全部内容，应把标签的 属性设置为True。11. 在设计阶段，当双击窗体上的某控件时打开的是 窗口。12. 工程文件的扩展名是 。13. 循环语句 For i = 3 to 10 Step 4 的循环次数为 。14. VB中显示弹出菜单所使用的方法是 。15. VB中当对象失去焦点时，会产生 事件。得分评卷人三、程序填空题（每空2分，共12分） 以下程序的功能是：对已知存放在数组中的6个数，用选择法按递减顺序排放。请填空，将程序补充完整。Private Sub C

6、ommand1_Click() Dim iMax%, n%, i%, j%, t% Dim 数组a声明 a=array(8, 6, 9, 3, 2, 7) n= 获得数组的上界 For i=0 to n-1 排序 iMax=i For j=i+1 to n If then iMax=j t=a(i) a(i)=a(iMax) a(iMax)=t Next i 输出排序结果 Print a(i); Next i 过程结束得分评卷人四、程序阅读题（每题4分，共20分） 1. 下面程序运行后的输出结果是什么？ Private Sub Form_Click()For i=3 To 1 Step -1

7、Print Spc(5-i); String(2*i-1, ”A”) Next i End Sub 2. 下面程序运行后的输出结果是什么？ Private Sub Form_Click() m= 0 Do Until 0 m= m + 1 If m10 Then Exit Do Loop Print mEnd Sub3. 以下函数实现的功能是什么？ Function fun(n%) As String Dim c as string Do While n0 c=(n mod 2) fun= c & fun n=n2 Loop End Function4. 程序运行后，单击窗体上的命令按钮，在窗

8、体上显示的内容是什么？ Private Sub f1(ByRef x1%, ByVal y1%)x1 = x1 + 2 y1 = y1 + 2End SubPrivate Sub Command1_Click()Dim x%, y%x = 10 ：y = 5Call f1(x, y)Print x, yEnd Sub5. 有如下过程代码：连续3次调用var_dim过程，第3次调用时的输出是什么？ Sub var_dim() Static numa As Integer Dim numb As Integer numa = numa + 2 numb = numb + 1 Print numa;

9、 numb End Sub 得分评卷人五、程序设计题（共33分） 1. 某单位增加工资，若工资大于等于2000元，增加工资的10%；若小于2000元大于等于1000元，则增加工资的20%；若小于1000元，则增加工资的30%，请根据用户输入的工资，计算出增加后的工资（程序中应考虑输入错误时的处理方法）。（8分）2. 编程实现：输入某班级30个学生的成绩存放在一维数组中，统计并输出最高分、最低分、平均分和高于平均分的人数。（9分）3. 编写子过程Search(a%(), Byval key%, Byref index%), 在数组中查找关键字key（key为存放待查找的关键字形参，index为存放查找结果的形参），若查找不成功，index值为-1；查找成功则index为key在数组中的位置；在Form的Click事件中实现输入和输出操作。（10分）4. 界面如图所示的密码检查程序，