VB程序设计综合测试.doc

中国地质大学(武汉)远程与继续教育学院 VB程序设计 课程综合测试2学习层次：专升本 时间：90分钟一.选择题1以下4个选项中，属性窗口未包含的是 。A、对象列表 B、工具箱 C、属性列表 D、信息栏2改变控件在窗体中的上下位置应修改该控件的 属性。A、Top B、Left C、Width D、Right3在Visual Basic中，称对象的数据为 。A、属性 B、方法 C、事件 D、封装4货币类型数据小数点后面的有效位数最多只有 。A、1位 B、6位 C、16位 D、4位5下列程序段的输出结果是 。4 a=10: b=10000: x=log(b)/log(a): Print lg(10000)=;x A、lg(10000)=5 B、lg(10000)=4 C、4 D、5 6下列关于Select Case的叙述中，错误的是 。A、Case 10 To 100 表示判断Is是否介于10与100之间B、Case abc,ABC 表示判断Is是否和abc、ABC两个字符串中的一个相同C、Case X 表示判断Is是否为大写字母XD、Case -7,0,100 表示判断Is是否等于字符串-7，0，1007将命令按钮Command1设置为窗体的取消按钮，可修改该控件的 属性。A、Enabled B、Value C、Default D、Cancel8下列 属性用来表示各对象（控件）的位置。A、Text B、Caption C、Left D、Name9文本框中选定的内容，由下列 属性来反映。A、SelText B、SelLength C、Text D、Caption10列表框的 属性返回或设置列表框中各列表项的文本。A、Selected B、List C、Text D、Caption11滚动条的 属性用于指定用户单击滚动条的滚动箭头时，Value属性值的改变量。A、LargeChange B、SmallChange C、Value D、Change12将CommonDialog通用对话框以“打开文件对话框”方式打开，可选 方法。 A、ShowOpen B、ShowColor C、ShowFont D、ShowSave13通用对话框可以通过对 属性的设定来过滤文件类型。A、Action B、FilterIndex C、Font D、Filter14在设计菜单时，为了创建分隔栏，要在 中输入单连字符（-）。A、名称栏 B、标题栏 C、索引栏 D、显示区15Visual Basic用以下哪一条指令来绘制直线 。A、Line方法 B、Pset方法 C、Point属性 D、Circle方法二. 判断题1属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。2许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。3保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。4窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。5单击“启动”菜单项将窗体装入内存时，一定触发窗体的load事件和Activate事件。6Byte类型的数据，其数值范围在-255255之间。7一个表达式中若有多种运算，在同一层括号内，计算机按函数运算逻辑运算关系运算算术运算的顺序对表达式求值。8在行If语句中，关键字End If是必不可少的。9For/Next循环正常（未执行Exit For）结束后，控制变量的当前值等于终值。10用关键字Public声明的过程可以被其他模块调用。11Sub过程名在过程中必须被赋值。12如果命令按钮Default属性为True，那么任何时候按Enter键都相当于单击该命令按钮。13文本框控件常用事件有Change事件、KeyPress事件等，此外它也支持鼠标的Click事件和DblClick事件。14在窗体上建立的控件的标题文字或显示内容的默认字体为窗体字体。15复选框不支持鼠标的双击事件，如果双击则系统会解释为两次单击事件。三.填空题1对象的3要素是 、 、 。2设置对象的属性有两种办法，一种是在设计时在 窗口中设置；另一种是在运行时设置，设置格式为 。大部分属性可以用以上两种方法进行设置，而有些属性只能用其中一种方法设置。3每当一个窗体成为活动窗口时触发 事件，当另一个窗体或应用程序被激活时在原活动窗体上产生 事件。4表达式2 * 43 + 4 * 6 / 3 + 32的值是 。5语句Print Not 1015 And 85+2的输出结果为 。6算术式ln(x)+sin(30)的Visual Basic表达式为 。7Select Case结构中测试表达式的值，在其表达式列表中用 表示。8一维长整型数组a作过程形参写作“a() As Long”，二维长整型数组b作过程形参写作“ ”。9声明Single类型全局变量x，写作 。10Visual Basic窗体的位置、大小属性值的度量单位为 ，与窗体坐标刻度 （有关/无关）。四. 程序阅读题（写出下列程序的运行结果）程序1. 请写出输入8、9、3、0后窗体上的显示结果。Private Sub Form_Click() Dim i As Integer, sum As Integer, m As Integer Do m = InputBox(请输入m, 累加和等于 & sum) If m = 0 Then Exit Do sum = sum + m Loop Print sumEnd Sub程序2. 请写出单击窗体、输入5后，窗体上的显示结果。Private Sub Form_Click() Dim i As Integer, j As Integer, m As Integer m = InputBox(请输入数组的行、列数) ReDim a(m, m) As Integer Call P(a, m) For i = 1 To m For j = 1 To i: Print Tab(j * 3); a(i, j); : Next j Print Next iEnd SubPrivate Sub P( b() As Integer, n As Integer) Dim i As Integer, j As Integer For i = 1 To n b(i, 1) = 1: b(i, i) = 1 Next i For i = 3 To n For j = 2 To i - 1 b(i, j) = b(i - 1, j - 1) + b(i - 1, j) Next j,iEnd Sub五、程序填空题1【程序说明】下列程序求两个正整数m、n的最大公约数。Private Sub Form_Click() Dim m As Integer, n As Integer, r As Integer m = InputBox(请输入M的值：): n = InputBox(请输入N的值：) Print m; 和; n; 的最大公约数是： r = m Mod n Do Until （1） m = n: n = r: r = （2） Loop Print nEnd Sub2【程序说明】下列过程用选择法对double类型数组按值从小到大排序。Private Sub Sort( (1) ) Dim i As Integer, j As Integer, k As Integer, t As Double For i = 1 To (2) k=i For j = i + 1 To n If (3) Then k = j Next j t=a(i): a(i)=a(k): a(k)=t Next iEnd Sub六、程序设计题1在窗体上建立4个命令按钮Command1、Command2、Command3和Command4。要求：（1）命令按钮的Caption属性分别为“字体变大”、“字体变小”、“加粗”和“标准”。（2）每单击Command1按钮和Command2按钮一次，字体变大或变小3个单位。（3）单击Command3按钮时，字体变粗；单击Command4按钮时，字体又由粗体变为标准。（4）4个按钮每单击一次都在窗体上显示“欢迎使用VB”。（5）双击窗体后可以退出。答案一、 选择题1. B2A3A4D5B6D7D 8C9A10B11B12A13D14B15A 二、 判断题123456789101112131415 三、 填空题1属性、方法、事件 2属性、.=3Activate、Deactivate4145 5False6Log(x)+Sin(3.141593/6)7IS8b() As Long 9Public x As Single 10缇、无关 四、 程序阅读题（写出下列程序的运行结果）程序1. 20 程序2. 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1五、 程序填空题1（1）r = 0 （2）m Mod n2（1）a() As Double （2）n-1 （3）a(j) a(k)六、 程序设计题程序1界面设计略，过程设计如下：Private Sub Command1_Click() 字体变大 Form1.FontSize = Form1.FontSize + 3 Form1.Cls: Print 欢迎使用VBEnd SubPrivate Sub Command2_Click() 字体变小 Form1.FontSize = Form1.FontSize - 3 Form1.Cls: Print 欢迎使用VBEnd SubPrivate Sub Command3_Click() 字体加粗 Form1.FontBold = True Form1.Cls: Print 欢迎使用VBEnd SubPrivate Sub Command4_Click() 字体不加粗 Form1.FontBold = False Form1.Cls: Print 欢迎使用VBEnd Sub运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。3、