0
 829   42   8
  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
 2003/04/25 13:17:03    

¼Õº´¸ñ
1. µÎÀÚ¸®¼ö¸¦ üũ¶óÈç °Íº¸´Ù 999¸¦ °¡¸®´Â Á¶°ÇÀÌ ¸ÕÀú ³ª¿Í¾ß ÇÕ´Ï´Ù.
2. 10°³¸¦ ¸ðµÎ ÀÔ·ÂÇÏÁö ¾ÊÀ¸¸é, ÀÔ·ÂÇÏÁö ¾ÊÀº ¹è¿­¿¡ ¾²·¹±â°ªÀÌ ÀÖ¾î ÃÖ¼Ò°ªÀÌ ³ªÅ¸³ªÁö ¾Ê½À´Ï´Ù. À̸¦ ¹Ù·ÎÀâ±â À§ÇØ 10°³¸¦ ¸ðµÎ ÀÔ·ÂÇϵµ·Ï ÇÕ´Ï´Ù.
10°³¸¦ ³Ñ°Ô ÀÔ·ÂÇÏ¸é ¸Þ½ÃÁö ¶ç¿ì°í, 10°³º¸´Ù Àû°Ô ÀÔ·ÂÇϰí Command2¸¦ ´­·¶À» ¶§µµ ¸Þ½ÃÁö¸¦ ¶ç¿ó´Ï´Ù.
3. ¸¶Áö¸·¿¡ µ¥ÀÌÅ͸¦ ÃʱâÈ­ÇÕ´Ï´Ù.
 2003/04/25 13:19:46    


no
subject
name
date
hit
*
689
  command ÇÔ¼ö¿¡ ´ëÇØ¼­ [1]

Á¤À±Áø
2003/09/04 9277 1882
688
  ÄÞº¸¹Ú½º¿Í ¸®½ºÆ®¹Úµå°ü·Ã Áú¹®ÀÔ´Ï´Ù [1]

Á¤¿ìÁ¶
2004/05/12 9370 2041
687
  PM(Project Master)ÀÌ°Ô ¸ÓÁÒ?... [2]

Á¤¿µÃ¶
2003/12/05 8935 1961
686
  DJ º¸µå¿¡ °üÇØ¼­ Áú¹®ÀÓ´Ù... [2]

Á¤¿µÃ¶
2003/12/05 8431 1875
685
  ÇÁ·Î±×·¥¼öÁ¤À»À§ÇÑ ¼Ò½ºº¸±â [1]

Á¤¿µÀÏ
2006/04/28 9482 2190
684
  ±×·¸´Ù¸éÀº ... JSP Ã¥À» ÃßÃµÇØÁÖ¼Å... [2]

Á¤½Â¹Î
2006/04/08 8814 2016
683
  JSP °­ÁÂ °í°í°í [1]

Á¤½Â¹Î
2006/04/07 9175 1998
682
  ¹öưÀ» ´­·¶À»¶§ ÀÚ¹Ù½ºÅ©¸³Æ®¸¦ ºÒ·¯¿À... [2]

Á¤¼öÁø
2004/08/13 9287 2068
681
    [re] Áú¹®]¿À¶óŬ¿¡¼­ db »èÁ¦¿¡ °üÇØ¼­ Áú...

Á¤¼ö¶ó
2003/07/04 7531 1689
680
  php°Ô½ÃÆÇ°­Á¾ðÁ¦ ÇϽóª¿ä ¤Ð [2]

Á¤¹Ì°­
2003/06/30 8046 1931
679
  Áú¹®ÀÌ ÀÖ½À´Ï´Ù. [4]

Á¤µµÃ¶
2006/04/05 10502 2218
678
  ¾È³çÇϼ¼¿ä. [2]

Á¤µµÃ¶
2006/03/28 9395 2025
677
  Áú¹®¿ä... [2]

Á¤µµÃ¶
2006/04/01 9186 2066
676
  °¨»çÇÕ´Ï´Ù.

Á¤±ÔÁø
2009/05/26 11898 2345

  Á¦°¡ ÇØºÃ´Âµ¥¿ä...Àß ¾ÈµÅ³×¿ä... [2]

ÀüÁøÀÌ
2003/04/24 8237 1938
674
  À̹®Á¦´Â ºñÁÖ¾óº£ÀÌÁ÷À¸·Î ¾î¶»°Ô Â¥¾ß ... [1]

ÀüÁøÀÌ
2003/04/17 8786 1883
673
  ÄÄȰ1±Þ½Ç±â¶§¹®¿¡.. [1]

ÀçÇü
2004/09/15 9342 2065
672
  VB ½ÇÇà¿¡ ¿À·ù³ª¼­ µµ¿ò¸» ´­·¯º¸´Ï..

ÀåÇý°æ
2002/09/21 8552 1977
671
  Á¦·Îº¸µå¿¡ °üÇÏ¿© ¹®ÀǸ¦ µå·Áµµ µÇ³ª¿ä... [3]

ÀåöÁø
2005/10/12 10310 2477
670
  PHP¸¦ °øºÎÇϰí Àִµ¥¿ä... Ãʺ¸¶ó¼­... [1]

ÀåÁØ¿ø
2003/02/22 9469 2086
[1][2][3][4][5][6][7] 8 [9][10]..[42] [next]

Copyright 1999-2025 Zeroboard / skin by Zetyx