年级：_ 专业：_ 班级：_ 学号：_ 姓名：_诚信应考 考出水平 考出风格浙江大学城市学院2011 2012 学年第二学期期中考试答卷 VB程序设计基础与VBA应用 开课单位： 计算分院 ；考试形式：闭卷；考试时间： 2012 年 4 月 15 日所需时间： 120 分钟题序一二三四总 分得分评卷人得分一单选题(本大题共 30 题，每题 1 分，共 30 分。)题号12345678910题号11121314151617181920题号21222324252627282930得分二程序填空题(本大题共 2 题 8 空，每空 2 分，共 16 分。)(1)(2)(3)(4)(5)(6)(7)(8)得分三程序阅读题(本大题共 6 题，每题4 分，共 24 分。)第1题: 第2题: 第3题: 第4题: 第5题: 第6题:得分四程序设计题(本大题共 3 题，每题 10 分，共 30 分。)第1题： .第2题： .第3题： .浙江大学城市学院年级：_ 专业：_ 班级：_ 学号：_ 姓名：_2011 2012 学年第二学期期中考试试卷 VB程序设计基础与VBA应用 开课单位： 计算分院 ；考试形式：闭卷；考试时间：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.ClearDText1.SelText.Clear4假定flge是逻辑型变量，下面赋值语句中不正确的是 。Aflge = True Bflge = ”True”Cflge = 0 Dflge = 3 45不正确的VB常量是 。A123!B&HABC&C&O18D#1-1-03#6声明符号常量应该用关键字 。AStaticBConstCPrivateDVariant7要得到1，50之间的随机整数，可用式子 。AInt(50*Rnd)BInt(50*Rnd)+1CInt(49*Rnd)DInt(49*Rnd)+18下面叙述正确的是 。ASpc函数既能用于Print方法中，也能用于表达式BSpace函数既能用于Print方法中，也能用于表达式CSpc函数与Space函数均生成空格，没有区别D以上说法均不对9设S = ”中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为 。A”中华民国” B”中国人民”C”中共人民” D”人民共和”10x是Integer类型变量，无论x取何值，字符串表达式 的长度为10。ASpace(10-Len(Str(x) + x BSpace(10-Len(Trim(Str(x) + xCSpace(10-Len(x) & xDSpace(10-Len(Trim(Str(x) & x11表示x大于0且小于10的表达式是 。A0x0 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 3 For n=1 To 6 Step 2 n=n+1 Print n Next nNext mA3 B6C9 D1817 Dim x(3, 4 To 4) 定义数组后，x数组可存放 个元素。A4 B3C8 D618下列几种定义数组的方法，正确的是 。An=5BDim a(10) As IntegerDim a(1 to n) As Integer ReDim a(1 to 12)CDim a() As SingleDDim a() As IntegerReDim a(3 ,4) As Integer n=5 ReDim a(1 To n)19定义数组Dim a(3,4)后，使用 ，将出现下标越界错误。Aa(1,1) Ba(3,0)Ca(4,4)Da(3,4)20-30以下有11条已经写好的语句，但顺序不对。重新排列这些语句，使之成为程序。程序的功能是输入一个正整数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【程序说明】以下程序运行后，在文本框中输入字符串“A123b45C_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 n str2 = _( 2 )_ If str2 = 0 And str2 = 9 Then str3 = str3 + _( 3 )_ End If_( 4 )_Print str3End Sub2【程序说明】建立一个4行5列的二维数组，数组的前4列由输入对话框输入，第5列为同一行的前4个数的平均值，然后将这个数组显示在窗体Form1上。Private Sub Form_Click()Dim _( 5 )_ as SingleDim i As Integer, j As Integer, s as SingleFor i=1 To 4_( 6 )_For j=1 to 4a(i, j) = InputBox(“a(“ & i & ”, “ & j & ”)=”)