VB+VBA期末考卷(VB程序设计基础与VBA应用).doc

年级：_ 专业：_ 班级：_ 学号：_ 姓名：_.装.订.线2011 2012 学年第 二 学期期末考试试卷VB程序设计基础与VBA应用开课单位： 计算分院 ；考试形式：闭卷；考试时间：2012 年 6 月 13 日所需时间：120 分钟一、单选题（26%，每小题1分）1下列叙述中，错误的是 。A事件可以由用户触发，也可以由系统触发BVB应用程序只能以解释方式执行C保存VB程序时，应分别保存窗体及工程文件D打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件2函数Int(45 * Rnd) + 5产生 范围内的正整数？A0,50 B5,50 C5,49 D0,493下列叙述中不正确的是 。A. VBA只能用于ExcelB. VBA来源于VBC. VBA必须与应用程序结合D. VB可以独立开发应用程序4下列各组函数中，函数值类型相同的一组是 。AExp(x)、Left(x)、Ucase(x)BAsc(x)、Int(x)、Len(x)CSgn(x)、Str(x)、Rtrim(x)DFix(x)、Chr(x)、Lcase(x)5表示x大于0且小于10的表达式是 。A0x0 And x0 Or x0 : xY Then Print Y End If DIf X0 Then Y=1:Print Y 10用Dim x,y As Boolean语句声明变量，下列正确的是 。Ax和y都是布尔型变量Bx是整型变量，y是布尔型变量Cx是变体型变量，y是布尔型变量Dx和y都是变体型变量11若变量i的初值为9，则下列循环语句的循环次数为次。Do While i =10 And x=20 BCase 10 To 20CCase 10=x=10, Is = 4 And x Mod 2 = 0 保证x是大于4的偶数 _ 22 _ 在不大于x的奇数中找素数 _ 23 _ Print x; =; i; +; x - i End If Next iEnd SubPublic Function Isprime(x As Integer) As Boolean Dim i As Integer _ 24 _ For i = 2 To Sqr(x) If x Mod i = 0 Then _ 25 _ _ 26 _ End If Next iEnd FunctionAIsprime = FalseBExit ForCIsprime = True Dx = Val(InputBox(x=) EIf Isprime(i) And Isprime(x - i) ThenFFor i = 3 To x / 2 Step 2二、程序填空题（20%，每空2分）说明：请在以下题中的_( 1 )_、_( 10 )_处填入适当的内容，将程序补充完整。1随机产生30个两位正整数，将其中互不相同的数存入数组a中，按从小到大的顺序排序并在窗体中每行5个输出，最后输出互不相同数的个数。把程序补充完整。【程序】Private Sub Form_Click() Dim a(30) As Integer, i As Integer, j As Integer Dim x As Integer, count As Integer, temp As Integer count = 0 For i = 1 To 30 x = _ ( 1 )_ For j = 1 To count If a(j) = x Then Exit For Next j If j count Then _ ( 2 )_ a(count) = x End If Next i For i = 1 To count - 1 For j = _ ( 3 )_ If a(i) a(j) Then _ ( 4 )_ a(i) = a(j) a(j) = temp End If Next j _ (5 )_ For i = 1 To count Print a(i); If _ (6 )_ Then Print Next i _ (7 )_End Sub2在工作表1上有窗体命令按钮“开始”。 单击“开始”按钮完成在A1：A10上输入10个同学某门课程的成绩（正整数）并将不及格的成绩用红色标注。【程序】Sub开始_单击() Dim i As IntegerActiveSheet.Cells.ClearFor i = 1 To 10 Cells(i, 1).Value = _ (8 )_ If _ (9 )_ Then Cells(i, 1).Font.Color = _ (10 )_ End If Next iEnd Sub三、程序阅读题（24%，每小题4分）1下列程序运行时，单击窗体后，请写出窗体上显示的结果。【程序】Private Sub Form_Click() Dim k As Integer, i As Integer, j As Integer For i = 1 To 5 For j = 1 To i Print j * 5; If i = j Then Exit For Next j Print Next iEnd Sub2窗体上有命令按钮Command1。写出单击命令按钮后程序运行的结果。【程序】Private Sub Command1_Click()Dim a(5) As Integer, n As IntegerFor i=0 to 5a(i)=(i+1)2Next iFor i=5 To 0 Step -1Print a(i);n = n + 1If n3 = n/3 Then PrintNext 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 Call Pro(x, y) Print x; yEnd Sub4程序运行后，将焦点置于文本框Text1，在键盘上输入字母“a”，写出窗体上和文本框内显示的内容（“A”的Ascii码65，“a”的Ascii码97）。【程序】Private Sub Text1_KeyPress(KeyAscii As Integer)Dim x As Stringx=Chr(KeyAscii)KeyAscii=Asc(Ucase(x)Print x, KeyAsciiEnd Sub5下图中放有本题的数据，且“运行”窗体按钮已指定宏yuxing。写出单击“运行”按钮后的结果（下图中的数据不需再写出）。【程序】Sub yuxing() Dim i As Integer, x As Integer For i = 1 To 10 x = Cells(i, 1) Cells(i, 2) = 0 Do While x 0 Cells(i, 2) = Cells(i, 2) + x Mod 10 x = x 10 Loop Next iEnd Sub6写出打开含有以下过程的工作簿，写出在当前工作表上增加工具栏的结果。【程序】Private Sub Workbook_Open() Set tbar = Application.CommandBars.Add(Name:=竞赛评分) Set butt1 = tbar.Controls.Add(Type:=msoControlButton) With butt1 .Caption = 统计 .Style = msoButtonCaption .OnAction = tj End With Set butt2 = tbar.Controls.Add(Type:=msoControlButton) With butt2 .Caption = 汇总 .Style = msoButtonCaption .OnAction = hz End With tbar.Visible = TrueEnd Sub四、程序设计题（30%，每小题10分）1在Form_Click()事件中编程。从键盘上输入10个整数，将其中被3整除的数输出到窗体上。2输入n后，对n个数a1 ，a2 ，.，an ，按照下列公式计算s的值并显示。 按以下要求完成：（1）定义自定义函数f()求v值，返回类型是Single。（2）从键盘输入n（正整数），求上式s的值。其中a1，.，an是用随机函数产生的两位实数（产生数据部分在答卷中已编好，不需重新再编），v值计算要求调用（1）中定义的函数，代码写在Form_Click()事件中。3在EXCEL的当前工作表中有一批上海证券交易所的每日股市收盘数据，为研判股市的走势需要计算n日的移动平均值。设工作表的A列存放日期（A1单元格存放该列的名称“日期”），B列存放对应的收盘数据（B1单元格存放该列的名称“收盘数据”），收盘数据的数据类型为实数，从键盘输入n（整数），在C列存放计算好的平均值。n日的移动平均值的计算公式为：移动平均值=（该天数据 + 前1天数据 + + 前n-1天数据）/n以下是工作表中4天的数据和n=3的示意图，ABC日期收盘数据3日移动平均值第1天3000第2天3100第3天32003100第4天29003066.