计算机二级考试VB过程练习题
- 格式:doc
- 大小:35.00 KB
- 文档页数:3
全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行,目前处于紧张的备考阶段,以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案,供参考练习,预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后,VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中,VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中,要将一个窗体装载到内存进行变量初始化等预处理,但没有显示该窗体,应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段:a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后,单击命令按钮,在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
计算机二级VB语言程序设计考试题及答案计算机二级VB语言程序设计考试题及答案1.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:PrivateSubCommand1_Click()n=Val(Text1.Text)Ifn2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx)x=x*xf2=x+x+xEndFunction程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)(单)A.7236B.10836C.726D.2732.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c="1234"Fori=1To4c1=Trim(Str())Printc1NextiEndSub程序运行后,单击命令按钮,要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=2TonForj=2Tosqr(i)IfiModj=0ThenExitForNextjIfj>Sqr(i)ThenPrintiNextiEndSub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的'偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFunctionf(mAsInteger)IfmMod2=0Thenf=mElsef=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegers=0Fori=1To5s=s+f(i)NextPrintsEndSub程序运行后,单击命令按钮,在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后,单击命令按钮,在文本框中显示的值是(D)(单)A.15B.14C.13D.126.VisualBasic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
计算机二级考试vb题库及答案一、单项选择题(每题2分,共20分)1. 在Visual Basic中,下列哪个选项是合法的变量名?A. 12abcB. _abcC. abc-123D. Print答案:B2. 下列哪个选项是Visual Basic中的保留字,不能作为变量名?A. DimB. IfC. EndD. MyVar答案:B3. 在Visual Basic中,以下哪个数据类型用于存储日期和时间?A. IntegerB. DateC. StringD. Boolean答案:B4. Visual Basic中,以下哪个函数用于计算两个数的绝对值?A. AbsB. SqrC. RoundD. Int答案:A5. 在Visual Basic中,以下哪个选项是正确的子程序定义?A. Sub MySub()B. Function MySub()C. Sub MySub(Param As Integer)D. Function MySub(Param As Integer)答案:C6. Visual Basic中,以下哪个控件用于显示文本,但不能编辑?A. TextBoxB. LabelC. ComboBoxD. ListBox答案:B7. 在Visual Basic中,以下哪个事件用于响应按钮点击?A. ClickB. DoubleClickC. MouseDownD. KeyPress答案:A8. Visual Basic中,以下哪个选项是正确的循环结构?A. For i = 1 To 10 Step -1B. For i = 10 To 1 Step 1C. For i = 1 To 10 Step 2D. For i = 10 To 1 Step -2答案:C9. 在Visual Basic中,以下哪个选项用于声明一个整型数组?A. Dim MyArray() As IntegerB. Dim MyArray(10) As IntegerC. Dim MyArray As Integer()D. Dim MyArray(10) As New Integer答案:B10. Visual Basic中,以下哪个选项用于打开一个文件进行读取?A. Open filename For Output As #1B. Open filename For Input As #1C. Open filename For Random As #1D. Open filename For Append As #1答案:B二、填空题(每题2分,共20分)1. 在Visual Basic中,使用________函数可以将字符串转换为大写。
全国计算机二级考试《VB》操作试题及答案全国计算机二级考试《VB》操作试题及答案全国计算机等级考试(National Computer Rank Examination,简称NCRE),是在1994年,经原国家教育委员会(现教育部)批准,由教育部考试中心主办,面向社会,用于考查应试人员计算机应用知识与能力的全国性计算机水平考试体系。
以下是店铺整理的全国计算机二级考试《VB》操作试题及答案,希望对大家有帮助。
一、基本操作题(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为1,最大刻度值为100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签,并分别显示1和100,运行时的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框,初始内容均为空;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Copy和Clear,标题分别为“复制”、“清除”,请编写适当的事件过程,使得在程序运行时,单击“复制”选项菜单,则把Textl中的内容复制到Text2中,单击“清除”选项菜单,则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sit2.vbp,窗体文件名为sjt2.frm。
二、简单应用题(1)在考生文件夹F有一个工程文件sjt3.vbp,窗体上已经有一个标签Labell,请添加一个单选按钮数组,名称为Opl,含三个单选按钮,它们的Index属性分别为0、1、2,标题依次为“飞机”、“火车”、“汽车”,再添加一个名称为T extl的文本框。
计算机二级vb考试题库及答案计算机二级vb考试题库一及答案1.下列关于栈的叙述正确的是(D)A)栈是非线性结构B)栈是一种树状结构C)栈具有先进先出的特征D)栈具有后进先出的特征2.若某二叉树的前序遍历访问顺序是abdgcefh,中序遍历访问顺序是dgbaechf,则其后序遍历的结点访问顺序是(D)A)bdgcefhaB)gdbecfhaC)bdgaechfD)gdbehfca3.根据数据结构中各数据元素之间前后件关系的复杂程度,一般将数据结构分成(C)A)动态结构和静态结构B)紧凑结构和非紧凑结构C)线性结构和非线性结构D)内部结构和外部结构4.下面对对象概念描述错误的是(A)A)任何对象都必须有继承性B)对象是属性和方法的封装体C)对象间的通讯靠消息传递D)操作是对象的动态属性5.软件开发的结构化生命周期方法将软件生命周期划分成(A)A)定义、开发、运行维护B)设计阶段、编程阶段、测试阶段C)总体设计、详细设计、编程调试D)需求分析、功能定义、系统设计6.下列工具中为需求分析常用工具的是(D)A)PADB)PFDC)N-SD)DFD7.开发大型软件时,产生困难的根本原因是(A)A)大系统的复杂性B)人员知识不足C)客观世界千变万化D)时间紧、任务重8.下述关于数据库系统的叙述中正确的是(A)A)数据库系统减少了数据冗余B)数据库系统避免了一切冗余C)数据库系统中数据的一致性是指数据类型一致D)数据库系统比文件系统能管理更多的数据9.单个用户使用的数据视图的描述称为(A)A)外模式B)概念模式C)内模式D)存储模式10.关系数据库管理系统能实现的专门关系运算包括(B)A)排序、索引、统计B)选择、投影、连接C)关联、更新、排序D)显示、打印、制表计算机二级vb考试题库二及答案1.以下程序段运行的结果为(B)Private Sub Form_Click( )MyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)Private Sub Form_Click( )MyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P") End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)Private Sub Form_Click( )MyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后,单击命令按钮,结果为(B)A.显示对话框,提示信息为"帐号正确"B.显示对话框,提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后,单击命令按钮,结果为(A)A.显示对话框,提示信息为"帐号正确"B.显示对话框,提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_Click( )Dim I As IntegerIf Text1.Text "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong",则程序运行结果为(A)A.显示对话框,提示"密码帐号正确!"B.显示对话框,提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_Click( )Dim I As IntegerIf Text1.Text "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong",则程序运行结果为(B)A.显示对话框,提示"密码帐号正确!"B.显示对话框,提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_Click( )Dim I As IntegerIf Text1.Text "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123",显示"密码错误"对话框,关于此对话框描述正确的是(A)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:Private Sub Command1_Click( )Dim x!, y!, z!, t!x = Text1y = Text2z = Text3If x y Thent = xx = yy = tEnd IfIf y z Thent = yy = zz = tIf x y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x "," y "," zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8,则标签显示的结果为(C)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段:Private Sub Form_Load( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = ""Result = Num1 * Num2Case 4Op = ""Result = Num1 / Num2End SelectLabel1= Num1 Op Num2 "=" ResultEnd Sub窗体运行后,输入1,则label1的标题显示结果为(A)A.3+2=5B.3-2=1C.32=6D.32=1.5看了“计算机二级vb考试题库及答案”。
xx年计算机二级考试《VB》练习题及答案1、一个栈的初始状态为空。
现将元素1、2、3、4、5、A、B、c、D、E依次入栈,然后再依次出栈,那么元素出栈的顺序是( )。
A.12345ABCDEB.EDCBA54321C.ABCDEl2345D.54321EDCBA2、以下表达中正确的选项是( )。
A.循环队列有队头和队尾两个指针,因此,循环队列是非线性构造B.在循环队列中,只需要队头指针就能反映队列中元素的动态变化情况C.在循环队列中,只需要队尾指针就能反映队列中元素的动态变化情况D.循环队列中元素的个数是由队头指针和队尾指针共同决定3、在长度为凡的有序线性表中进展二分查找,最坏情况下需要比拟的次数是( )。
A.0(n)B.O(n2)C.O(1092n)D.0(nlog2n)4、以下表达中正确的选项是( )。
A.顺序存储构造的存储一定是连续的,链式存储构造的存储空间不一定是连续的B.顺序存储构造只针对线性构造,链式存储构造只针对非线性构造C.顺序存储构造能存储有序表,链式存储构造不能存储有序表D.链式存储构造比顺序存储构造节省存储空间5、数据流图中带有箭头的线段表示的是( )。
A.控制流B.事件驱动C.模块调用D.数据流6、在软件开发中,需求分析阶段可以使用的工具是( )。
A.N—s图B.DFD图C.PAD图D.程序流程图7、在面向对象方法中,不属于“对象”根本特点的是( )。
A.一致性B.分类性C.多态性D.标识唯一性8、一问宿舍可住多个学生,那么实体宿舍和学生之间的联系是( )。
A.一对一B.一对多C.多对一D.多对多9、在数据管理技术开展的三个阶段中,数据共享最好的是( )。
A.人工管理阶段B.文件系统阶段C.数据库系统阶段D.三个阶段相同10.栈和队列的共同特点是( )A.都是先进先出B.都是先进后出C.只允许在端点处插入和删除元素D.没有共同点参考答案: C。
计算机二级vb考试题库和答案1. 单选题:以下哪个选项是中用于声明变量的关键字?A. DimB. PublicC. StaticD. Const答案:A2. 判断题:中,使用“=”符号来比较两个字符串是否相等。
正确错误答案:错误3. 填空题:在中,使用____关键字可以定义一个类。
答案:Class4. 多选题:以下哪些控件是中常用的窗体控件?A. LabelB. TextBoxC. ButtonD. PictureBox答案:A, B, C, D5. 简答题:请简述中事件和委托的区别。
答案:事件是一种特殊的多播委托,它允许对象在发生特定操作时通知其他对象。
委托是一种类型安全的函数指针,用于封装方法的引用,以便可以将方法作为参数传递给其他方法。
事件基于委托,但事件提供了额外的机制来管理订阅和取消订阅事件处理程序。
6. 编程题:编写一个程序,计算并输出1到100之间所有偶数的和。
答案:```vbDim sum As Integer = 0For i As Integer = 1 To 100If i Mod 2 = 0 Thensum += iEnd IfNextConsole.WriteLine("1到100之间所有偶数的和为:" &sum.ToString())```7. 案例分析题:给定以下代码片段,请分析其功能并指出可能存在的问题。
```vbSub CalculateArea(ByVal radius As Double)Dim area As Double = Math.PI * radius * radiusConsole.WriteLine("圆的面积为:" & area.ToString())End Sub```答案:该代码片段定义了一个名为CalculateArea的Sub过程,它接受一个Double类型的参数radius,并计算半径为radius的圆的面积,然后输出结果。
计算机二级VB图形操作练习题及答案计算机二级VB图形操作练习题及答案导语:计算机二级VB图形操作只有多做练习题才会熟练,下面就由店铺为大家带来计算机二级VB图形操作练习题及答案,希望对大家有所帮助!一、单选题1.坐标度量单位可通过 ________来改变。
A)DrawStyle属性B)DrawWidth属性C)Scale方法D)ScaleMode属性2.以下的属性和方法中 ________可重定义坐标系。
A)DrawStyle属性B)DrawWidth属性C)Scale方法D)ScaleMode属性3.当使用Line方法画线后,当前坐标在 ________。
A)(0, 0)B)直线起点C)直线终点D)容器的中心4.执行指令“Circle (1000,1000),500,8,-6,-3”将绘制________。
A)画园B)椭圆C)圆弧D)扇形5.执行指令“Line (1200,1200)-Step(1000,500),B”后,CurrentX= ________。
A)2200B)1200C)1000D)17006.对象的边框类型由属性 ________来决定。
A)DrawStyleB)DrawWidthC)BorderSyleD)ScaleMode7.下列______途径在程序运行时不能将图片填加到窗体、图片框或图象框的Picture属性。
A)使用LoadPicture()方法B)对象间图片的复制C)通过剪贴板复制图片D)使用拖放操作8.设计时填加到图片框或图像框的图片数据保存在 ________。
A)窗体的frm文件B)窗体的frx文件C)图片的原始文件内D)编译后创建的exe文件9.窗体和各种控件都具有图形属性,下列________属性可用于显示处理。
A)DrawStyle、DrawMode B)AutoRedraw、ClipControlsC)FillStyle、FilleColorD)ForeColor、BorderColor10.当窗体的AutoRedraw属性采用默认值时,若在窗体装入时要绘图方法绘制图形,则应用程序放在 ________。
计算机二级考试VB练习题及答案(2)2017计算机二级考试VB练习题及答案(22)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_Click()Dim i As Integer, j As IntegerDim a(10, 10) As IntegerFor i = 1 To 3For j = 1 To 3a(i, j) = (i - 1) * 3 + jPrint a(i, j);Next jPrintNext iEnd Sub程序运行后,单击命令按钮,窗体上显示的是A)1 2 3 B)2 3 4 C)1 4 7 D)1 2 32 4 6345 2 5 8 4 5 63 6 9456 3 6 978 9(23)在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:Option Base 0Private Sub Command1_Click()Dim A(4) As Integer,B(4) As IntegerFor k = 0 To 2A(k + 1) = InputBox("请输入一个整数")B(3 - k) = A(k + 1)Next kPrint B(k)End Sub程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为A)0 B)2 C)3 D)4(24)有以下程序:Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2)For i = 1 To 3For j = 1 To 2arr(i, j) = i * 2 + jNext jNext iReDim Preserve arr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2); arr(3, 4)End Sub程序运行后,单击窗体,输出结果为A)8 13 B)0 13 C)7 12 D)0 0(25)以下叙述中正确的是A)一个Sub过程至少要有一个Exit Sub语句B)一个Sub过程必须有一个End Sub语句C)可以在Sub过程中定义一个Function过程,但不能定义Sub 过程D)调用一个Function过程可以获得多个返回值(26)有以下程序:Sub subP(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5a(2) = 6a(3) = 7a(4) = 8subP a()For i = 1 To 4Print a(i)Next iEnd Sub运行上面的程序,单击命令按钮,输出结果为A) 2 B) 5 C)10 D)出错4 6 126 7 148 8 16(27)设有如下通用过程:Public Function Fun(xStr As String) As StringDim tStr As String, strL As IntegertStr = ""strL = Len(xStr)i = 1Do While i <= strL / 2tStr = tStr & Mid(xStr, i, 1) & Mid(xStr, strL - i + 1, 1)i = i + 1LoopFun = tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。
过程练习题
'-------------------------------------------------
'〖第2题〗:编写函数fun,函数的功能是:求1到100
' 之间的偶数之积
答案: Dim y As Double
y = 1
Dim i As Integer
For i = 1 To m
If i Mod 2 = 0 Then
y = y * i
End If
Next
fun =
'〖第5题〗:编写函数fun,函数的功能是:计算n门 的平均值,计算结果作为函数值返
例如,若有5门课程的成绩是:92,76,69,58,88,则函数的值为76.6。
答案:
Dim i As Integer
Dim y As Single
For i = 1 To n
y = y + a(i)
Next
fun = y / n
〖第8题〗'题目:编写函数fun其功能是:根据整型形参m,计算
' 如下公式的值:y=1/2+1/4+1/6+...+1/2m
' 例如:若m=9,则应输出:1.414484
答案: Dim y As Double
Dim i As Integer
For i = 1 To m
y = y + 1 / (2 * i)
Next
fun =
〖第11题〗-'题目:编写函数fun,函数的功能是:计算并输出给定
' 整数n的所有因子之和(不包括1与自身)。规定
' n的值不大于1000?
' 例如:n的值为855时,应输出704。
答案 Dim s, i As Integer
For i = 2 To n - 1
If n Mod i = 0 Then
s = s + i
End If
Next
Fun = s
〖第25题〗'题目:编写函数fun其功能是:根据整型形参m,
'计算 y=1+1/3+1/5+1/7+...+1/(2m+1)
例如:若m=9,则应输出:2.133256
'答案;Dim y As Double
Dim i As Integer
y = 1
For i = 1 To m
y = y + 1 / (2 * i + 1)
Next
fun = y
〖第29题〗题目:编写函数fun其功能是:能计算从1开始到n的
' 自然数中偶数的平方的和,n由键盘输入,
' (n是偶数)
'答案:Dim sum As Integer, i As Integer
sum = 0
For i = 2 To n Step 2
sum = sum + i * i
Next
fun = sum
〖第30题〗题目:编写函数fun其功能是:根据整型形参m,
' 计算如下公式的值:y=1/2!+1/4!+...+1/m!
' (m是偶数)
'答 Dim y As Double, t As Double
t = 1
Dim i As Integer
For i = 2 To m Step 2
t = t * 1# / i
y = y + t
Next i
fun = y
〖第38题〗:编写函数fun其功能是:判断一个整数w的各位
' 数字平方之和能否被5整除 , 可以被5整除则返
' 回1 , 否则返回0
'答案Dim k As Integer, s As Integer
Do
s = s + (w Mod 10) * (w Mod 10)
w = Int(w / 10)
Loop While w <> 0
If s Mod 5 = 0 Then
k = 1
Else
k = 0
End If
fun = k
〖第45题〗:编写函数fun其功能是:根据整型形参m,
' 计算如下公式的值:
' y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)
' 例如:若m=9,则应输出:1.168229
'Dim y As Double
Dim i As Integer
For i = 0 To m
y = y + 1 / (i + 5)
Next
Fun = y
〖第46题〗:编写函数fun,函数的功能是:求一个
' 四位数的各位数字的立方和
Dim d As Integer, k As Integer, s As Integer
While n > 0
d = n Mod 10
s = s + d * d * d
n = n / 10
Wend
fun = s
----------------------