当前位置:首页 >> 其它课程 >>

高中信息技术经典操作题VB代码


操作题部分 VB 代码

注意:只能在 function func() 和 end function 之间输入代 码。其他部分一律不许改动或删除. 函数的返回值必须用函数名来返回,即代码中需要出现 “func=***”的语句。
************************** ********************************* 1、输入一个整数,输出各位数字之和。如:123,输出 6 Function func(n) Dim i As Integer Dim m As Integer m = Len(Str(n)) func = 0 For i = 1 To m func = func + Val(Mid(Str(n), i, 1)) Next i End Function 说明:str()将数字转换为字符串,len()求字符串的长度 Mid(字串,起始位置,数量) 从字串的指定位置截取指定长度的字串 Val( ) 将字串转换为相应的数字 ************************** ********************************* 2、输入五位同学的身高,输出最高的数据 Function func(a, b, c, d, e) func = a If func < b Then func = b If func < c Then func = c If func < d Then func = d If func < e Then func = e End Function ************************** ********************************* 3、求 2+4+……+100 的和 Function func() Dim I as integer Func=0 For I = 2 to 100 step 2 Func=func+i Next i End function

************************** ******************************** 4、统计 100-999 之间水仙花数的个数(水仙花数:如:13+53+33=153) Function func() Dim abc as integer, a as integer , b as integer , c as integer Func=0 For abc=100 to 999 a=abc\100 b=(abc-a*100)\10 c= abc mod 10 if a^3+b^3+c^3=abc then func=func+1 next abc end function 说明:abc 为三位数, a 是百位数,b 是十位数,c 是个位数 ************************** ******************************** 5、某火车站运费标准如下:运输距离小于 500 公里,按照运费标准收费,运输 距离大于等于 500 公里小于 1000 公里,按照运费标准给予 0.05 的折扣,运输距 离大于等于 1000 公里小于 3000 公里,按照运费标准给予 0.1 的折扣,运输距离 大于等于 3000 公里,按照求运费标准给予 0.15 的折扣。假设每吨货物的运费为 0.225 元,现有 15 吨货物,编程求所需运费。 Function func(n) If n< 500 then func=15*0.225 If n>= 500 and n<1000 then func=15*0.225*0.95 If n>= 1000 and n<3000 then func=15*0.225*0.9 If n>= 3000 then func=15*0.225*0.85 end function ************************** 6、求 1+2+3+……+n 的和 Function func(n) Func=0 For i=1 to n Func=func+i Next i End function ************************** ******************************** 7、求 1*2*3*……*n 的积 Function func(n) Func=1 For i=1 to n Func=func* i Next i End function ********************************


相关文章:
高中信息技术VB试题及答案
高中信息技术VB试题及答案_其它课程_高中教育_教育专区。VB 1.下面选项内不属于...使用编程来处理的是( 38.以下哪个是算法的描述方法( 17.在VB程序中有以下程序...
高中信息技术会考(VB部分)
计算机程序的三种结构是顺序结构、 A 高中信息技术会考 VB 复习题一、单选题 B...(1)程序的基本结构包括顺序结构、分支结构和循环结构,本程序主要使用的是 __...
2012年江苏高中信息技术学业水平测试vb操作题带答案
2012年江苏高中信息技术学业水平测试vb操作题带答案_其它课程_高中教育_教育专区。...Vb专项练习第一套题目 1、打开“考生文件夹\96\工程1.vbp”,完善程序并保存...
高中信息技术习题vb部分
关键词:高中信息技术vb习题 相关文档推荐 暂无相关推荐文档如要投诉违规内容,请到...+ 1/100 的程序,请填空补充完善程序。 说明:使用三个控件, ①LABEL 控件用于...
高一信息技术会考vb操作题归纳
高一信息技术会考vb操作题归纳_其它课程_高中教育_教育专区。信息技术,会考,高一 要求掌握的典型操作题 1、输入两个数存在相应的变量中,并交换两个变量的值。 、...
高中信息技术_算法与程序设计题库(含答案)
高中信息技术_算法与程序设计题库(含答案)_其它课程_高中教育_教育专区。算法与...打开“考生目录 VB\134”文件夹中的文件: “k4.vbp” 进行以下操作后并保 ...
高中信息技术选考VB专题练习(一轮复习)
高中信息技术选考VB专题练习(一轮复习)_其它课程_高中教育_教育专区。知识点...题 5-1 图 题 5-2 图 (1)在设计应用程序界面时,应使用图 2 所示“控件...
高中信息技术学业水平考试专题复习——VB程序典型错误...
高中信息技术学业水平考试专题复习——VB程序典型错误分析_其它课程_高中教育_教育...本题错在 y = Abc(x),其中 Abc(x)不是内置函数,如使用需要 预先定义好。...
高中信息技术算法与程序设计VB知识点
高中信息技术《算法与程序设计 VB(选修) 》 知识要点相关知识点 (一)算法 1.定义 相关题解: 1 算法:就是解决问题的方法和步骤。算法是程序设计的“灵魂” ,...
高中信息技术《算法与程序设计VB(选修)》
高中信息技术《算法与程序设计VB(选修)》_其它课程_...的操作,这些操作一般是一个动作或一段程序 对象的...分析:本题考查对对象的认识,理解对象的属性、方法...
更多相关标签: