vb编写一个函数过程，用于求任意一维数组的所有元素的平均值（使用数组参数）。在“生成随机数”按钮的
click事件过程中生成20个【0,100】区间的随机整数，显示在第一个文本框中，在“求平均值”按钮的click时间过程中调用函数过程求这些随机整数的平均值，显示在第二个文本框中。
'窗体放两个文本框，两个按钮
Dim i%, p#, S%, sjs%(20)
Private Sub Command1_Click()
Randomize
Text1 = ""
For i = 1 To 20
sjs(i) = Int(Rnd * 101)
Text1 = Trim(Text1 & " " & sjs(i))
Next
End Sub
Private Sub Command2_Click()
Text2 = PJZ(sjs)
End Sub
Function PJZ(Ar%()) As Double
Dim p%
For i = 1 To UBound(Ar)
p = p + Ar(i)
Next
PJZ = p / UBound(Ar)
End Function追问
我知道了 “”之间少了个空格
vb编写通用Sub过程,计算一维数组所有元素的平均值
For i = 1 To UBound(b)s = s + b(i)c = c + 1 Next i Print s \/ c End Sub Private Sub Command1_Click()Dim a(5) As Integer For i = 1 To 5 a(i) = Val(InputBox("input data:"))Next i Call avg(a)End Sub ...
vb 编制一个求平均值的函数,对任意一组数求其平均值
MsgBox "平均数为:" & a \/ i End Function
用vb.net编写一个函数,求任意整数数组的最大元素
private function maxnum(byval a() as integer) as integer dim i as integer maxnum=a(0)for i = 1 to ubound(a)if a(i)>maxnum then maxnum=a(i)next end function
vb 6.0 求已知数组a的所有元素的平均值存入变量aver 数组是10,20,34...
Dim aver As Single d = Array(10, 20, 34, 54, 26, 89, 12, 34) '将数据存入数组 s = 0 For i = 0 To 7 s = s + d(i) '将数组元素的值累加起来 Next i aver = s \/ 8 '求平均值 Print aver End Sub
用vb程序.求一个4×4的整型矩阵的所有元素的平均值。
假设那个 4x4矩阵是一个 2维数组。。名为 矩阵[4][4]以下是伪代码：int 总和=0;for（int 横=0； 横<=3;横++）{ for（int 纵=0；纵<=3;纵++）{ 总和+=矩阵[横][纵]} } 平均数=总和\/16
vb给一个数组求平均数,并把高于平均数的值输出
如果你想在VB中求一个数组的平均数，可以使用以下代码：Dim arr() As Integer = {1, 2, 3, 4, 5}Dim sum As Integer = 0For Each num As Integer In arrsum += numNextDim avg As Double = sum \/ arr.Length 这将计算数组 {1, 2, 3, 4, 5} 的平均数，并将结果存储在变量 av...
...放入数组,要求找出离这批数的平均值最近的数在数组中的位置,用函...
"差值";For i = 0 To 9 If t > Abs(a(i) - a_avg) Then t = Abs(a(i) - a_avg): n = i + 1 Print Round(Abs(a(i) - a_avg), 2);Next Print: Print "平均值:"; a_avg; ",最近的是第"; n; "个数:"; a(n - 1); "他们的差值为:"; t End Sub ...
这公式在vb中怎么编写?
在VB中编写计算公式时，首先确保需要计算的数据已存储在x()数组中。以下步骤详细解释了如何实现这一过程：定义两个变量：平均值aveX和总和sum。计算总和sum，方法是通过循环从数组x()中的第一个元素遍历到第n个元素，将每个元素值累加到sum中。接着，计算平均值aveX，通过将总和sum除以数组元素的数量n...
VB.net 如何编写一个可以返回数组的函数(过程)?
public function createstringarr() as string()return new string(){"d1","d2","d3","d4"} end function
VB编程:用Array()函数建立一个含有8个元素的数组,然后查找并输出该数...
Private Sub Command1_Click()Dim a()a = Array(8, 11, 74, 22, 9, 56, 71, 35)Max = a(0)For i = 1 To 7If Max < a(i) Then Max = a(i)NextMsgBox "最大值=" & MaxEnd Sub
