多个变量取最大的变量代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】多个变量取最大的变量

作者:Chinxn / 发布于2013/8/5/ 959


	设 abcde 为五个数字变量

	Dim a() As Integer = {a, b, c, d, e, 0, 0, 0, 0}
	 For index As Integer = 0 To 4
	 If a(index) >= (a(0) + a(1) + a(2) + a(3) + a(4)) / 5 Then
	 a(5) = a(index) + a(5)
	 a(6) = a(6) + 1
	 End If
	 Next
	 For index As Integer = 0 To a(6)
	 If a(index) >= a(5) / a(6) Then
	 a(7) = a(index) + a(7)
	 a(8) = a(8) + 1
	 End If
	 Next
	 For index As Integer = 0 To a(8)
	 If a(index) >= a(7) / a(8) Then
	 Select Case index
	 Case 0
	 msgbox("最大变量是a")
	 Case 1
	 msgbox("最大变量是b")
	 Case 2
	 msgbox("最大变量是c")
	 Case 3
	 msgbox("最大变量是d")
	 Case 4
	 msgbox("最大变量是e")
	 End Select
	 End If
	 Next

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　最大的变量　

同语言下

可能有用的

Chinxn贡献的其它代码(1)

.多个变量取最大的变量