【VB开源代码栏目提醒】:网学会员为需要VB开源代码的朋友们搜集整理了VB+VBA期末考卷(VB程序设计基础与VBA应用) - 技术总结相关资料,希望对各位网友有所帮助!
1 2011 — 2012 学年第 二 学期期末考试
试卷 《
VB程序
设计基础与
VBA应用》 开课单位 计算分院 考试形式闭卷考试时间2012 年 6 月 13 日 所需时间120 分钟 一、单选题26每小题1分 1下列叙述中错误的是 。
A事件可以由用户触发也可以由系统触发 BVB应用程序只能以解释方式执行 C保存
VB程序时应分别保存窗体及工程文件 D打开一个工程文件时
系统自动装入与该工程有关的窗体、标准模块等文件 2函数Int45 Rnd 5产生 范围内的正整数 A050 B550 C549 D049 3下列叙述中不正确的是 。
A. VBA只能用于Excel B. VBA来源于
VB C. VBA必须与应用程序结合 D.
VB可以独立开发应用程序 4下列各组函数中函数值类型相同的一组是 。
AExpx、Leftx、Ucasex BAscx、Intx、Lenx CSgnx、Strx、Rtrimx DFixx、Chrx、Lcasex 5表示x大于0且小于10的表达式是 。
A00 Then Y1:Print Y 10用Dim xy As Boolean语句声明变量下列正确的是 。
Ax和y都是布尔型变量 Bx是整型变量y是布尔型变量 Cx是变体型变量y是布尔型变量 年级_____________ 专业_____________________ 班级_________________ 学号_______________ 姓名__________________ …………………………………………………………..装………………….订…………………..线……………………………………………………… 2 Dx和y都是变体型变量 11若变量i的初值为9则下列循环语句的循环次数为 次。
Do While i 10 And x aj Then ______ 4 ______ ai aj aj temp End If Next j ______ 5 ______ For i 1 To count Print ai If ______ 6 ______ Then Print Next i ______ 7 ______ End Sub 2在工作表1上有窗体命令按钮“开始”。
单击“开始”按钮完成在A1A10上输入10个同学某门
课程的成绩正整数并将不及格的成绩用红色标注。
【程序】 Sub开始_单击 Dim i As Integer ActiveSheet.Cells.Clear For i 1 To 10 Cellsi 1.Value ______ 8 ______ If ______ 9 ______ Then Cellsi 1.Font.Color ______ 10 ______ End If Next i End 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 5 Print j 5 If i j Then Exit For Next j Print Next i End Sub 2窗体上有命令按钮Command1。
写出单击命令按钮后
程序运行的结果。
【程序】 Private Sub Command1_Click Dim a5 As Integer n As Integer For i0 to 5 aii12 Next i For i5 To 0 Step -1 Print ai n n 1 If n3 n/3 Then Print Next i End Sub 3阅读下列程序单击命令按钮时写出窗体显示的结果。
【程序】 Public Sub Pron As Integer ByVal m As Integer Dim i As Integer n n m m 0 For i n To m m m i Next i End Sub Private Sub Form_Click Dim x As Integer y As Integer x 59: y 63 Print x y Call Prox y Print x y End Sub 4程序运行后将焦点置于文本框Text1在键盘上输入字母“a”写出窗体上和文本框内显示的内容“A”的Ascii码65“a”的Ascii码97。
【程序】 Private Sub Text1_KeyPressKeyAscii As Integer Dim x As String 6 xChrKeyAscii KeyAsciiAscUcasex Print x KeyAscii End Sub 5下图中放有本题的数据且“运行”窗体按钮已指定宏yuxing。
写出单击“运行”按钮后的结果下图中的数据不需再写出。
【程序】 Sub yuxing Dim i As Integer x As Integer For i 1 To 10 x Cellsi 1 Cellsi 2 0 Do While x 0 Cellsi 2 Cellsi 2 x Mod 10 x x 10 Loop Next i End Sub 6写出打开含有以下过程的工作簿写出在当前工作表上增加工具栏的结果。
【程序】 Private Sub Workbook_Open Set tbar Application.CommandBars.AddName:竞赛评分 Set butt1 tbar.Controls.AddType:msoControlButton With butt1 .Caption 统计 .Style msoButtonCaption .OnAction tj End With Set butt2 tbar.Controls.AddType:msoControlButton With butt2 .Caption 汇总 7 .Style msoButtonCaption .OnAction hz End With tbar.Visible True End Sub 四、程序设计题30每小题10分 1在Form_Click事件中编程。
从键盘上输入10个整数将其中被3整除的数输出到窗体上。
2输入n后对n个数a1 a2 ...an 按照下列公式计算s的值并显示。
naaavn...21 nvavavasn22221... 按以下要求完成 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天的数据和n3的示意图 A B C 日期 收盘数据 3日移动平均值 第1天 3000 第2天 3100 第3天 3200 3100 第4天 2900 3066.7 第5天 略 略 ?? ?? ?? 其中因为n3所以移动平均值从第3 天开始计算示意图中空了第1和第2 天的移动平均值第1天、第2天和第3天的移动平均值为3100第2天、第3天和第4天的移动平均值为3066.7。
要求在“宏”ave中编写程序从键盘输入n计算当前工作表中已有数据可能会很多的n日移动平均值即从第n天开始计算直到工作表上已有数据的最后一天并在C1单元格填入对应列的名称上图灰色部分。