计算机等级考试培训(考点).ppt

1、计算机等级考试培训（二级VB）,人文信息管理学院 何文,一、教学计划,1.理论20学时，4次课,一、教学计划,一、教学计划,2.实验15学时，3次课,二、第一章考点,1、Visual Basic的主要特点 2、VB文件系统的扩展名 考题 1.在Visual Basic中，窗体文件的扩展名是（） （A）.exe（B）.bas （C）.frm （D）.vbp 2.以下文件类型中，不属于VB文件系统的是（） （A）.ras（B）.cls （C）.frm （D）.bas 3. VB应用程序保存在磁盘上,至少会有以（）为扩展名两个文件. （A）.DOC和.TXT （B）.COM和.EXE （C）.VBW

2、和.BAS （D）.VBP和.FRM,二、第二章考点,1、基本数据类型 2、常量与变量 3、运算符与表达式 4、常用内部函数 考题 1.语句”Dim a as Integer,b,c as double”定义变量b并指定其类型为（） （A）整型 （B）双精度型 （C）变体型 （D）语法错误 2.在下列字符串中，不能用作VB变量名的是（） （A）8_num （B）instr6 C）xy_int （D）f8,二、第二章考点,3.用于声明全局变量的关键字是（） （A）Dim （B）Private （C）Public （D）Static 4.以下数据中合法的Visual Basic常量是（ ） （A）

3、2.86D-3.2 （B）126# （C）12,654,102.23 （D）12.34D 5.在VB中，一个未经定义而直接使用的变量是（）类型 （A）Integer （B）Byte （C）Variant （D）Boolean 6.要强制对变量进行显式声明时，应使用说明语句（） （A）Public Const （B）Option Explicit （C）Option Base l （D）Option Compare,二、第二章考点,7.假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是（） （A）BOOLVAR=TRUE （B）BOOLVAR=.TRUE. （C）BOOLVAR=#T

4、RUE# （D）BOOLVAR=34 8.表达式8+2*3298-3mod2的结果是（） （A）25 （B）24 （C）7 （D）7.25 9.表达式sgn（4）+5 6+7 mod 5 +int（rnd）的值是（） （A）4 （B）5 （C）3 （D）7,二、第二章考点,10.表达式Val（“2a0”）+2 Mod 4+3*22的值是（） （A）16 （B）14 （C）34 （D）40 11.下列语句中a，b，x，y都是整型变量，则只有（）语法格式是正确的。 （A）y=(a-1)(b-1) （B）if a1 not (or b3) then x=4 （C）x=4a （D）if ab-2*3

5、then y=a+b 12.表达式4 + 5 * 7 / 8 Mod 9的值是（） （A）4 （B）5 （C）6 （D）8,二、第二章考点,13.与数学表达式 相对应的VB表达式是（ ） （A）sqr(7*sin(3+2*x)+exp(2)*log(3) （B）sqr(7sin(3+2x)+exp(2)*log(3) （C）sqr(7*sin(3+2*x)+e2*log(3) （D）sqr(7sin(3+2x)+e2*log(3) 14. Int(198.555*100+0.5)/100的值（） （A）198 （B）199.6 （C）198.56 （D）200 15.若x是一个正实数，能对x的

6、第3位小数进行四舍五人的表达式是（） （A）0.01*Int(100*(x+0.05) （B）0.01*Int(100*(x+0.005) （C）0.01*Int(x+0.05) （D）0.01*lnt(x+0.005),二、第二章考点,16.从键盘上输入两个字符串，分别保存在变量str1，str2中。确定第二各字符串在第一个字符串中起始位置的函数是（ ） （A）Left （B）Mid （C）String （D）Instr 17.使X赋值为 1,100的一个随机整数，正确的语句是（） （A）x= Int(100*Rnd) （B）x= 101*Rnd （C）x= Int (99*Rnd) （D）

7、x= Int(100*Rnd + 1) 18.表达式Int(3*Rnd+2)*Int(5*Rnd-1)的取值范围是（） （A）1，7 （B）-2，12 （C）-4，1 （D）-4，6,二、第二章考点,19.函数String（3，“Str”）的返回值是（） （A）“StrStrStr” （B） “sss” （C） “SSS” （D） “StStSt” 20.在以下表达式中结果始终为“真”的是（） （A）Int(Rnd)=Fix(Rnd) （B）Int(Rnd*20)Fix(Rnd*3+5) （C）Int(-Rnd)=Fix(-Rnd) （D）-Int(Rnd*20)-Fix(Rnd*3+5),二

8、、第二章考点,21.代码如下： strA = 欢迎参加2008年奥林匹克运动会 Print Mid$(strA, 10, 10) 则程序运行的结果为（） （A）08年奥林匹克运动会 （B）08年奥林匹 （C）奥林匹克运动会 （D）奥林匹克运 22.若字符串stra$和strb$的取值为 stra$=I love my mother strb$=Mid(stra,7,3)+Right(stra,6) 则InStr(3,strb, “m”)的函数值为（） （A）4 （B）2 （C）0 （D）1,三、第三章考点,1、Print方法 2、与Print方法有关的函数 3、窗体的属性与事件 4、数据输入与

9、输出,三、第三章考点,考题 1.设a=20，b=15，c=6，执行语句Print abc后，窗体上显示的是（） （A）True （B）False （C）20 （D）出错信息 2.下列程序段运行后的输出结果是（） Dim a%, b%, c% a = 8 b = 9 Print c = a + b （A） 17 （B）出错信息 （C）False （D）True,三、第三章考点,3.下面四个语句中,能打印显示20*30字样的是（） （A）Print 20*30 （B）Print 20*30 （C）Print Chr（20）+*+Chr（30） （D）Print Val（20）*Val（20） 4.

10、对一个窗体对象，其最先发生的事件是（）事件。 （A）Click （B）DblClick （C）Load （D）UnLoad 5.在加载窗体时，下列事件会被激发的事件是（） （A）Click （B）DblClick （C）Load （D）KeyPress,三、第三章考点,6.若要使窗体启动时处于最大化状态，可设置（）属性。 （A）StartUpPosition （B）WindowState （C）Caption （D）AutoRedraw 7.命令按钮标题热字的下划线，可通过（）符号来设置。 （A） （C）_ （D） i End Sub,四、第四章考点,Private Sub Command1_

11、Click() s = 0 For i = 1 To 10 s = s + 1 Next i Print s; i End Sub,四、第四章考点,1.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i as Integer,n as Integer For i=0 To 50 i=i+3 n=n+1 If i10 then Exit For Next i Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（） (A)2 (B)

12、3 (C)4 (D)5,四、第四章考点,2程序如下 Private Sub Form_Click() L1: Dim i As Integer Dim isum As Integer For i=1 T0 5 isum=sum(i) Next i Print “isum=”; isum End Sub Private Function sum(n As Integer) L2: Dim j As Integer j =j+n n =n+2 sum =j End Function (1) 该程序运行时第一次单击窗体产生的结果是( ) (A)isum3 (B)isum4 (C)isum5 (D)i

13、sum15,四、第四章考点,(2)如果将L2语句改为：Static j As Integer，则程序运行时第一次单击窗体产生的结果为( ) (A)isum3 (B)isum4 (C)isum5 (D)isum15 (3)如果在原程序基础上只将L1语句改为：Public i As Integer，则程序运行时第一次单击窗体产生的结果为( ) (A)结果同（1） (B)结果同（2） (C)结果与（1）（2）都不相同 (D)程序有错，不能运行,四、第四章考点,3. 阅读下面程序 Option Explicit Private Sub Command1_Click() Dim strPassword

14、As String Dim i As Integer For i=1 To 3 StrPassword=InputBox(“Password:”) If strPassword=“123”Then LLL： Exit For Endlf Next i If i = 4 Then MsgBox “你不是合法用户” Else MsgBox “欢迎你” End If End Sub,四、第四章考点,（1）该程序的作用是（ ） （A）用户输入三次正确口令“123”，才显示“欢迎你”，输入三次错误口令才显示“你不是合法用户” （B）用户只输入一次正确口令“123”，就显示“欢迎你”，输入一次错误口令就显

15、示“你不是合法用户” （C）用户只输入一次正确口令“123”，会显示“欢迎你”，输入三次错误口令才显示“你不是合法用户” （D）用户只要输入一次错误口令就会显示“欢迎你”，输入三次正确口令才显示“你不是合法用户” （2）如果将LLL出的语句去掉，则（ ） （A）和原来的程序效果一样 （B）用户必须输入三次正确口令后，才会显示“欢迎你” （C）用户必须输入三次口令，且输入任何口令都显示“欢迎你” （D）用户必须输入三次口令，且输入任何口令都显示“你不是合法用户”,四、第四章考点,二、DoLoop循环语句,循环执行条件和循环结束条件*,四、第四章考点,1. 假定有以下循环结构 Do Until条件

16、 循环体 Loop 则正确的描述是（） A.如果条件是一个为0的常数，则一次循环体也不执行 B.如果条件是一个为0的常数，则无限次执行循环体 C.如果条件是一个不为0的常数，则至少执行一次循环体 D.不论条件是否为真，至少要执行一次循环体,四、第四章考点,2、程序如下： Option Explicit Private Sub Command1_Click() Dim n As Integer，s as integer n = 1 s = 1 Do While n6 s = s + n If n=2 then n=n*2 If n=4 Then n=n*2 Loop Print s End Su

17、b (1)程序运行中，语句“s=s+n”的执行次数是( ) (A)1 (B)2 (C)4 (D)6 (2)程序运行后输出的数据结果是( ) (A)1 (B)2 (C)4 (D)6 (3)如果将语句Do While n6 改为 Do While n10，由程序运行后输出的结果是( ) (A)2 (B)4 (c)6 (D)以上都不对,四、第四章考点,3、程序如下： Option Explicit Private Sub Form_Click() Dim x As Integer, y As Integer,s As Integer, t As Integer x = InputBox(请输入一个整

18、数：) s = 0 y = 0 Do While x 0 t = x Mod 10 s = s + t y = y * 10 + t x = x / 10 Loop Print s, y End Sub （1）程序运行时，如果输入5331，则变量s的结果为（ ） （A）4 （B）6（C）8（D）12 （2）程序运行时，如果输入5331，则变量y的结果为（ ） （A）1335 （B）3135（C）3315（D）5331 （3）程序运行时，如果输入12597，则（ ） （A）程序正常运行 （B）出现变量x溢出错误 （C）出现变量y溢出错误 （D）出现变量s溢出错误,四、第四章考点,4. 程序代码如

19、下： Option Explicit Private Sub Command1_Click() Dim i As Integer, n As Integer, s As Integer n = 0 i = 0 Do n = n + 2 n = n * s + n s = s + n Loop While n 100 Print n, s End Sub （1）程序运行时，Do-Loop循环被执行的次数为（ ） （A）1 （B）2（C）3（D）以上结果都不对 （2）单击命令按钮后，程序运行的输出结果为（ ） （A）12 24 （B）100 102 （C）210 224（D）以上结果都不对 （3）

20、语句“Option Explicit”的功能是（ ） （A）定义数组下标的起点（B）强制对变量进行显式声明 （C）强制对变量进行隐式声明（D）要求程序使用缩进格式,四、第四章考点,三、多重循环及常用算法 1.多重循环语句的执行步骤* Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后，输出结果是（） A）7B）15C）157D）538,四、第四章考点,输出字符三角形 Pr

21、ivate Sub Form_Click() n = Val(InputBox(请输入三角形行数) x = InputBox(请输入组成三角形的字符) For i = 1 To n Print Tab(15 - i); For j = 1 To 2 * i - 1 Print x; Next j Print Next i End Sub 2.常用算法 （1）求最大公约数与最小公倍数 （2）判断素数（质数） （3）同构数、完备数等,四、第四章考点,1. 阅读下列程序 Private Sub Commandl_C1ick() m=Val(Textl.Text) n=Val(Text2.Text)

22、mn=m*n lf mn=0 Then MsgBox”两数都不能为0!” Exit Sub End If If m0 Text3 .Text=m Text4.Text=mnm End Sub,四、第四章考点,(1)在文本框Textl中输入28，文本框Text2中输入21，单击命令按钮CommandI 后，文本框Text3与Text4中分别显示的是( ) (A)28 2l (B)7 48 (C)7 84 (D)84 7 (2)在文本框Text3中显示的是两个非零正整数m和n的( ) (A)最大值 (B)最小值 (C)最小公倍数 (D)最大公约数 (3)在文本框Text4中显示的是两个非零正整数m

23、和n的( ) (A)最大值 (B)最小值 (C)最小公倍数 (D)最大公约数,四、第四章考点,2.程序如下 Private Sub Form_Click() Dim x As Integer, sx As Integer, n As Integer Randomize x = Int (Rnd * 5 ) + 11 For i = 2 To x n = Int(Sqr(i) For j =2 To n If i Mod j = 0 Then Exit For Next j If j n Then sx = sx + i Next i Print sx End Sub,四、第四章考点,(1)程序

24、运行时，该程序中整数x的值的范围是 ( ) (A)1116之间 (B)1115之间 (C)516之间 (D)515之间 (2)变量sx中存放的数是( ) (A) 2x之间的所有素数之和 (B) 2x之间的所有奇数之和 (C) 2x之间的所有偶数之和 (D) 2x之间的所有数值之和 (3)假设x的值为14，则程序的运行结果是( ) (A)41 (B)48 (C)56 (D)104,五、第五章考点,1.数组的概念（什么情况下需用到数组） 2.静态数组与动态数组的定义 3.数组的基本操作（数组元素赋值，数组的输入与输出） 4.自定义数据类型的使用 5.常用算法 （1）求最大值与最小值 （2）排序（比

25、较法、冒泡法、选择法）* （3）查询 （4）数组与矩阵运算,五、第五章考点,1.在窗体上设计有文本框TxtInput,按钮cmdTest,且TxtInput.Text=”Visual basic is easy”,并有如下程序代码：（第19次考试程序阅读） Option Explicit Option Base 1 Private Sub CmdTest_Click() Dim strS$, i%, j%, n%, stra$, strb$, count$, t$, strt$() strS = TxtInput n = Len(strS) ReDim strt(n) For i = 1 To

26、 n stra = Mid(strS, i, 1) strb = Mid(strS, i + 1, 1) If strb = s Then If stra = a And stra = z Then count = count + 1 strt(count) = stra + strb,五、第五章考点,End If End If Next i For i = 1 To count For j = i To count - i If strt(j) strt(j + 1) Then t = strt(j): strt(j) = strt(j + 1): strt(j + 1) = t End I

27、f Next j Next i For i = 1 To count Print strt(i); Next i End Sub,五、第五章考点,(1)程序运行后count的值应为( ) (A)0 (B)2 (C)4 (D)6 (2)程序运行后，窗体上显示的结果为( ) (A)basic Visual easy is (B) is is as as (C)is as is as (D) as as is is (3)option explicit的作用为( ) (A)表明此模块内变量必须先声明后使用 (B)表明此模块没有通用过程 (C)表明此模块的通用过程不能被其他模块调用 (D)表明此模块变

28、量不声明可以直接使用 (4)以下关于语句“Option Base 1”的说法中正确的是( ) (A)其功能是指定数组的默认上界 (B)其功能是指定数组的默认下界 (C)其功能是定义动态数组 (D)其功能是定义静态数组,五、第五章考点,2. 阅读下面程序(第19次考试程序阅读5) Option Explicit Option Base 1 Private Type Abc A As Integer End Type Private Sub Form_Click() Dim recAbc As Abc Dim arrA(4, 4) As Integer Dim intI As Integer, i

29、ntJ As Integer, intN As Integer Open abc.txt For Random As #1 For intI = 1 To 4 For intJ = 1 To 4 intN = intN + 1 recAbc.A = intN Put #1, , recAbc Next intJ Next intI Close,五、第五章考点,Open abc.txt For Random As #1 For intJ = 1 To 4 For intI = 1 To 4 Get #1, intI * intJ, recAbc arrA(intI, intJ) = recAbc

30、.A Next intI Next intJ Close For intI = 1 To 4 For intJ = 1 To 4 Print Tab(intJ * 3); Format(arrA(intI, intJ), #) Next intJ Print Next intI End Sub,五、第五章考点,（1）程序中的“abc.txt”文件在第一次打开时是按（ ）方式打开的 (A)顺序文件读 (B)顺序文件写 (C)随机文件 (D)二进制文件 （2）数组arrA完成赋值以后，数组元素arrA(3,2)的值为（ ） (A)1 (B)7 (C)6 (D)4 （3）程序运行后在窗体上输出的结果

31、是（ ） （A）1 2 3 4 （B）1 2 3 4 5 6 7 8 2 4 6 8 9 10 11 12 3 6 9 12 13 14 15 16 4 8 12 16 （C）1 5 9 13 （D）1 2 3 4 2 6 10 14 2 3 4 5 3 7 11 15 3 4 5 6 4 8 12 16 4 5 6 7,五、第五章考点,3.阅读以下程序（第20次程序阅读1） Option Base 1 Private Sub Form_Click() Dim n, a, b(), i, j Do n = InputBox(请输入数组下标上界值，要求：下界上界值 4 ReDim b(n, n)

32、 a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16) For i = 1 To n For j = 1 To n b(i, j) = a(i * j) If (j = i) Then Print Tab(j * 3); Format(b(i, j), #); Next j Next i End Sub,五、第五章考点,（1）单击窗体后，在输入框中输入数组下标上界为3，则窗体显示为（） （A）1 2 3 （B）1 （C）1 2 3 （D）1 4 7 4 5 6 2 4 4 6 2 4 6 7 8 9 3 6 9 9 7

33、 8 9 （2）将语句If (j = i) Then Print Tab(j * 3); Format(b(i, j), #)改为 If (j = i) Then Print Tab(j * 3); Format(b(i, j), “#”);然后单击窗体，在输入框中输入数组下标上界值为4，则窗体显示为（） （A）1 2 3 4 (B)1 (C)1 2 3 4 (D)1 4 7 10 5 6 7 8 2 4 4 6 8 2 4 6 8 9 10 11 12 3 6 9 9 12 3 7 11 15 13 14 15 16 4 8 12 16 16 4 8 12 16 （3）“单击”窗体后，在输入

34、对话框中输人数组下标上界值为5，则显示结果为（） （A）程序出错 （B）可在对话框中点击击“取消”按钮退出 （C） 1 2 3 4 （D）不能关闭对话框，程序等待输入新下标上界 5 6 7 9 9 10 11 12 13 14 15 16,五、第五章考点,4. 程序如下(第22次程序阅读2) Option Base 1 Private Type list Data(10) As Integer Max As Integer End Type Private Sub Command1_Click() Dim a As list Dim b As Integer For i=1 To 6 a.da

35、ta(i)=2*i Next i a.max=6 b=Val(InputBox(“请输入数据”) If ba.data(a.max) Then a.data(a.max+1)=b Else,五、第五章考点,i=1 Do While (ba.data(i) i=i+1 Loop LL:For j=a.max To i Step -1 a.data(j+1)=a.data(j) Next j a.data(i)=b End If a.max=a.max+1 For i=1 To a.max Print a.data(i) Next i End Sub,五、第五章考点,(1)该程序的功能是 ( )

36、(A) 在a.data这个数组中找到最小的数据 (B) 在a.data这个数组中找到最大的数据 (C) 在a.data这个数组中的a.max位置插入一个数据 (D) 在a.data这个数组中插入一个数据，使原数组保持有序 (2)a.max功能是( )。 (A)存放数组a.data中数据的个数 (B)存放数组a.data中最大数据的值 (C)存放数组a.data中最小数据的值 (D)存放数组a.data可存放数据的最大个数,五、第五章考点,5. 程序代码如下（第24次考试程序阅读5） Private Sub Command1_Click() Dim words As String, t As S

37、tring,n As Integer,x As Integer words = InputBox(请输入字符串：) n = Len(words) t = “ “ For i = 1 To n ch = Mid(words, i, 1) AA: If ch “ “ Then If t = “ “ Then x = x + 1 t = ch End If Else t = “ “ End If Next i Print x End Sub,五、第五章考点,（1）此程序的功能是（） （A）统计字符串words的长度 （B）统计字符ch在字符串中出现的次数 （C）统计字符串words中有多少空格 （D

38、）统计字符串words中有多少单词 （2）如果inputbox输入字符串“vb is ok”（不含引号），则程序运行结果为（） （A）8 （B）2 （C）3 （D）1 （3）如果将AA处的语句改为If ch=“ ” Then，输入字符串“vb is ok”（不含引号），则程序运行结果为（） （A）8 （B）2 （C）3 （D）1,五、第五章考点,6.阅读程序 Public Function estw(lw As String) As String （第25次考试阅读5） Dim w As String, L As String, S As String, fL As String Dim a

39、As Integer, b As Integer, c As Integer, n As Integer S = lw + b = Len(S) fL = a = 0: c = 0: n = 0: w = For i = 1 To b L = Mid(S, i, 1) If L Then w = w + L c = c + 1 ElseIf fL Then If c a Then a = c: lw = w End If c = 0: w = : n = n + 1 End If fL = L Next i Print n, a estw = lw End Function,五、第五章考点,(

40、1)该函数的返回值为( ) (A) 找出原字符串中最短的单词 (B) 找出原字符串中最长的单词 (C) 找出原字符串中最后的单词 (D) 找出原字符串中第一个单词 (2)假设字符串1w为：”I am a student”，n的结果是( ) (A)1 (B)4 (C)7 (D)11 (3)假设字符串1w为：”I am a student”，a的结果是( ) (A)1 (B)4 (C)7 (D)11,五、第五章考点,7.程序如下： Option Base 1 Const n = 3 Private Sub Form_Click() Dim a(n, n) As Integer Randomize

41、For i = 1 To n For j = 1 To n a(i, j) = Int(30 * Rnd() + 50 Print a(i, j); ; Next j Print Next i Sum = 0 For i = 1 To n For j = 1 To n If i = 1 Or i = n Or j = 1 Or j = n Then Sum = Sum + a(i, j) End If Next j Next i Print Sum End Sub,五、第五章考点,（1）程序运行时，单击窗体后，变量Sum中存放的结果是（ ） （A）数组a中所有元素之和（B）数组a中主对角线元素

42、之和 （C）数组a中周边元素之和（D）数组a中副对角线元素之和 （2）数组a中元素的值域是（ ） （A）（50,80） （B）50,80）（C）（50,80（D）50,80 （3）下列说法正确的是（ ） （A）数组a是静态数组 （B）如果删除语句Randomize，则不能产生随机数 （C）符号n是变量名 （D）数组a是全局数组,六、第六章考点,1.Function过程的定义与调用 2.Sub过程的定义与调用 3.过程的嵌套与递归调用 4.参数传送 5.过程的作用域 6.常用算法,六、第六章考点,1如下程序 Private Sub Commandl_ Click() Dim a As Integ

43、er，b As Integer，c As Integer a=2：b=0：c=0 For i=1 To 3 Print f(a，b，c)*2 Next End Sub Function f(a As Integer，b As Integer，ByVal c As Integer) b=b+1：c=c+1：f=a+b+c End Function (1) 程序的执行结果是( ) (A)2 2 2 (B)8 12 16 (C)8 10 12 (D)10 14 18 (2)如果将过程定义中ByVal c As Integer改为c As Integer，程序的执行结果是( ) (A)2 2 2 (B

44、)8 12 16 (C)8 10 12 (D)10 14 18,六、第六章考点,2阅读下列程序 Option Explicit Private Sub Form_Click() Dim a As Integer,n As Integer a=2 : n=10 Print MyFun(a，n)；n End Sub Private Function MyFun(a As Integer，n As Integer) If n=0 Then Exit Function E1se n=n-1：MyFun=a+MyFun(a，n) End If End Function,六、第六章考点,(1)程序中定义的

45、MyFun是( )函数。 (A)递归 (B)系统 (C)数学 (D)字符串 (2)用户单击窗体时，输出的结果是( ) (A)20 0 (B)20 1 (C)20 5 (D)20 10 (3)将语句n=n-1：MyFun=a+MyFun(a，n)改为 MyFun=a+MyFun(a，n-1)后，用户单击窗体时，输出的结果是( ) (A)20 0 (B)20 1 (C)20 5 (D)20 10,六、第六章考点,3.程序如下 Private Sub Command1_Click() Dim n As Integer Dim r As Long n = Val(InputBox(请输入一个数) r

46、= fun(n) Picture1.Print r,n End Sub Function fun(ByVal num As Integer) As Long Dim k As Integer k = 1 num = Abs(num) Do While num k = k * (num Mod 10) num = num10 Loop fun = k End Function,六、第六章考点,（1）当程序运行时，如输入74，则输出结果为（ ） (A)28 74 (B)28 0 (C)47 74 (D)47 0 （2）如果将程序中的语句“Function fun(ByVal num As Inte

47、ger) As Long”改为“Function fun(num As Integer) As Long”后，再输入74，则输出结果为（ ） (A)28 74 (B)28 0 (C)47 74 (D)47 0 （3）该程序在窗体上至少设置了几个控件？（ ） (A)一个 (B)二个 (C)三个 (D)四个,六、第六章考点,4.程序代码如下： Private Sub Command1_Click() Dim i As Integer LL: For i = 1 To 4 Print fun(i); Next i End Sub Function fun(n As Integer) If n = 0

48、 Or n = 1 Then fun = 1 Else fun = fun(n - 1) + fun(n - 2) End If End Function （1）单击命令按钮后，程序运行的结果是（） （A）1 2 3 4 （B）1 2 3 5 （C）1 2 5 7 （D）1 2 5 8 （2）如果将LL处的语句改为For i = 1 To 3，则函数 fun() 共执行了多少次（） （A）3 （B）5 （C）8 （D）9,六、第六章考点,5.程序如下 Dim x As Integer, y As Integer, z As Integer Sub s1(a As Integer, b As I

49、nteger) Dim c As Integer a = 2 * a b = b + 2 c = a + b End Sub Sub s2(a As Integer, ByVal b As Integer) Dim c As Integer a = 2 * a b = b + 2 c = a + b End Sub Private Sub Command1_Click() x = 4 y = 4 z = 6 Call s1(x, y) Print x + y + z; Call s2(x, y) Print x + y + z End Sub,六、第六章考点,（1）程序运行后，窗体上显示的结果

50、为（） (A) 24 28 (B) 20 28 (C) 20 18 (D) 20 20 （2）将ByVal b As Integer改为b As Integer 后窗体上显示的结果为（） (A) 24 28 (B) 20 28 (C) 20 18 (D) 20 30 （3） 修改后变量x和y 的最后取值为（） (A) 24 28 (B) 20 20 (C) 16 8 (D) 20 30,六、第六章考点,6.阅读下面程序，如有以下程序代码： Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 L1：Call god(x, x, z) Print x; x; z L2：Call god(x, y, y) Print x; y; y End Sub L3：Private Sub god(x As Integer, y As Integer, z As Integer) x = 3 * z + 1 y = 2 * z z = x + y End Sub,六、第六章考点,（1）运行程序时，第一次单击命令按钮产生的结果是（ ） （A） 6 6 12（B）6 6 3 7 11 11