- ©«¤l
- 406
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 453
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2015-2-7
- ³Ì«áµn¿ý
- 2021-7-31
|
¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-6-17 02:06 ½s¿è
¦^´_ 1# °a¤ªºµ
»Ý¨D¡G
½Ð°Ý«e½úÌ ¥H¤U³o¬q¸Ó¦p¦ó§ï¼g ¤~¯à°÷§ï¦¨°ÊºAªº³W«ß ¦p¦ó¥i¥HÁY´îµ{¦¡½X
If TextBox2.Value = 1 Then A = Array(3, 5, 7, 15, 17, 19)
If TextBox2.Value = 2 Then A = Array(5, 7, 9, 17, 19, 21)
If TextBox2.Value = 3 Then A = Array(7, 9, 11, 19, 21, 23)
If TextBox2.Value = 4 Then A = Array(9, 11, 13, 21, 23, 25)
If TextBox2.Value = 5 Then A = Array(11, 13, 15, 23, 25)
If TextBox2.Value = 6 Then A = Array(13, 15, 17, 25)
If TextBox2.Value = 7 Then A = Array(15, 17, 19)
If TextBox2.Value = 8 Then A = Array(17, 19, 21)
If TextBox2.Value = 9 Then A = Array(19, 21, 23)
If TextBox2.Value = 10 Then A = Array(21, 23, 25)
If TextBox2.Value = 11 Then A = Array(23, 25)
If TextBox2.Value = 12 Then A = Array(25)
If TextBox2.Value = "" Then A = Array(3, 5, 7, 15, 17, 19)
¦P·N·Ç¤j»¡ªº¡A¦Û¤v¼gªºµ{¦¡¦Û¤v¯à¬ÝÀ´¡A¤~¬O³Ì¦nªº¡I
§O¤H¼gªº«Üµu«Ü¼F®`¡A§A¦pªG¬Ý¤£À´¡A¤§«án§ïµ{¦¡¤]µL±q¤U¤â¡A·|§óµhW
¨Ì§Aªº»Ý¨D¡Aµ{¦¡§ï¦¨¦p¤U¡A¦ý°õ¦æ³t«×¤£·|¤ñ¸û§Ö~
k = TextBox2.Value: If k = "" Then k = 1
For i = k To 12: Idx = Idx + 1
If Idx < 4 Or Idx > 6 Then
itm = itm + 1: If itm = 7 Then Exit For
s = s & "," & i * 2 + 1
End If
Next i
A = Split(Mid(s, 2), ",") |
|