vb题5.docVIP

2010-20101学年第一学期《VB程序设计》期末考试试题 试题编号：201005 适用范围： 2009级理科本科生 考试时间：60分钟 要求：1、在我的电脑D：盘下建文件夹，文件夹名为自己的学号如“20091331001”； 2、工程文件窗体文件保存为：.vbp, 201005.frm； 3、工程文件只能在做好后保存或另存为题目中要求的文件名切记不要在关闭工程文件后重命名，这样会导致文件打不开。 1 窗体设计图 表1 界面控件属性设置 控件名称 属性名称 属性值 Label1 Font 黑体，三号 Caption 个人信息 Text1 Text a Picture1 Height 975 Width 1935 Command1 Caption 判断字符 Command2 Caption 数组插入 Command3 Caption 判断闰年 二、将下面代码补充完整，实现下述功能。（共20分） 输入一个任意字符到Text1，单击“判断字符”按钮后，若输入的是字母，则图形框显示“ 是字母字符”，如果输入的是数字字符，则图形框显示“ 是数字字符”，若输入字母、数字以外的其他字符，则图形框显示“ 是其他字符”。 Private Sub Command1_Click() Dim ch As String * 1 Picture1.Cls ch = （1） If UCase(ch) = A （2） UCase(ch) = Z Then Picture1.Print ch; 是字母字符 ElseIf Then Picture1.Print ch; 是数字字符 Else Picture1.Print End If End Sub 三、程序改错（四处错误，共20分） “数组插入”按钮单击事件过程功能为：给数组a（1 To 6）赋初始值分别为1，3，5，7，9，11，从文本框Text1任意接收一个整数，并将其插入数组的适当位置，使得插入后的数组仍然递增有序，并显示插入后数组。 Private Sub Command2_Click() 将文本框数按顺序插入数组并显示 Dim a(1 To 7) As Integer, m As Integer, i As Integer, j As Integer Picture1.Cls For i = 1 To 6 赋值输出 a(i) = i Picture1.Print a(i); Next i Picture1.Print m = Val(Text1.Text) For i = 1 To 6 找插入位置 If m a(i) Then Exit For Next i For j = 7 To i + 1 Step -1 移动元素 a(j) = a(j - 1) Next j m = a(i) 插入元素 For i = 1 To 6 输出结果 Picture1.Print a(i); Next i End Sub 四、编程序（20分） 文本框Text1中输入年份，判断该年是否闰年提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。 系班： 姓名： 学号： 机号： 试题编号 201005 第 1 页，共 2 页