5

これは3で最大値を見つけるためのコードですが、5で最大値を見つけるためのコードが必要です。

Dim a, b, c As Integer

a = InputBox("enter 1st no.") 
b = InputBox("enter 2nd no.") 
c = InputBox("enter 3rd no.")

If a > b Then 
    If a > c Then 
        MsgBox("A is Greater") 
    Else 
        MsgBox("C is greater") 
    End If 
Else 
    If b > c Then 
        MsgBox("B is Greater") 
    Else 
        MsgBox("C is Greater")
    End If 
End If
4

3 に答える 3

17

値を配列に入れて、次のMax関数IEnumerableを使用します。

'Requires Linq for Max() function extension
Imports System.Linq
'This is needed for List
Imports System.Collections.Generic

' Create a list of Long values. 
Dim longs As New List(Of Long)(New Long() _
                                   {4294967296L, 466855135L, 81125L})

' Get the maximum value in the list. 
Dim max As Long = longs.Max()

' Display the result.
MsgBox("The largest number is " & max)

' This code produces the following output: 
' 
' The largest number is 4294967296
于 2013-03-26T18:33:49.710 に答える
4

デビッドが提案したように、あなたの価値観をリストに残してください。これは、個々の変数を使用するよりも簡単で、要求された数の値（最大数百万の値）に拡張できます。

何らかの理由で個々の変数を保持する必要がある場合は、次のようにします。

Dim max As Integer = a
Dim name As String = "A"
If b > max Then
    max = b
    name = "B"
End If
If c > max Then
    max = c
    name = "C"
End If
If d > max Then
    max = d
    name = "D"
End If
' ...  extend to as many variables as you need.
MsgBox(name & " is greater")
于 2013-03-26T19:50:13.887 に答える
2

あなたのためのシンプルなソリューション、

Dim xMaxNo As Integer
Dim xTemp As Integer

For i as integer = 1 To 5
   xTemp =  InputBox("enter No: " & i)
   xMaxNo = if(xTemp > xMaxNo, xTemp, xMaxNo)
Next

MsgBox("The Highest Number is " & xMaxNo)
于 2013-03-26T19:41:59.960 に答える