VB+VBA期末考卷城市学院.docx

1、VB+VBA期末考卷城市学院年级：_ 专业：_ 班级：_ 学号：_ 姓名：_.装.订.线诚信应考 考出水平 考出风格浙江大学城市学院2010 2011 学年第二学期期末考试试卷 VB程序设计基础与VBA应用 开课单位： 计算分院 ；考试形式：闭卷；考试时间： 2011 年 6 月 28 日所需时间：120 分钟题序一二三四总 分得分评卷人得分一、单选题(本大题共 13 题，每题 2 分，共 26 分。)题号12345678910111213得分二、程序填空题(本大题共 1 题 10 空，每空 2 分，共 20 分。)(1) (2) (3) (4) (5)(6) (7) (8) (9) (10)

2、得分三、程序阅读题(本大题共 6 题，每题 4 分，共 24 分)第1题: 第2题: 第3题: 第4题:第5题: 第6题:得分四程序设计题(本大题共 3 题，每题 10 分，共 30 分。)第1题： .Sub Form_Click() Dim year As IntegerEnd Sub第2题： .Function fact(n As Integer) As Double End FunctionSub Form_Click() Dim x As Single, s As SingleEnd Sub第3题： .Sub CommandButton1_Click()End Sub年级：_ 专业：_

3、 班级：_ 学号：_ 姓名：_.装.订.线浙江大学城市学院2010 2011 学年第 二 学期期末考试试卷VB程序设计基础与VBA应用开课单位： 计算分院 ；考试形式：闭卷；考试时间：2011 年 6 月 28 日所需时间：120 分钟一、单选题（36%，每小题2分）1函数(Int(46 * Rnd) + 5) * 2的值是在_范围内的偶数？A0,100 B0,98 C10,100 D10,982哪一条语句执行后将会删除文本框Text1中的文本？AText1.Text=” BText1.SelText=”CText1.Clear DText1.SelText.Clear3下列各组函数中，函数值

4、类型相同的一组是 。AExp(x)、Chr(x)、Lcase(x) BAsc(x)、Str(x)、Rtrim(x)CSgn(x)、Int(x)、Len(x) DFix(x)、Left(x)、Ucase(x)4判断变量x、y中有且只有一个为0的下列各表达式中，正确的是 。Ax=0 Or y=0 and x*y0 Bx+y=0 and x*y0Cx+y0 and x*y=0 Dx=0 and y05设置EXCEL某个区域的内部颜色，需设置 的ColorIndex属性。A.ForeColor B.BackColor C.Interior D.Inside6若变量i的初值为9，则下列循环语句的循环次数

5、为次。Do While i a(j) Then _ ( 3 )_ a(i) = a(j) a(j) = temp End If Next j Next i Print a(1) _ ( 4 )_ For i = 2 To 30 If a(i) a(i - 1) Then _ (5 )_ count = count + 1 End If Next i _ (6 )_End Sub2以下程序是一个模拟抽奖的小游戏。单击“Start”按钮开始抽奖，文本框中轮流显示数据区A2：A17单元格中的内容（模拟客户姓名），同时命令按钮的Caption属性修改为“Stop”；单击“Stop”按钮时，程序运行结束

6、，文本框中显示获奖人的姓名并在B列的对应单元格填上“T”。游戏规定每人只能中奖一次，一旦中奖（已标记“T”）则不能再次中奖（下图为三人已中奖过）。【程序】Private Sub CommandButton1_Click() Dim j As Long j = Range(A1).CurrentRegion.Rows.Count If CommandButton1.Caption = Start Then _ (7)_ Else CommandButton1.Caption = Start End If Do While CommandButton1.Caption = Stop i = Int

7、(j - 1) * Rnd + 2) If Cells(i, 2) = Then TextBox1.Text = _ (8 )_ Cells(i, 1).Select End If DoEvents 该函数返回转让控制权，理解为终止循环 _ (9 )_ ActiveCell.Offset(0, 1).Value = _ (10 )_End Sub三、程序阅读题（24%，每小题4分）1下列程序运行时，单击窗体后，请写出窗体上显示的结果。【程序】Private Sub Form_Click() Dim k As Integer, i As Integer k = 2 For i = 100 To

8、200 If i Mod 10 = 0 Then Print i; k = k + 1 If k Mod 5 = 0 Then Print End If Next iEnd Sub2下面程序运行时，单击窗体后，请写出窗体上显示的结果。【程序】Private Sub Form_Click() Dim A(5) As Integer, i As Integer, j As Integer A(1) = 1 Print A(1) For i = 2 To 5 A(i) = A(i - 1) For j = i - 1 To 2 Step -1 A(j) = A(j) + A(j - 1) Next

9、j For j = 1 To i Print A(j); Next j Print Next iEnd Sub3阅读下列程序，单击命令按钮时，写出窗体显示的结果。【程序】Public Sub Pro(n As Integer, ByVal m As Integer) Dim i As Integer n = n + m m = 0 For i = n To m m = m + i Next iEnd SubPrivate Sub Form_Click() Dim x As Integer, y As Integer x = 59: y = 63 Print x; y Pro x, y Prin

10、t x; yEnd Sub4运行时，设文本框Text1.Text为空，在Text1获得输入焦点后，依次按下列按键：1、，、23、；、45、=、回车键分别写出文本框中和窗体上的输出结果。 【程序】Private Sub Text1_KeyPress(k As Integer)If k Asc(9) Thenk=0Print Text1.TextEnd IfEnd Sub5下图中放有本题的数据，对B1:B5单元格应用“用户定义”函数bi，写出B1:B5单元格的结果。【程序】Function bi(x As Integer) As LongDim s As Long, n As Longs = 0n

11、 = 1Do While x 0s = s + (x Mod 2) * nx = x 2n = n * 10Loopbi = sEnd Function6写出以下“宏”paint运行后在当前工作表上的结果。【程序】Sub paint() Dim x As String, i As Integer, j As Integer, p As Integer x = 浙江大学城市学院 For i = 1 To 8 If i = 4 Then p = 5 - i Else p = i - 4 End If For j = 1 To p Cells(i, j) = Mid(x, i, 1) Next j

12、Next iEnd Sub四、程序设计题（30%，每小题10分）1在Form_Click()事件中编程。从键盘输入年份，判断该年份是否为闰年，计算结果输出到Label1控件中。（判断闰年的条件是：年份能被4整除但不被100整除，或年份能被400整除。）2按以下要求完成：（1）定义自定义函数fact( n )求n的阶乘，返回类型是Double。（2）从键盘输入X，求下式值，直到最后一项绝对值小于10(-6)。其中阶乘计算要求调用（1）中定义的函数，代码写在Form_Click()事件中。3在EXCEL的当前工作表中有一批数据需要统计，将超过平均值的数据用红色标注（数据所在的行列范围不定）。为统计方便，已在该工作表中建立CommandButton1命令按钮。提示：工作表上已用区域可用UsedRange属性和行、列属性确定，平均值计算可以使用EXCEL的Average函数，代码写在当前工作表CommandButton1_Click()事件中。