VB期末A卷.doc

2008/09第二学期程序设计基础VB试卷说明：考生应将所有答案填写在答卷上，否则无效。一、选择题（每小题1分，共10分）1、下列函数中，_函数返回的值是数值型的。 A. Chr B. Mid C. Space D. Instr2、执行语句 a = MsgBox(AAAA, , BBBB, , 5)后，所产生的信息框的标题是_ 。 A.BBBB B.空 C. AAAA D. 53、设a=2, b=3, c=4, d=5, 表达式 32*b OR a=c AND bc OR cd 的值是_ 。 A.1 B.True C.False D.-14、Timer 控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，可通过以下_属性。 A.Enabled = False或Interval = 0 B.Visible= False或Interval = 0C.Enabled = False或Visible = False D.Enabled = False且Interval = 05、下面语句说明合法的是_ 。 A.Sub a1(ByVal n%() B.Sub a1(n As Integer ) As IntegerC.Function f1%(f1 As Integer) D.Function f1(ByVal n As Integer)6、设当前位置CurrentX=200，CurrentY=400，执行指令Line (100, 250) -(350, 500), ,B后，CurrentX= _ 。 A.100 B.200 C.350 D.5507、 在用通用对话框控件建立打开文件对话框时，在文件列表框只允许显示文本文件类型的文件，则Filter属性的正确设置是_。 A. Text(.txt)|*.txt B. Text(.txt)(*.txt)C. 文本文件|(.txt) D. Text(.txt)|*.txt8、当拖动滚动条中的滚动块时，将触发的滚动条的_ 事件。 A.Move B.Change C.Scroll D.SetFocus9、Visual Basic的使用目的是 _ 。 A.图像处理www B.开发Windows应用程序 C.制作WAV文件 D.文字处理10、假设Text1文本框中输入了学生的成绩，以A、B、C、D、E字符表示不同的等级，下列语句中_可用于判断输入数据是否正确。 A. If A = Text1= E Then MsgBox 输入正确 Else MsgBox 输入错误B. If A = Text1 Or Text1 = E Then MsgBox 输入正确 Else MsgBox 输入错误C. If A = Text1 And Text1 = E Then MsgBox 输入正确 Else MsgBox 输入错误D. If A= Text1 And Text1 = E Then MsgBox 输入正确 Else MsgBox 输入错误二、填空题（每空格1分，共10 分）1、为了在运行程序时删除窗体Form1 的背景图片，可使用 语句。2、正确地显示一个标题为：“ERROR”、提示信息为“Input”的对话框的代码是k = InputBox( )。 3、滚动条产生Change事件是因为 属性值改变了。4、假定窗体上有一个文本框，若有以下事件过程，请问这个文本框只能接受 。Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 90 Then KeyAscii = 0End Sub5、若在程序中使用Dim a, b as String * 4声明 a、b两个变量，则变量 a 的类型是 ，变量 b 的类型是 。 。6、表达式Int(74.555*100+0.5)/100的值是 。7、如果要时钟控件每半分钟发生一个计时器事件，则Interval属性应设置为 。8、要使For k = x To -5 Step -2语句循环执行20次，循环变量的初值x应当是 。9、在用ShowFont方法打开通用对话框中的字体对话框前，必须先设置 属性。三、是非题（每题1分，共10分，请在答卷纸相应题号旁的括号中填“”或“”）1、在刚建立工程时，使窗体上的所有控件具有相同的缺省字体格式，应对form的font属性进行设置。 2、For/Next循环正常(未执行Exit For)结束后，控制变量的当前值一定不可能等于终值3、VB中的对象指的就是控件。4、CLS是窗体的一个方法。5、移动框架时框架内控件也跟随移动，但框架内控件的Left和Top属性值不会改变。6、在窗体上绘制CommonDialog控件时，要想使控件在运行时不可见，只要设置该控件的visible属性为false即可。7、已知a=3.5, b=5.0, c=2.5, d=True，则表达式：a =0 AND a+c b+3 OR NOT d的值是false8、文件列表框与盘驱动器列表框、目录列表框一样，都能响应Change事件。9、要在窗体上通过Pset方法绘制宽度为2的点，则需要设置DrawStyle属性。10、在块IF结构中，“End If”语句可以缺省。四、程序阅读题（每题6分，共24分）阅读下列程序，将运行时的输出结果或改错的情况写在答卷纸相应题号下。程序1. 下面是一段计算数学表达式的程序，请写出这个数学表达式。Private Sub Form_Click()Dim n As Integer, p As Integer, s As Single, q As Integer, i As Integer n = InputBox(请输入N的值:) 4 s = 0: p = -1: q = 1 For i = 1 To 4 p = -pq = q * i s = s + p * i / q Next i Print sEnd Sub1!-2/2!+3/3!-4/4!程序2. 运行时3次单击command1，并依次输入7，8，9，窗体显示结果是什么？Dim m As IntegerPrivate Sub Command1_Click()Dim a As Integer, i As Integer, f As Integera = InputBox(a=)f = 1i = 2do While i a(k) B、a(j)=a(k) C、a(j)a(k) D、a(j)0 and n 0Call gys(m, n, x) 2分Print m & 与 & n & 的最大公约数是 & x 1分 （如果这里写法跟我的一致，要注意参数传递方式有没有用byval，否则m、n会出错，要扣分）End SubPrivate Sub gys(byval a As Integer, byval b As Integer, r As Integer) 1分r = a Mod b 算法3分Do While r 0a = b: b = r: r = a Mod bLoopr = b 1分End Sub2、设计一个窗体，上面有一个图片框，一个文本框、一个命令按钮，要求初始化命令按钮不能响应，文本框输入一个不小于10且不大于100的整数n，按下回车键后命令按钮激活，按下命令按钮后调用函数过程，计算前n项级数和：S=1/2+2/3+3/4+4/5+得到级数和后，在图片框中利用（10，s1），（11，s2）（n，sn）坐标绘制曲线图，要求图片框的坐标系为（10，4）-（n，-4） Dim n As Integer 1分Private Sub Command1_Click() （此段程序6分）Dim i As Integer, s As SinglePicture1.Scale (10, 40)-(n, -40) 1分Picture1.Clsi = 10s = jishu(i) 1分Picture1.Line (i, s)-(i, s) 1分For i = 11 To n s = jishu(i) Picture1.Line -(i, s) 1分Next iCommand1.Enabled = False 1分End SubPrivate Function jishu(j As Integer) As Single （此段程序1分）Dim k As Integerjishu = 0For k = 1 To j jishu = jishu + k / (k + 1) 1分Next kEnd FunctionPrivate Sub Form_Load() （此段程序1分）Command1.Enabled = False 1分Text1.Text = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) （此段程序2分）If KeyAscii = 13 Then If Val(Text1.Text) = 10 And Val(Text1.Text) 0 Then n = Text1.Text Else Text1.Text = : Exit Sub 1分For i = 7 To n Step 7 算法4分 If i Mod 5 = 0 Then Label1.Caption = Label1.Caption + Str(i) + + sum = sum + i End IfNext iIf