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

[µo°Ý] µL¥æ¶°¼Æ­Èªº¤u§@ªí

¦^´_ 1# papaya


    §Aªº±Ô­z¦³ÂI¼Ò½k
¤j­P¤W¥ý°Q½×¤@¤U
¦pªG§Ú¨S²q¿ù ¹ê»Ú¤W¬O
if Number = "1-49"  then ¼g¿ù ©Ò¥H¥Ã»·³o¦æ¤£·|°õ¦æ
³o¦æªº·N«ä¬O
¦pªGNumber ªº¤å¦r ¨Ã«D   ("1-49"  ³o­Ó4­Ó¦r¤¸¦r¦ê)  ªº±¡ªp¤U ´N¬Ofalse
¨º»ò®Ú¾Ú¥Ø«eªºª¬ªp¨Ó»¡
ªí¤¤¨Ã¨S¦³"1-49"ªº°ê¤å¦r¦ê

¥¿½T¼gªkÀ³¸Ó­n§ï¦¨
if --Number >= 1 and --Number <= 49 then
³o¼Ë¤~¬O§PÂ_ ·í«e¼Æ¦r¬O§_¤¶©ó1~49ªº¼Æ¦r


    if --Number >= 1 and --Number <= 49 then
        ReDim Preserve INnum(48)
        For i = 0 To 48
            INnum(i) = i + 1
        Next
    ElseIf Number = 0 Then
        ReDim Preserve INnum(6)
        ReNumber = 1
    ElseIf Number = "" Then
        ReDim Preserve INnum(0)
        ReNumber = 0
    End If

TOP

¦^´_ 4# papaya


    ©êºp ¤£¬O«Ü²M·¡§A­nªº»Ý¨D
§Ú¥ýÀH«K°µ¬Ý¬Ý

ªþ¥ó.zip (15.47 KB)

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD