(完整word版)高中信息技术经典操作题VB代码.docVIP

操作题部分  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