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

高中信息技术经典操作题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 算法 程序题汇总目录 1、输入 5 个数并排序(选择排序) 2、判读输入的三...2012年江苏高中信息技术... 37页 1下载券 高中学业水平考试操作题... 暂无...
2012年江苏高中信息技术学业水平测试vb操作题带答案
2012年江苏高中信息技术学业水平测试vb操作题带答案 - 祝您考试成功! Vb专项练习第一套题目 1、打开“考生文件夹\96\工程1.vbp”,完善程序并保存。 实现功能:...
高中信息技术会考(VB部分)
计算机程序的三种结构是顺序结构、 A 高中信息技术会考 VB 复习题一、单选题 B...(1)程序的基本结构包括顺序结构、分支结构和循环结构,本程序主要使用的是 __...
2013江苏省信息技术学业水平测试vb操作题带答案
2013江苏省信息技术学业水平测试vb操作题带答案 - 祝您考试成功! 2013江苏省信息技术学业水平测试vb操作题带答案 Vb专项练习第一套 1、打开“考生文件夹\716”...
高中信息技术VB试题及答案
高中信息技术VB试题及答案_其它课程_高中教育_教育专区。VB 1.下面选项内不属于...使用编程来处理的是( 38.以下哪个是算法的描述方法( 17.在VB程序中有以下程序...
信息会考VB操作题
信息会考VB操作题_其它课程_高中教育_教育专区。信息会考 VB 操作题 A类需界面设计 A01、制作一个减法器,在文本框中输入两个数值后,单击“计算”按钮可以计算出...
VB上机操作题综合
VB上机操作题综合_IT认证_资格考试/认证_教育专区。VB 程序设计—《暴风影音》...不能使用,如果单击“采购清单”按钮,则在下面的 标签中显示用户所选择的信息。...
vb操作题考过的
vb操作题考过的_其它课程_高中教育_教育专区。江苏省信息技术学业水平测试VB...完成后按“Ctrl+W”保存程序。 (详见样张) '运行程序能够显示数字金字塔,请...
vb十道操作题代码放送
20道VB操作题(含代码和图... 15页 1下载券 高中信息技术经典操作题... 2...vb 十道操作题代码放送 一: Private Sub Command1_Click() Text1.Text = "...
信息技术会考操作题大全
信息技术会考操作题大全 - 信息技术高中会考操作题WORD、 EXCEL、VB、PS等并有傻瓜操作指南
更多相关标签: