Exam05_2013VB程序设计与VBA应用期中考卷.doc

浙江大学城市学院年级：_ 专业：_ 班级：_ 学号：_ 姓名：_2012 2013 学年第二学期期中考试试卷 VB程序设计基础与VBA应用 开课单位： 计算分院 ；考试形式：闭卷；考试时间：2013 年 5 月 5 日所需时间： 120 分钟一、单选题（30%，每小题1分）(1)一个对象可以执行的动作和可被对象识别的动作分别称为 。A事件、方法 B. 属性、方法C方法、事件 D. 过程、事件 (2)在启动窗体时，为了初始化该窗体中的各控件，可选用窗体的 事件。A. Click B. DblClickC. Load D. Unload(3)将VB编制的程序保存在磁盘上，至少会产生何种文件 。A. .vbp与.frm B. .com与.exeC. .bat与.frm D. .doc与.txt(4)改变控件在窗体中的水平位置应修改该控件的 属性。A. TopB. LeftC. Width D. Right(5)以下 条语句执行后将会删除文本框Text1中的文本？A. Text1.SelText=”B. Text1.Text=”C. Text1.ClearD. Text1.SelText.Clear(6)下面 是日期型常量。A. 12/19/99 B. #12/19/99#C. 12/19/99 D. 12/19/99(7)若x是一个正实数，对x的第3位小数四舍五入的表达式是 。A. 0.01*Int(x+0.005) B. 0.01*Int(100*(x+0.005) 对C. 0.01*Int(100*(x+0.05) D. 0.01*Int(x+0.05)(8)下列函数中，返回值是字符串的是 。A. Chr B. InStr C. Val D. Asc(9)假定flge是逻辑型变量，下面赋值语句中不正确的是 。A. flge = 0 B. flge = ”True” C. flge = 3 Y Then Print Y End If DIf X0 Then Y=1:Print Y (18)用Dim x,y As Boolean语句声明变量，下列正确的是 。Ax是变体型变量，y是布尔型变量Bx和y都是布尔型变量Cx是整型变量，y是布尔型变量Dx和y都是变体型变量(19)若变量i的初值为9，则下列循环语句的循环次数为 次。Do While i X Or ZY BZX And Y CZX And ZY DZXY(23)下列程序段的输出结果是 。a=10: b=10000x=Log(b)/Log(a)Print lg(10000)=;x A. 5 B. lg(10000)=5C. 4 D. lg(10000)=4 (24)x是Integer类型变量，无论x取何值，字符串表达式 的长度为10。A. Space(10-Len(Str(x) + x B. Space(10-Len(Trim(Str(x) + xC. Space(10-Len(x) & xD. Space(10-Len(Trim(Str(x) & x(25)下面程序运行后的结果是 。m=0For i = 1 To 10 m = m + i i = i + 1Next iPrint m, iA死循环 B25 10C16 11 D25 11(26)下列程序段的执行结果是 。n=1j=1Do While j=4 n=n*j Print n; j=j+1LoopA1 2 6 24 B2 4 6 8 C1 4 7 11 D1 2 3 4(27)多分支选择结构的Case语句，写法错误的是 。ACase 5 To 2BCase 1,3,5CCase 8 To 12DCase Is c(j) Then (7) nc = nc + c(i)(8) temp = c(i)(9) n = Len(s)(10) c(i) = Mid(s, i, 1)三、程序阅读题（20%，每小题4分）1下列程序运行时单击Command1后，写出文本框Text1 和Text2中Text的值。【程序】Private Sub Command1_Click() Dim x As Integer, n As Integer x = 1 For n = 4 To 2 Step -1 x = x * (x + 1) Next n Text1.Text = n= & n Text2.Text = x= & xEnd Sub2阅读下列程序，程序运行后，单击窗体，写出窗体上输出结果。【程序】Private Sub Form_Click() Dim x(8) As Integer, p As Integer Dim i As Integer, j As Integer For i = 1 To 6 x(i) = i Next i For i = 1 To 8 Step 2 p = 1 For j = 1 To x(i) p = p * j Next j Print p Next iEnd Sub3下列程序运行后，单击命令按钮后输出的结果是什么？【程序】Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer n = 5 For i = 1 To n Print Tab(n - i + 1); For j = 1 To 2 * i - 1 Step 2 Print Str(i); Next j Print Next iEnd Sub4运行时，设文本框Text1.Text为空，在Text1获得输入焦点后，依次按下列按键：1、+、2、-、3、*、4、/、5 分别写出文本框中和窗体上的输出结果。 【程序】Private Sub Text1_KeyPress(k As Integer)If k = Asc(0) And k = Asc(9) Thenk=0Print Text1.TextEnd IfEnd Sub5单击窗体，从输入框InputBox输入一个整数7，写出窗体上显示的结果；再次单击窗体并输入一个整数9，写出窗体上显示的结果。【程序】Private Sub Form_Click() Dim i As Integer, n As Integer, Prime As String n = Val(InputBox(n=) If n n-1 Then Prime = 是素数 Else Prime = 不是素数 End If End If Print n & PrimeEnd Sub四、程序设计题（30%，每小题10分）1在窗体的Click事件中编写计算下列函数的程序，结果在窗体上打印出来。自变量x的值用InputBox函数