【计算机类职业资格】二级VISUAL+BASIC笔试-392及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC笔试-392及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试-392及答案解析.doc（13页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 笔试-392 及答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.假定窗体上有一个标签，名为 Labe11，为了使该标签透明且没有边框，则正确的属性设置为( )。 （分数：2.00）A.B.C.D.2.组合框控件是将( )组合成一个控件。（分数：2.00）A.列表框控件和文本框控件B.标签控件和列表框控件C.标签控件和文本框控件D.复选框控件和选项按钮控件3.要使文本框获得输入焦点，则应采用文本框控件的( )方法。（分数：2.00）A.GotFocusB.LoStFocuSC.KeyPressD.SetFo

2、cus4.图像框中的 stretch 属性为 true 时，其作用是( )。（分数：2.00）A.只能自动设定图像框长度B.图形自动调整大小以适应图像控件C.只能自动缩小图像D.只能自动扩大图像5.当执行以下过程时，在名为 lplResult 的标签框内将显示( )。 Private Sub cmdlt_C1ick() Dimi，r r=0 Fori=1 To 5 Step 1 r=r+i Nexti 1p1Result.Caption=Str$(r) End Sub（分数：2.00）A.字符串 15B.整数 15C.字符串 5D.整数 56.应用数据库的主要目的是( )。（分数：2.00）A

3、.解决数据保密问题B.解决数据完整性问题C.解决数据共享问题D.解决数据量大的问题7.表达式 2*32+2*8/4+32 的值为( )。（分数：2.00）A.64B.31C.49D.228.在窗体上画一个名称为 Conunandl 的命令按钮，然后编写如下程序： Private Sub Commandl_Click() Dimi As Intege,j As Integer Dima(10,10)As Integer Fori=1 To 3 Forj=1 To 3 a(i,j)=(i-1)*3+j Printa(i,j)； Nextj Print Nexti End Sub 程序运行后，单击命

4、令按钮，窗体上显示的是( )。 （分数：2.00）A.B.C.D.9.编写如下事件过程： Private Sub Form_MouseMove(ButtonAsInteger,ShiftAsInteger，X As Single,YAsSingle) Cls If(Button Andl)ThenPrint“你好“ End Sub 程序运行后，为了在窗体上显示“你好”，应在窗体上执行以下( )操作。（分数：2.00）A.只能按下左按键并拖动B.只能按下右按键并拖动C.只能按下左按键D.只能按下右按键10.引用列表框(Listl)最后一个数据项应使用的表达式是( )。（分数：2.00）A.Lis

5、tList(LiListCounB.ListList(ListListCount-1)C.ListList(ListCounD.ListList(ListCount-1)11.下列叙述中不正确的是( )。（分数：2.00）A.变量名的第一个字符必须是字母B.变量名的长度不超过 255 个字符C.变量名可以包含小数点或者内嵌的类型声明字符D.变量名不能使用关键字12.下列定义语句中不能定义为字符型数据的是( )。（分数：2.00）A.DefstrCB.CC.Staticc As StringD.DimCAsSingle13.下列对于线性链表的描述中正确的是( )。（分数：2.00）A.存储空间不

6、一定是连续，且各元素的存储顺序是任意的B.存储空间不一定是连续，且前件元素一定存储在后件元素的前面C.存储空间必须连续，且前件元素一定存储在后件元素的前面D.存储空间必须连续，且各元素的存储顺序是任意的14.有如下程序，运行后输出的是( )。 Option Base 1 Private Sub Commandl_click() Dim aj(1 To 10) Forj=6 To 10 aj(j)=j*2 Nextj Printaj(1)+aj(j) End Sub（分数：2.00）A.5B.20C.22D.显示出错信息15.设置组合框的风格，可用的属性是( )。（分数：2.00）A.Backs

7、tyleB.BorderstyleC.StyleD.Sortned16.下述程序的运行结果是( )。 Form=3 To 1Step-1 x$=String$(m，“#“) Printx$ Nextm （分数：2.00）A.B.C.D.17.下列每组控件中，都包含有滚动条的一组控件是( )。（分数：2.00）A.ListBox 和 LabelBoxB.TextBox 和 DriveListBoxC.ComboBox 和 CheckBoxD.FileListBox 和 DirListBox18.执行语句 Open“C:StuData.dat“ForlnputAs#2 后，系统( )。（分数：2.

8、00）A.将 C 盘当前文件夹下名为 StuDatdat 的文件的内容读入内存B.在 C 盘当前文件夹下建立名为 StuDatdat 的顺序文件C.将内存数据存放在 C 盘当前文件夹下名为 StuDatdat 的文件中D.将某个磁盘文件的内容写入 C 盘当前文件夹下名为 StuDatdat 的文件中19.在窗体上画一个名称为 Listl 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为( )。 （分数：2.00）A.B.C.D.20.双击窗体中的对象后，VisualBasic 显示的窗口是( )。（分数：2.00）A.项目(工程)窗口B.工具箱C.代码窗口D.属性窗口21.在

9、正确安装 VisualBasic 6.0 后，可以通过多种方式启动 Visual Basic。以下方式中不能启动VisualBasic 的是( )。（分数：2.00）A.通过“开始”菜单中的“程序”命令B.通过“我的电脑”找到 Vb6exe,双击该文件名C.通过“开始”菜单中的“运行”命令D.进入 DOS 方式，执行 Vb6.exe 文件22.下述程序的输出图形是( )。 Fork=0 To 360 Cr=Int(160*Rnd) Ang=-3.1415926/180*k Circle(200；200)，50,cr,0,ang Next（分数：2.00）A.一段彩色圆弧B.一个彩色扇形C.一个

10、彩色空心圆D.一个辐射状彩色圆形23.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是( )。（分数：2.00）A.任何时刻最多只有一个窗体是活动窗体B.不能把标准模块设置为启动模块C.用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D.如果工程中含有 SubMain 过程，则程序一定首先执行该过程24.下面是窗体 Forml 的 Crick 事件过程，实现运行时每次单击窗体，窗体均向右移动 100 的是( )。 PrivateSub_ Static Intleft As Integer Infiefi=Intleft+100 Forml.Left=Intleft End S

11、ub（分数：2.00）A.Forml_Click()B.Form_Click()C.Commanl_Click()D.Commandl_Click()25.假定有以下两个过程： Private Sub PPP(aAsSingle，b As Single) a=a+b Printa,b b=a+b Printa,b End Sub Private Sub Form_Activate( ) x=18 Call PPP(x)，(x) PrintX： End Sub 则以下说法中不正确的是( )。（分数：2.00）A.虚参是 a 和 b，两个实参(和(允许重名B.虚参是 a 和 b，实参(表示传值调用

12、C.虚参是 a 和 b，实参(表示是非传址调用D.虚参是 a 和 b，两个实参(和(不允许重名26.能够将文本框控件隐藏起来的属性是( )。（分数：2.00）A.ClearB.VisibleC.HideD.New27.设 x=4，y=8，z=7，以下表达式的值是( )。 xy And(Not(yz)Orzx（分数：2.00）A.1B.-1C.TrueD.False28.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是( )。（分数：2.00）A.ValueB.CancelC.EnabledD.Default29.有如下函数过程： Functi

13、on lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮，名为 Commandl，编写事件过程调用该函数，输出结果为 ( )。 Private Sub Commandl_lick() Dimi As Integer Dim sum As Long Fori=1 To 5 sum=sum+lj(i) Nexti Print sum End Sub（分数：2.00）A.25B.35C.45D.5530.用如下语句所定义的数组的元

14、素个数是( )个。 Dim b(-2 to 4)asstring（分数：2.00）A.2B.4C.6D.731.VB 的 3 种结构化程序设计的 3 种基本结构是( )。（分数：2.00）A.选择结构、过程结构、顺序结构B.递归结构、选择结构、循环结构C.过程结构、转向结构、递归结构D.选择结构、顺序结构、循环结构32.以下关于复选框的说法，正确的是( )。（分数：2.00）A.复选框的 Enabled 属性用于决定该复选框是否被选中B.复选框的 Value 属性用于决定该复选框是否被选中C.复选框的 Checked 属性用于决定该复选框是否被选中D.复选框的 Visible 属性用于决定该复

15、选框是否被选中33.下列说法错误的是( )。（分数：2.00）A.在同一模块不同过程中的变量可以同名B.不同模块中定义的全局变量不可以同名C.引用另一模块中的全局变量时，必须在变量名前加模块名D.同一模块中不同级的变量可以同名34.以下叙述中错误的是( )。（分数：2.00）A.双击鼠标可以触发 DblClick 事件B.窗体或控件的事件的名称可以由编程人员确定C.移动鼠标时，会触发 MouseMove 事件D.控件的名称可以由编程人员设定35.为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程，需要把该命令按钮的一个属性设置为True，这个属性是( )。（分数：2.00）A.V

16、alueB.DefaultC.CancelD.Enabled二、B填空题/B(总题数：11，分数：30.00)36.为同一种对象设置不同的属性，可以使一种对象具有不同的外观和不同的 1。（分数：2.00）填空项 1:_37.快捷键 Ctrl+O 的功能相当于执行文件菜单中的 1 命令。（分数：2.00）填空项 1:_38.在 VB6.0 中，InputBox 函数用于产生 1 对话框。（分数：2.00）填空项 1:_39.在面向对象的程序设计中，类描述的是具有相似性质的一组 1。（分数：2.00）填空项 1:_40.以下程序段的输出结果是_。 num=0 Whilenum=2 nam=hum+

17、1 Wend Printnam（分数：2.00）填空项 1:_41.属性窗口主要是针对窗体和控件设置的。在 Visual Basic 中，窗体和控件被称为 1。每个对象都可以用一组属性来刻画其特征，而属性窗口就是用来设置窗体或窗体中控件属性的。（分数：2.00）填空项 1:_42.Printer.Print“*“星号输出到 1。（分数：2.00）填空项 1:_43.面向对象的程序设计是把 1 封装起来作为一个对象，并为每一个对象设置所需要的属性。（分数：2.00）填空项 1:_在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Click()Text

18、1.Text=“VB 程序设计“End SubPrivate Sub Text1_Change()Picmml.Print“VBProgramming“End Sub程序运行后，单击窗体，则在文本框中显示的内容U 9 /U，而在图片框中显示的内容是U 10 /U。（分数：8.00）(1).（分数：2.00）填空项 1:_(3).（分数：2.00）填空项 1:_44.假设某应用程序开发工程(默认的工程名为“工程 1”)已先后创建了两个窗体，其名称分别为 form1和 form2。为使窗体 form1 成为运行该工程时的启动窗体，在开发过程中，应在“工程-工程 1 属性”对话框内的“通用”标签下，

19、在“启动对象”的下拉列表框中，选择所需启动的窗体名 1（分数：2.00）填空项 1:_在 n 个运动员中选出任意 r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式 n!计算。下图窗体中 3 个文本框的名称依次是 Text1、Text2、Text3。程序运行时在 (n-r)!r!Text1、Text2 中分别输入 n 和 r 的值，单击 Commandl 按钮即可求出选法的个数，并显示在 Text3 文本框中。请填空。Private Sub Commandl_Click()Dim r As Integer，n As htegern=Text1r=Text2Text3=fun(n)/fu

20、n(U 14 /U)/fun(r)End SubFuncion fun (n As Integer)as longDim t As LongU 15 /UFork=1 To nt=t*kNextfun=tEnd Function（分数：4.00）(1).（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-392 答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.假定窗体上有一个标签，名为 Labe11，为了使该标签透明且没有边框，则正确的属性设置为( )。 （分数：2.00）A. B.C.D.解析：2.组合框控件是将(

21、)组合成一个控件。（分数：2.00）A.列表框控件和文本框控件 B.标签控件和列表框控件C.标签控件和文本框控件D.复选框控件和选项按钮控件解析：3.要使文本框获得输入焦点，则应采用文本框控件的( )方法。（分数：2.00）A.GotFocusB.LoStFocuSC.KeyPress D.SetFocus解析：4.图像框中的 stretch 属性为 true 时，其作用是( )。（分数：2.00）A.只能自动设定图像框长度B.图形自动调整大小以适应图像控件 C.只能自动缩小图像D.只能自动扩大图像解析：5.当执行以下过程时，在名为 lplResult 的标签框内将显示( )。 Private

22、 Sub cmdlt_C1ick() Dimi，r r=0 Fori=1 To 5 Step 1 r=r+i Nexti 1p1Result.Caption=Str$(r) End Sub（分数：2.00）A.字符串 15 B.整数 15C.字符串 5D.整数 5解析：6.应用数据库的主要目的是( )。（分数：2.00）A.解决数据保密问题B.解决数据完整性问题C.解决数据共享问题 D.解决数据量大的问题解析：7.表达式 2*32+2*8/4+32 的值为( )。（分数：2.00）A.64B.31 C.49D.22解析：8.在窗体上画一个名称为 Conunandl 的命令按钮，然后编写如下程序

23、： Private Sub Commandl_Click() Dimi As Intege,j As Integer Dima(10,10)As Integer Fori=1 To 3 Forj=1 To 3 a(i,j)=(i-1)*3+j Printa(i,j)； Nextj Print Nexti End Sub 程序运行后，单击命令按钮，窗体上显示的是( )。 （分数：2.00）A.B.C.D. 解析：9.编写如下事件过程： Private Sub Form_MouseMove(ButtonAsInteger,ShiftAsInteger，X As Single,YAsSingle)

24、Cls If(Button Andl)ThenPrint“你好“ End Sub 程序运行后，为了在窗体上显示“你好”，应在窗体上执行以下( )操作。（分数：2.00）A.只能按下左按键并拖动 B.只能按下右按键并拖动C.只能按下左按键D.只能按下右按键解析：10.引用列表框(Listl)最后一个数据项应使用的表达式是( )。（分数：2.00）A.ListList(LiListCounB.ListList(ListListCount-1) C.ListList(ListCounD.ListList(ListCount-1)解析：11.下列叙述中不正确的是( )。（分数：2.00）A.变量名的第

25、一个字符必须是字母B.变量名的长度不超过 255 个字符C.变量名可以包含小数点或者内嵌的类型声明字符 D.变量名不能使用关键字解析：12.下列定义语句中不能定义为字符型数据的是( )。（分数：2.00）A.DefstrCB.CC.Staticc As StringD.DimCAsSingle 解析：13.下列对于线性链表的描述中正确的是( )。（分数：2.00）A.存储空间不一定是连续，且各元素的存储顺序是任意的 B.存储空间不一定是连续，且前件元素一定存储在后件元素的前面C.存储空间必须连续，且前件元素一定存储在后件元素的前面D.存储空间必须连续，且各元素的存储顺序是任意的解析：14.有如

26、下程序，运行后输出的是( )。 Option Base 1 Private Sub Commandl_click() Dim aj(1 To 10) Forj=6 To 10 aj(j)=j*2 Nextj Printaj(1)+aj(j) End Sub（分数：2.00）A.5B.20C.22D.显示出错信息 解析：15.设置组合框的风格，可用的属性是( )。（分数：2.00）A.BackstyleB.BorderstyleC.Style D.Sortned解析：16.下述程序的运行结果是( )。 Form=3 To 1Step-1 x$=String$(m，“#“) Printx$ Nex

27、tm （分数：2.00）A.B. C.D.解析：17.下列每组控件中，都包含有滚动条的一组控件是( )。（分数：2.00）A.ListBox 和 LabelBoxB.TextBox 和 DriveListBoxC.ComboBox 和 CheckBoxD.FileListBox 和 DirListBox 解析：18.执行语句 Open“C:StuData.dat“ForlnputAs#2 后，系统( )。（分数：2.00）A.将 C 盘当前文件夹下名为 StuDatdat 的文件的内容读入内存 B.在 C 盘当前文件夹下建立名为 StuDatdat 的顺序文件C.将内存数据存放在 C 盘当前文

28、件夹下名为 StuDatdat 的文件中D.将某个磁盘文件的内容写入 C 盘当前文件夹下名为 StuDatdat 的文件中解析：19.在窗体上画一个名称为 Listl 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为( )。 （分数：2.00）A. B.C.D.解析：20.双击窗体中的对象后，VisualBasic 显示的窗口是( )。（分数：2.00）A.项目(工程)窗口B.工具箱C.代码窗口 D.属性窗口解析：21.在正确安装 VisualBasic 6.0 后，可以通过多种方式启动 Visual Basic。以下方式中不能启动VisualBasic 的是( )。（分数：

29、2.00）A.通过“开始”菜单中的“程序”命令B.通过“我的电脑”找到 Vb6exe,双击该文件名C.通过“开始”菜单中的“运行”命令D.进入 DOS 方式，执行 Vb6.exe 文件 解析：22.下述程序的输出图形是( )。 Fork=0 To 360 Cr=Int(160*Rnd) Ang=-3.1415926/180*k Circle(200；200)，50,cr,0,ang Next（分数：2.00）A.一段彩色圆弧B.一个彩色扇形C.一个彩色空心圆D.一个辐射状彩色圆形 解析：23.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是( )。（分数：2.00）A.任何时刻最多只有

30、一个窗体是活动窗体B.不能把标准模块设置为启动模块C.用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D.如果工程中含有 SubMain 过程，则程序一定首先执行该过程 解析：24.下面是窗体 Forml 的 Crick 事件过程，实现运行时每次单击窗体，窗体均向右移动 100 的是( )。 PrivateSub_ Static Intleft As Integer Infiefi=Intleft+100 Forml.Left=Intleft End Sub（分数：2.00）A.Forml_Click()B.Form_Click() C.Commanl_Click()D.Comman

31、dl_Click()解析：25.假定有以下两个过程： Private Sub PPP(aAsSingle，b As Single) a=a+b Printa,b b=a+b Printa,b End Sub Private Sub Form_Activate( ) x=18 Call PPP(x)，(x) PrintX： End Sub 则以下说法中不正确的是( )。（分数：2.00）A.虚参是 a 和 b，两个实参(和(允许重名B.虚参是 a 和 b，实参(表示传值调用C.虚参是 a 和 b，实参(表示是非传址调用D.虚参是 a 和 b，两个实参(和(不允许重名 解析：26.能够将文本框控件

32、隐藏起来的属性是( )。（分数：2.00）A.ClearB.Visible C.HideD.New解析：27.设 x=4，y=8，z=7，以下表达式的值是( )。 xy And(Not(yz)Orzx（分数：2.00）A.1B.-1C.TrueD.False 解析：28.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是( )。（分数：2.00）A.ValueB.CancelC.EnabledD.Default 解析：29.有如下函数过程： Function lj(x As Integer)As Long Dims As Long Dimi A

33、s Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮，名为 Commandl，编写事件过程调用该函数，输出结果为 ( )。 Private Sub Commandl_lick() Dimi As Integer Dim sum As Long Fori=1 To 5 sum=sum+lj(i) Nexti Print sum End Sub（分数：2.00）A.25B.35 C.45D.55解析：30.用如下语句所定义的数组的元素个数是( )个。 Dim b(-2 to 4)asstring（分数：2.00）A

34、.2B.4C.6D.7 解析：31.VB 的 3 种结构化程序设计的 3 种基本结构是( )。（分数：2.00）A.选择结构、过程结构、顺序结构B.递归结构、选择结构、循环结构C.过程结构、转向结构、递归结构D.选择结构、顺序结构、循环结构 解析：32.以下关于复选框的说法，正确的是( )。（分数：2.00）A.复选框的 Enabled 属性用于决定该复选框是否被选中B.复选框的 Value 属性用于决定该复选框是否被选中 C.复选框的 Checked 属性用于决定该复选框是否被选中D.复选框的 Visible 属性用于决定该复选框是否被选中解析：33.下列说法错误的是( )。（分数：2.00

35、）A.在同一模块不同过程中的变量可以同名B.不同模块中定义的全局变量不可以同名C.引用另一模块中的全局变量时，必须在变量名前加模块名D.同一模块中不同级的变量可以同名 解析：34.以下叙述中错误的是( )。（分数：2.00）A.双击鼠标可以触发 DblClick 事件B.窗体或控件的事件的名称可以由编程人员确定 C.移动鼠标时，会触发 MouseMove 事件D.控件的名称可以由编程人员设定解析：35.为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程，需要把该命令按钮的一个属性设置为True，这个属性是( )。（分数：2.00）A.ValueB.DefaultC.Cancel

36、D.Enabled解析：二、B填空题/B(总题数：11，分数：30.00)36.为同一种对象设置不同的属性，可以使一种对象具有不同的外观和不同的 1。（分数：2.00）填空项 1:_ （正确答案：内在性能）解析：37.快捷键 Ctrl+O 的功能相当于执行文件菜单中的 1 命令。（分数：2.00）填空项 1:_ （正确答案：打开工程）解析：38.在 VB6.0 中，InputBox 函数用于产生 1 对话框。（分数：2.00）填空项 1:_ （正确答案：输入）解析：39.在面向对象的程序设计中，类描述的是具有相似性质的一组 1。（分数：2.00）填空项 1:_ （正确答案：对象）解析：40.以

37、下程序段的输出结果是_。 num=0 Whilenum=2 nam=hum+1 Wend Printnam（分数：2.00）填空项 1:_ （正确答案：3）解析：41.属性窗口主要是针对窗体和控件设置的。在 Visual Basic 中，窗体和控件被称为 1。每个对象都可以用一组属性来刻画其特征，而属性窗口就是用来设置窗体或窗体中控件属性的。（分数：2.00）填空项 1:_ （正确答案：对象）解析：42.Printer.Print“*“星号输出到 1。（分数：2.00）填空项 1:_ （正确答案：打印机）解析：43.面向对象的程序设计是把 1 封装起来作为一个对象，并为每一个对象设置所需要的属

38、性。（分数：2.00）填空项 1:_ （正确答案：程序和数据）解析：在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Click()Text1.Text=“VB 程序设计“End SubPrivate Sub Text1_Change()Picmml.Print“VBProgramming“End Sub程序运行后，单击窗体，则在文本框中显示的内容U 9 /U，而在图片框中显示的内容是U 10 /U。（分数：8.00）(1).（分数：2.00）解析：填空项 1:_ （正确答案：VB Programming）解析：(3).（分数：2.00）解析：填空

39、项 1:_ （正确答案：Min=arrl(i)）解析：44.假设某应用程序开发工程(默认的工程名为“工程 1”)已先后创建了两个窗体，其名称分别为 form1和 form2。为使窗体 form1 成为运行该工程时的启动窗体，在开发过程中，应在“工程-工程 1 属性”对话框内的“通用”标签下，在“启动对象”的下拉列表框中，选择所需启动的窗体名 1（分数：2.00）填空项 1:_ （正确答案：Forml）解析：在 n 个运动员中选出任意 r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式 n!计算。下图窗体中 3 个文本框的名称依次是 Text1、Text2、Text3。程序运行时在 (n

40、-r)!r!Text1、Text2 中分别输入 n 和 r 的值，单击 Commandl 按钮即可求出选法的个数，并显示在 Text3 文本框中。请填空。Private Sub Commandl_Click()Dim r As Integer，n As htegern=Text1r=Text2Text3=fun(n)/fun(U 14 /U)/fun(r)End SubFuncion fun (n As Integer)as longDim t As LongU 15 /UFork=1 To nt=t*kNextfun=tEnd Function（分数：4.00）(1).（分数：2.00）解析：填空项 1:_ （正确答案：t=1）解析：