用vb编写程序，求10个数中的次最大数，10个数的值通过键盘输入。急用！！！谢谢！！！

如题所述

举报该文章

相关建议 2014-12-22

Private Sub Command1_Click()

Dim a(10) As Double, m1 As Double, m2 As Double

m1 = -999999: m2 = -999999

For i = 1 To 10

a(i) = Val(InputBox("请输入第 " & i & " 个数："))

If a(i) > m1 Then

m2 = m1: m1 = a(i)

Else

If a(i) > m2 Then m2 = a(i)

End If

Next i

Print "输入的10个数是："

For i = 1 To 10

Print a(i);

Next i

Print "第二大的数是："; m2

End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fvqsm7p8fvvvsmq2sv4.html

其他看法

第1个回答 2014-12-22

用inputbox装入数组，然后排序，取出正数第二个（降序）或倒数第二个（升序）。追问

请问你能帮忙打出代码吗？！

追答

追问

谢谢了~不用代码了~谢谢~

本回答被提问者采纳

第2个回答 2014-12-22

Private Sub Command1_Click()
   Dim a(1 To 10) As Double, b(1 To 10) As Double, c As Double
   For i = 1 To 10
      a(i) = Val(InputBox("请输入第" & i & "个数！"))
      Print a(i);
      b(i) = a(i)
   Next i
   Print
   For i = 1 To 9
      For j = i + 1 To 10
         If b(i) < b(j) Then c = b(i): b(i) = b(j): b(j) = c
      Next j
   Next i
   Print "次最大值为：" & b(2)
End Sub

相似回答

大家正在搜