vb计算函数平均数

private

sub

command1_click()

dim

a(10)

as

integer,i,avg

as

integer

for

i=1

to

10

a(i)

=

val(inputbox("请输入第"

&

i

&

"个数"))

if

a(i)>0

then

avg=avg+a(i)

next

print

"平均值=";

avg/10

end

sub

Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和换行符都从参数中被去掉。

下面的返回值为 1615198：

Val(" 1615 198th Street NE")

在下面的代码中，Val 为所示的十六进制数值返回十进制数值 -1。

Val("&HFFFF")

注意 Val 函数只会将句点（）当成一个可用的小数点分隔符。当使用不同的小数点分隔符时，如在国际版应用程序中，代之以 CDbl 来把字符串转换为数字。

'=====================================

Val 函数示例

本示例使用 Val 函数返回字符串中所含的数值。

Dim MyValue

MyValue = Val("2457") ' 返回 2457。

MyValue = Val(" 2 45 7") ' 返回 2457。

MyValue = Val("24 and 57") ' 返回 24。

参考资料：

VBasic菜鸟：

最简单的就是直接转换，就是把字符串变量赋值给数值变量。

数值变量=字符串

如果必须转换，就使用

Val

函数赋值，会把字符串转换成双精度数。

比如：数值变量=Val(字符串)

例：

n

=

Val("35")

'

变量n赋值为35

或者使用取整函数，也可以转换。

比如：数值变量=Int(字符串)

或者

数值变量=CInt(字符串)

例：

n

=

Int("35")

'

取整数，变量n赋值为3

n

=

CInt("35")

'

四舍五入取整数，变量n赋值为4

VB中有专门用来四舍五入的函数

Round 函数：返回按指定位数进行四舍五入的数值。

语法：Round(expression[, numdecimalplaces])

参数：expression（必选项）－被四舍五入的数值表达式 ；numdecimalplaces（可选项）－数字表明小数点右边有多少位进行四舍五入，如果省略则 Round 函数返回整数。

下面的示例利用 Round 函数将数值四舍五入到两位小数:

Dim MyVar, pi

pi = 314159

MyVar = Round(pi, 2) 'MyVar contains 314。