《城院VB试卷答卷.doc》由会员分享，可在线阅读，更多相关《城院VB试卷答卷.doc（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、浙江大学城市学院2003-2004学年第二学期Visual BASIC程序设计期末试卷(A)考试时间：2004年6月13日上午8:3010:30考试形式：闭卷注意：答题内容应写在答卷纸上，答在本试卷上无效专业_班级_学号_姓名_试题一：判断题（每题1分，共10分）1VB程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。2由Visual Basic语言编写的应用程序有解释和编译两种执行方式。3文本框控体的MaxLength属性值为0时，在文本框内不可以输入任何字符。4若在窗体的Form_load事件中写入语句“Print 欢迎使用本系统！” ，则装入该窗体后，窗体上会显示“欢迎使用本系统
2、！”。5当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件。6用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发KeyPress事件。7当图片框作为容器使用时，图片框中控件的left和top属性值是相对图片框而言的，与窗体无关。8当单击滚动条两端的箭头时将会激发滚动条的scroll事件。9在过程中允许声明与同一模块的模块级变量同名的静态变量。10过程中的静态变量与局部变量的区别是，静态变量可以被别的过程存取，而局部变量只在本过程有效。试题二：选择题（每题1分，共15分）1一个对象可以执行的动作和可被对象识别的动作分别称为 。A、事件、方法 B
3、、方法、事件 C、属性、方法 D、过程、事件2下列说法错误的是 。A、最简单的visual basic 程序只包含一个工程，且工程中只有一个窗体模块或一个标准模块。B、属性是指对象的名字、大小、位置、颜色等特性。C、方法是visual basic 预先定义的一段特殊的子程序。D、事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。3下列 对象不具有Caption属性。A、Label B、Option C、Form D、Timer4下列 对象不能作为控件的容器。A、Form B、PictureBox C、Shape D、Frame5运行时组合框控件Combl中所选择的表项，可以表示为
4、 。 A、Combl.Text B、Combl.List C、Combl.Listlndex D、Combl.ListCount6改变了容器的坐标系后，该容器的 属性值不会改变。A、Left B、ScaleLeft C、ScaleTop D、ScaleWidth 7菜单项显示分隔线是通过设置 属性来实现的。A、Caption B、Visible C、 Checked D、Enabled8在图片框控件Picturel上坐标 (x,y) 处画一个绿色点，写作 。 A、Pset (x,y),Rgb(0,255,0) B、Ptcturel.Pset (x,y),Green C、Pset (x,y),v
5、bGreen D、Picturel.Pset (x,y),vbGreen9下列哪种方法不能用作数据的输入 。 A、文本框 B、标签框 C、 水平滚动条 D、inputbox10条件“x能被m整除，但不能被n整除”写作VB的表达式为 。A、x Mod m=0 & x Mod n0 B、xm*m=x And xn*nxC、(xm)*m=x And (xn)*nx D、x Mod m=0 And x Mod n!=011已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是 。A、A=B And B=C And C0 B、A+CB And B+CA And C0C、(A+B=C
6、 0r A-C0 D、A+BC And A-BC And C012由For k=35 To 0 Step 3 ：Next k 循环语句控制的循环次数是 。A、0 B、12 C、-11 D、-1013将一数值X取整，且对小数部分进行四舍五入的表达式是 。A、Int(X+0.5) B、Fix(X) C、Sgn(X) D、Fix(X)+114下列各组函数中，函数值类型相同的一组是 。A、Exp(x)、Chr(x)、Lcase(x) B、Asc(x)、Str(x)、Rtrim(x)C、Sgn(x)、Int(x)、Len(x) D、Fix(x)、Left(x)、Ucase(x)15Function过程有
7、别于Sub过程的最主要特点是 。A、Function有形参而Sub没有 B、Function有实参而Sub没有C、Function可数值运算而Sub不能 D、Function要返回函数值而Sub没有试题三：填空题（每空2分，共14分）1Visual Basic程序设计语言是一种可视化的面向对象的程序设计语言，我们在研究对象时，通常要考察对象的三要素是属性、 (1) 和 (2) 。2若a=2，b=3和c=4，则表达式NOT a=c OR 4*c=b2 AND ba+c的值是 (3) 。3若x$=”This is ZheJiang University!”，则Trim（mid$（Right$（x$
8、，12），1，9）= (4) 。4象图片框PictureBox控件一样，许多控件都有Picture属性，在程序运行时将磁盘上已经存在的图片文件装入，我们常用 (5) 函数来实现。5为了实现文本框作为密码输入框，通常要设置 (6) 属性指定一个默认显示在输入框中的字符，如”*”。6Visual Basic表达式：8*Exp(3)*Log(25)，写成数学表达式的结果为 (7) 。试题四：程序填空题（每空2分，共16分）1【程序说明】在窗体上有两个命令按钮和一个文本框，名称分别为cmdstart（“开始”）、 cmdend（“结束”）和Text1。文本框Text1中的字符个数不超过200个。程序刚
9、开始运行时，“结束”按钮成灰色，单击“开始”按钮后，将文本框Text1.Text中的字符按其ASCII码值由小到大自左到右重新组合，并在窗体上输出重组后的字符串，同时使“结束”按钮能响应而“开始”按钮不能响应。Private Sub Form_Load() Cmdend.Enabled = FalseEnd SubPrivate Sub Cmdstar_Click() Dim n As Integer, i As Integer, j As Integer, p As Integer Dim a(200) As String * 1, str1 As String, t As String s
10、tr1 = Text1.Textn = (1) For i = 1 To n a(i) = (2) Next i For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) a(j) Then (3) Next j If (4) Then t = a(i) : a(i) = a(p) : a(p) = t Next i For i = 1 To n Print a(i); Next I Print Cmdend.Enabled = True : Cmdstar.Enabled = FalseEnd SubPrivate Sub Cmdend_Clic
11、k() EndEnd Sub2【程序说明】从键盘上输入两个正整数m和n，求出m和n之间的所有完全数（所谓完全数就是这个数的因子之和等于这个数本身）。Private Sub Form_Click() Dim sum As Integer Dim m As Integer, n As Integer Dim Temp As Integer m = InputBox(Please input the first integer) n = InputBox(Please input the second integer) If m n Then Temp = m (5) n = Temp End If
12、 For i = (6) sum = 0 For j = 1 To i - 1 If i Mod j = 0 Then (7) Next j If (8) Then Print i Next iEnd Sub试题五：程序阅读题（每题5分，共25分）1下列程序运行后，单击窗体Form1，请写出Form1上显示的结果：Private Sub Form_Click() Dim a(5) As Byte, i As Integer a(0) = 1 For i = 1 To 5 a(i) = a(i - 1) + i Print a(i); Next I PrintEnd Sub2下列程序运行后，单击
13、窗体Form1， 在输入框中输入”ZUCCOK”后按确定按钮，请写出Form1上显示的结果：Private Sub Form_Click()Dim s As String, n As IntegerDim i As Integer, j As Integers = Trim(InputBox()n = Len(s)For i = 1 To n Print Tab(n - i + 1); For j = 1 To i Print Mid(s, i, 1); Next j PrintNext iEnd Sub3下列程序运行后，单击窗体Form1，请写出Form1上显示的结果。Private Fun
14、ction chg(a As Integer, b As Integer) As Integer Dim n As Integer For n = 0 To 2 a=a+b Next n chg=aEnd FunctionPrivate Sub Form_click()Dim a As Integer, b As IntegerDim z As Integer a=1b=1 For n=1 to 3 z=chg(a,b) Print “n=”;n,”z=”;z Next nEnd Sub4下列程序运行后，单击窗体Form1，请写出Form1上显示的结果。Private Sub Form_Cli
15、ck() Dim x As Double Dim y As Double x = ScaleWidth / 2 y = ScaleHeight / 2 Circle (x, y), x / 2 Line (x / 2, y - x / 2) - Step(x, x), , BEnd Sub5窗体上有一个文本框（Text1）和一个命令按钮（Command1），程序运行后，单击一次Command1，文本框Text1中显示的内容为：Private Sub Jiami(ByVal str As String) Dim n As Integer, sout As String Dim scurr As
16、String, i As Integer Dim snew As String n = Len(str) For i = 1 To n scurr = Mid(str, i, 1) snew = Chr(Asc(scurr) + 2) sout = sout & snew Next i Text1.Text = soutEnd SubPrivate Sub Command1_Click() Dim x As String x = Text1.Text Call Jiami(x)End SubPrivate Sub Form_Load() Text1.Text = abcDE123End Sub
17、试题六、程序设计题（共20分）1【编程说明】（8分）编制事件过程Command1_Click()，用InputBox函数输入x，计算并在窗体上显示下列分段函数的值x2/(x+1) x22【编程说明】（12分）在窗体上有二个标签（“新单词”和“单词表”）、一个文本框（Text1）、二个命令按钮及一个列表框（List1），要求实现以下操作：（1）“添加”按钮（Command1）的Click事件完成：查找文本框中的单词是否已在列表框中存在，若存在则在消息框中显示：“单词已存在”；若不存在则添加到列表框中。最后删除文本框原有文字并将焦点定于文本框。（2）“统计”按钮（Command2）的Click事件
18、完成：键盘输入（用InputBox函数）单个字母，统计该字母开头的单词个数，结果以形式（如W：30个）显示在文本框中。浙江大学城市学院2003-2004学年第二学期Visual BASIC程序设计期末试卷(A)答卷专业、班级 学号 姓名 成绩 试题一：判断题（每题1分，共10分）题号12345678910或试题二：选择题（每题1分，共15分）1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 试题三：填空题（每空2分，共14分）(1) (2) (3) (4) (5) (6) (7) 试题四：程序填空题（每空2分，共16分）(1) (2) (3) (4) (5) (6) (7) (8) 试题五：程序阅读题（每题5分，共25分）1 23 45试题六、程序设计题（共20分）第1题（8分）： 第2题（12分）：