作业帮 > 综合 > 作业

用VB编写程序完成以下功能:随机生成10个两位整数(必须使用数组),从中去掉一个最大数和一个最小数,然后求其平均数,并在

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/09 19:08:37
用VB编写程序完成以下功能:随机生成10个两位整数(必须使用数组),从中去掉一个最大数和一个最小数,然后求其平均数,并在窗体上输出.(vb学得不好,)
楼主看看这个:

Private Sub Command1_Click()
   Dim aNum(9) As Long, V As Long
   Dim nMax As Long, nMin As Long
   Dim vAvg As Double, i As Long
   
   Randomize
   nMax = 0: nMin = 100    '初始化设置
   For i = 0 To 9          '产生10个数据
      V = 10 + 89 * Rnd()  '10到99
      aNum(i) = V
      If (V > nMax) Then nMax = V
      If (V < nMin) Then nMin = V
   Next
   '输出到窗口,同时求数据之和
   Me.Cls: V = 0
   Print "这10个数是:"
   For i = 0 To 9
      Print aNum(i);
      V = V + aNum(i)
   Next
   Print vbLf & "最大数是:" & nMax
   Print "最小数是:" & nMin
   V = V - nMax - nMin     '去掉最大、最小值
   ' 如果要按10个数算平均值,把下面改为 V/10
   Print "平均值为:"; V / 8
End Sub
再问: лл��