|
|
|
|
|
 |
0 |
|
| View Articles |
|
 |
Name |
| 전진이 |
(2003-04-24 01:01:46, Hit : 8237, Vote : 1938)
|
|
|
| Subject |
제가 해봤는데요...잘 안돼네요... |
|
|
최대값과 최소값이 출력되지를 않아요
뭐가 잘못된건지...
Dim a(10), b, i, max, min As Integer
Private Sub Command1_Click()
If Text1.Text < 10 Or Text1.Text > 99 Then
MsgBox ("입력오류")
Text1.Text = " "
Text1.SetFocus
Exit Sub
End If
If Text1.Text = 999 Then
MsgBox ("GOOD BYE")
Exit Sub
End If
i = 0
a(i) = Val(Text1.Text)
i = i + 1
Text1.Text = " "
Text1.SetFocus
End Sub
Private Sub Command2_Click()
max = -99
For i = 0 To 9
If max < a(i) Then
max = a(i)
End If
Next
min = 99
For i = 0 To 9
If min > a(i) Then
min = a(i)
End If
Next
Label3.Caption = max
Label4.Caption = min
Text1.SetFocus
End Sub
|
손병목 |
죄송합니다. 시간이 없어 답변이 늦었네요.
급하게 수정해봤습니다. 참조하세요.
Dim a(10), i As Integer
Private Sub Command1_Click()
If Val(Text1.Text) = 999 Then
MsgBox ("GOOD BYE")
Exit Sub
End If
If Val(Text1.Text) < 10 Or Val(Text1.Text) > 99 Then
MsgBox ("입력오류")
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
If i > 9 Then
MsgBox ("입력 개수 초과")
Exit Sub
End If
a(i) = Val(Text1.Text)
i = i + 1
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Command2_Click()
If i < 9 Then
MsgBox ("입력 개수가 10개가 되지 않습니다. 처음부터 다시 입력하세요")
i = 0
Else
max = 0
For i = 0 To 9
If max < a(i) Then
max = a(i)
End If
Next
min = 100
For i = 0 To 9
If min > a(i) Then
min = a(i)
End If
Next
Label3.Caption = max
Label4.Caption = min
End If
Text1.SetFocus
For i = 0 To 9
a(i) = Null
Next
i = 0
End Sub |
|
|
손병목 |
1. 두자리수를 체크라흔 것보다 999를 가리는 조건이 먼저 나와야 합니다.
2. 10개를 모두 입력하지 않으면, 입력하지 않은 배열에 쓰레기값이 있어 최소값이 나타나지 않습니다. 이를 바로잡기 위해 10개를 모두 입력하도록 합니다.
10개를 넘게 입력하면 메시지 띄우고, 10개보다 적게 입력하고 Command2를 눌렀을 때도 메시지를 띄웁니다.
3. 마지막에 데이터를 초기화합니다. |
|
|
|
|
|
|
|
|
|
