VB自测题及答案.docVIP

自测题及其参考答案 8．1 过程的定义与调用 自测题 单项选择题（共20分，每小题4分） 1．标准模块中的内容存放在以（ ）为扩展名的文件中。 a).frm b).bas c).cls d).txt 2．下列过程不能包含在标准模块中定义的是（ ）。 a)事件过程 b)子过程 c)函数过程 d)公共过程 3．设已定义子过程p，它有三个数值型数值参数，再设a为实型变量，则调用该子过程使用的语句为（ ）。 a) p b) call p 0.5,a,100 c) call p (0.5,cos(0.1),a+10) d) p (0.5,1.2,100) 4.　设已定义函数过程f，它有三个整型数值参数，再设a,b和c为实型变量，则调用该函数过程使用的语句为（ ）。 a)f b) f( a+b, b+c ) c)f ( a+b, b+c ,c+a ) c) f a+b, b+c, c+a 5．要在子过程的过程体中退出子过程应使用（ ）语句。 a) Exit Do b) Exit For c) Exit Sub d) Exit Function 填空题（共20分，每小题5分） 一个VB应用程序可以包括三种模块：（ ）、（ ）和（ ）。 若在标准模块中以关键字public定义子过程，则在（ ）中都可以调用 该过程。 若在窗体模块或标准模块中以关键字private定义函数过程，则该函数过程只能在 ( )中使用。 在函数过程定义中一般至少有一个赋值语句把所得函数值赋给（ ）。 写出下列事件过程的执行结果。（共30分，每小题15分） 1． Private Sub Command1_Click() Dim a As Integer, b As Integer a = 24: b = 16 Call s(a, b) End Sub Private Sub s(ByVal u As Integer, ByVal v As Integer) Dim m As Integer While v m = u Mod v u = v v = m Wend Print u End Sub 2． Private Sub Command1_Click() Dim m% m = max(35, -21, 480) m = max(max(m, 75, 100), 380, 28) Print max=; m End Sub Private Function max(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) If x y Then max = x Else max = y If z max Then max = z End Function 程序填空题（共30分，每空10分） 设 ，下面窗体模块的功能是从键盘上输入x，y和z的值，求f (x，y，z)的值，在横线上填上适当内容。 Private Function f(ByVal a As Single, ByVal b As Single, ByVal c As Single) (1) End Function Private Sub Command1_Click() Dim x!, y!, z!, s! x = InputBox(x=) y = InputBox(y=) z = InputBox(z=) s = (2) Print s=; s End Sub 下面窗体模块的功能是在窗体上显示如下图形，在横线上填上适当内容。 ** **** ****** **** ** Private Sub p(ByVal i As Integer) Dim j%, k% For