1、第 1 页 共 10 页诚信应考 考出水平 考出风格浙江大学城市学院2011 2012 学年第二学期期中考试答卷 VB 程序设计基础与 VBA 应用 开课单位： 计算分院 ；考试形式：闭卷；考试时间： 2012 年 4 月 15 日所需时间： 120 分钟题序 一 二 三 四 总 分得分评卷人一单选题(本大题共 30 题，每题 1 分，共 30 分。)题号 1 2 3 4 5 6 7 8 9 10题号 11 12 13 14 15 16 17 18 19 20题号 21 22 23 24 25 26 27 28 29 30二程序填空题(本大题共 2 题 8 空，每空 2 分，共 16 分。)(
2、1)(2)(3)(4)(5)(6)(7)(8)得分得分年级：_专业：_班级：_学号：_姓名：_第 2 页 共 10 页三程序阅读题(本大题共 6 题，每题 4 分，共 24 分。 )第 1 题: 第 2 题: 第 3 题: 第 4 题: 第 5 题: 第 6 题:四程序设计题(本大题共 3 题，每题 10 分，共 30 分。)第 1 题： .得分得分第 3 页 共 10 页第 2 题： .第 4 页 共 10 页第 3 题： .第 5 页 共 10 页浙江大学城市学院2011 2012 学年第二学期期中考试试卷 VB 程序设计基础与 VBA 应用 开课单位： 计算分院 ；考试形式：闭卷；考试时
3、间：2012 年 4 月 15 日所需时间： 120 分钟一、单选题（30%，每小题 1 分）1数学式子 sin25写成 VB 表达式是 。ASin25 BSin(25)CSin(25*3.14/180) DSin(25)2下列叙述中，错误的是 。A事件可以由用户触发，也可以由系统触发BVB 应用程序只能以解释方式执行C保存 VB 程序时，应分别保存窗体及工程文件D打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件3哪一条语句执行后将会删除文本框 Text1 中的文本？AText1.Text=” BText1.SelText=”CText1.Clear DText1.SelTe
4、xt.Clear4假定 flge 是逻辑型变量，下面赋值语句中不正确的是 。Aflge = True Bflge = ”True”Cflge = 0 Dflge = 3 0 And x0 Or x0 : x=10 And A=10 And Is =Y Then Print Y End If DIf X0 Then Y=1:Print Y 16运行下列程序段，其中“n=n+1”语句被执行的次数是 。Dim m%, n%For m=1 To 3For n=1 To 6 Step 2n=n+1Print nNext nNext mA3 B6C9 D1817 Dim x(3, 4 To 4) 定义数组
5、后，x 数组可存放 个元素。A4 B3C8 D6第 7 页 共 10 页18下列几种定义数组的方法，正确的是 。An=5 BDim a(10) As IntegerDim a(1 to n) As Integer ReDim a(1 to 12)CDim a() As Single DDim a() As IntegerReDim a(3 ,4) As Integer n=5ReDim a(1 To n)19定义数组 Dim a(3,4)后，使用 ，将出现下标越界错误。Aa(1,1) Ba(3,0)Ca(4,4) Da(3,4)20-30以下有 11 条已经写好的语句，但顺序不对。重新排列这些
6、语句，使之成为程序。程序的功能是输入一个正整数 n，判断它是否为素数。AEnd IfBEnd SubCPrivate Sub Form_Click()DFor i = 2 To n-1ENext iFIf i n-1 ThenGn = Val(InputBox(“input a number“)HPrint n; “是素数“I Print n; “不是素数 “JIf n Mod i = 0 Then Exit ForKElse二、程序填空题（16%，每空 2 分）请在以下两题的_( 1 )_、_( 8 )_处填入适当的内容，将程序补充完整。1【程序说明】以下程序运行后，在文本框中输入字符串“A
7、123b45C_de”，窗体上输出“12345”。Private Sub Form_Click()Dim str1 As String, str2 As String, str3 As StringDim i As Integerstr1 = Text1.Text str3 = “n = _( 1 )_For i = 1 To nstr2 = _( 2 )_If str2 = “0“ And str2 Asc(“9“) ThenIf KeyAscii = 13 ThenPrint Text1.TextText1.SelStart = 0Text1.SelLength = Len(Text1.T
8、ext)ElseKeyAscii = 0End IfEnd IfEnd Sub6下面程序运行时，单击窗体后在输入对话框中输入 138，写出窗体上程序运行结果。 【程序】Private Sub Form_Click()Dim x As Integer, y As Integerx = Val(InputBox(“)y = 0Do While x 0y = y + x Mod 10x = x 10LoopPrint yEnd Sub四、程序设计题（30%，每小题 10 分）1编写计算下列函数的程序，结果在窗体上打印出来。自变量 x、y 的值用 InputBox 函数输入。 其 他00,62),(xyxf2利用格里高利公式，求 的近似值，精度要求到最后一项的绝对值小于 106 。71-5343随机产生 50 个 30100 之间的正整数，将它们中被 3 整除的数按从小到大每行 5 个输出在窗体上，代码编写在 Form_Click 事件过程中。
