ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ð¤â°Ê¿é¤Jªº3ºû°}¦C,¦p¦ó±N¼Æ­È±Æ¦C?

[µo°Ý] ½Ð±Ð¤â°Ê¿é¤Jªº3ºû°}¦C,¦p¦ó±N¼Æ­È±Æ¦C?

§Ú¹ï°}¦C¼gªk¨SÔ£·§©À.
¦pªG­n¥HVBAªí¹F(«D¼g¶iÀx¦s®æ¤è¦¡),
1.¥Ñ¤j¨ì¤p±Æ¦C3­Ó¾Ç¥Íªº²Ä2­Ó¾Ç´Áªº²Ä2¬ì¥Ø¦¨ÁZ,½Ð±Ð¸Ó¤Þ¥Î­þºØ¨ç¼Æ?
2.Score(2, 1, 1)¯à¤£¯àª½±µ¥ÑScore(1, 1, 1)¼g¤J¨ìScore(3, 1, 1)?  ¦ÓScore(0, 0, 0)ª½±µ¸õ¹L.

·PÁ¦U¦ì


Sub test()        
  Dim Score(2, 1, 1)  As Byte
  
  Score(0, 0, 0) = InputBox("½Ð¿é¤J²Ä1¦ì¾Ç¥Í²Ä1­Ó¾Ç´Áªº²Ä1¬ì¥Ø¦¨ÁZ¡G")
  Score(0, 0, 1) = InputBox("½Ð¿é¤J²Ä1¦ì¾Ç¥Í²Ä1­Ó¾Ç´Áªº²Ä2¬ì¥Ø¦¨ÁZ¡G")
  Score(0, 1, 0) = InputBox("½Ð¿é¤J²Ä1¦ì¾Ç¥Í²Ä2­Ó¾Ç´Áªº²Ä1¬ì¥Ø¦¨ÁZ¡G")
  Score(0, 1, 1) = InputBox("½Ð¿é¤J²Ä1¦ì¾Ç¥Í²Ä2­Ó¾Ç´Áªº²Ä2¬ì¥Ø¦¨ÁZ¡G")
  
  Score(1, 0, 0) = InputBox("½Ð¿é¤J²Ä2¦ì¾Ç¥Í²Ä1­Ó¾Ç´Áªº²Ä1¬ì¥Ø¦¨ÁZ¡G")
  Score(1, 0, 1) = InputBox("½Ð¿é¤J²Ä2¦ì¾Ç¥Í²Ä1­Ó¾Ç´Áªº²Ä2¬ì¥Ø¦¨ÁZ¡G")
  Score(1, 1, 0) = InputBox("½Ð¿é¤J²Ä2¦ì¾Ç¥Í²Ä2­Ó¾Ç´Áªº²Ä1¬ì¥Ø¦¨ÁZ¡G")
  Score(1, 1, 1) = InputBox("½Ð¿é¤J²Ä2¦ì¾Ç¥Í²Ä2­Ó¾Ç´Áªº²Ä2¬ì¥Ø¦¨ÁZ¡G")
  
  Score(2, 0, 0) = InputBox("½Ð¿é¤J²Ä3¦ì¾Ç¥Í²Ä1­Ó¾Ç´Áªº²Ä1¬ì¥Ø¦¨ÁZ¡G")
  Score(2, 0, 1) = InputBox("½Ð¿é¤J²Ä3¦ì¾Ç¥Í²Ä1­Ó¾Ç´Áªº²Ä2¬ì¥Ø¦¨ÁZ¡G")
  Score(2, 1, 0) = InputBox("½Ð¿é¤J²Ä3¦ì¾Ç¥Í²Ä2­Ó¾Ç´Áªº²Ä1¬ì¥Ø¦¨ÁZ¡G")
  Score(2, 1, 1) = InputBox("½Ð¿é¤J²Ä3¦ì¾Ç¥Í²Ä2­Ó¾Ç´Áªº²Ä2¬ì¥Ø¦¨ÁZ¡G")
  

  MsgBox Score(0, 1, 1) & "," & Score(1, 1, 1) & "," & Score(2, 1, 1)

End Sub

¦^´_ 1# newsoft

°Ñ¦Ò¬Ý¬Ý
  1. Sub ex()
  2. Dim Score(1 To 3, 1 To 2, 1 To 2) As Byte '¾Ç¸¹¡A¾Ç´Á¡A¬ì¥Ø
  3. For i = 1 To 3 '¾Ç¸¹
  4.     For j = 1 To 2 '¾Ç´Á
  5.        For k = 1 To 2 '¬ì¥Ø
  6.           Score(i, j, k) = InputBox("½Ð¿é¤J²Ä" & i & "¦ì¾Ç¥Í²Ä" & j & "­Ó¾Ç´Áªº²Ä" & k & "¬ì¥Ø¦¨ÁZ¡G", , i * 10 + j * 2 + k)
  7.        Next
  8.     Next
  9. Next
  10. s = InputBox("¿é¤J²Ä´X¾Ç´Á", , 2)
  11. For i = 1 To 3
  12.    For j = 1 To 2
  13.       MsgBox "²Ä" & i & "¦ì¾Ç¥Í²Ä" & s & "¾Ç´Á²Ä" & j & "¬ìªº¦¨ÁZ:" & Score(i, s, j)
  14.    Next
  15. Next

  16. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
·PÁÂH¤j¦^ÂÐ...
§Ú¦b¬ã¨s¬Ý¬Ý

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD