![]() ![]() ![]() ![]() |
|||||
|
|||||
¼Ó¥D ºµºµ ![]()
![]() |
3U204 3U205 3U293 3U294 3U295 3U296 3U297 3U298 1F967 1F968 1F969 1F979 1F981 §Ú·QÅý¥L«ö¤UButton1¤§«á·|¦Û°Ê±Æ§Ç¨Ã¥B³s¸¹¸ò³s¸¹¤§¶¡·|¥Î~¨ú¥N ¦pªG¨S¦³³s¸¹½s¸¹¸ò½s¸¹·|¦³ªÅ®æ µM«á©ñ¨ìTextBox2¥h ![]() ¤p§Ì§Ú·Q¤F«Ü¤[ÁÙ¬O¨S·Q¥X¨Ó ·Q½ÐÓ¦ì¤j¤j¸Ñµª
·j´M¬ÛÃöTagsªº¤å³¹¡G
[ ³s¸¹ ] , [ ½s¸¹ ] , [ §Ç¦C ] , [ textbox ] , [ VB ] , [ NET ] ,
¥»½g¤å³¹µoªí©ó2019-10-10 00:25 |
1¼Ó |
¥ý±N±znªº¤À¶¥¬q¨Ó§@
1.n±Æ§Çªº¸ê®Æ©ñ¦b¨ºùØ ? A. Array ±Æ§Çªº¸Ü½Ð¥Î Array.sort ¨Ó±Æ§Y¥i Array ±Æ§Ç B. DataTable Array ±Æ§Çªº¸Ü½Ð¥Î Array.sort ¨Ó±Æ§Y¥i Array ±Æ§Ç B. DataTable ±Æ§Çªº¸Ü¡A½Ð¥Î Dt1.select 2.Âà¥Xn ³s¸¹¥[¥Î ~ ªºµ{¦¡µ¥±z±N1. §@§¹«á¦A¨Ó
¥»½g¤å³¹¦^ÂЩó2019-10-10 07:49
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
2¼Ó
§@ªÌ¦^À³
ºµºµ ![]() |
¦³ §Ú¥ÎArray.sort ±Æ§Çªº §Ú²{¦b¬O¥d¦b²Ä¤GÂI
¥»½g¤å³¹¦^ÂЩó2019-10-10 21:50
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
3¼Ó |
data1() ±Æ§Ç«áªº¸ê®Æ ¥u¤ñ¹ï«á¤T½X
°Ñ¦Ò¬Ý¬Ý¡A¤£«OÃÒ¹ï¡A¦³°ÝÃD¦A¨Ó°Q½× Sno=data1(0):Lno=Sno for ii=1 to data1.length-1 if right(data1(ii),3)- right(LNo,3) =1 then Lno=data1(ii) else if sno=lno then print Sno & " " else print Sno & "~" & Lno &" " end if sno=data1(ii) end if next
¥»½g¤å³¹¦^ÂЩó2019-10-11 09:57
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
4¼Ó
§@ªÌ¦^À³
ºµºµ ![]() |
§Ú²{¦bªºCODE¬O¦p¤U
¥»½g¤å³¹¦^ÂЩó2019-10-11 21:37
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
5¼Ó
§@ªÌ¦^À³
ºµºµ ![]() |
If right(data1(ii), 3) - right(lno, 3) = 1 Then
¦b³o¦æ¥L¸õ¿ù»~ BC30057 Public Overloads ReadOnly Default Property Chars(index As Integer) As Char' ªº¤Þ¼Æ¤Ó¦h¡C ½Ð°Ý§Ú²{¦b¸Ó«ç»ò¸Ñ¨M ³Â·Ð¤F ¤£¦n·N«ä
¥»½g¤å³¹¦^ÂЩó2019-10-11 21:39
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
6¼Ó
§@ªÌ¦^À³
ºµºµ ![]() |
ÁÙ¬ORight¤£¥NªíTextbox2 ¦]¬°§Ú§ä¤£¨ì¦³ÃöRightªº¨ç¼Æ
¥»½g¤å³¹¦^ÂЩó2019-10-11 22:25
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
7¼Ó
§@ªÌ¦^À³
ºµºµ ![]() |
§ó¥¿ ¸Ñ¨M ¦ý¦³¥t¤@Ó°ÝÃD§Ú¦A·Q¬Ý¬Ý ·Q¤£¥X¨Ó¦A°Ý±z
¥»½g¤å³¹¦^ÂЩó2019-10-11 23:01
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
8¼Ó |
Right¶·§ó¥¿¬°Microsoft.VisualBasic.Right
´£¨Ñ¤U¦C»yªk¨Ñ°Ñ¦Ò¡G
¥»½g¤å³¹¦^ÂЩó2019-10-13 15:34
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
9¼Ó
§@ªÌ¦^À³
ºµºµ ![]() |
³o¼Ë¤l¤jP¤W¬O¸Ñ¨M¤F ¦ý¦pªG§Ú¬O£¸²Õ³s¸¹
1N008 1N009 1N010 1N011 1N012 1N013 1N014 1N015 1N016 1N017 1N018 1N019 1N020 ¥L·|Åܦ¨ 1N008¡ã1N009 1N010¡ã1N019 1N020 ¥i¬O§Úªº¬O·QÅܦ¨ 1N008~1N020 §Ú§â12¦æ§ï¦¨ If Asc(tmpN) - Asc(tmpS) = 1 or Asc(tmpN) - Asc(tmpS) = -9 ³o¼ËÁÙ¬O¨S¦³§@¥Î ½Ð°Ý¦³¬Æ»ò¸Ñ¨M¿ìªk¶Ü ¤£nÅý¥L¥u¨ú§À¼Æ
¥»½g¤å³¹¦^ÂЩó2019-10-13 23:14
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
10¼Ó |
«ÂI¤£¦b12¦æ¡A ¬O¦b10,11 right(???,3) ¤£¯à¥u¥Î right(???,1)
¨ä¥L±zn°t¦X×§ï ÁÙ¬O¤£¦æªº¸Ü¡A½Ð±Nµ{¦¡PO¥X¨Ó
¥»½g¤å³¹¦^ÂЩó2019-10-14 07:13
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
11¼Ó |
8Fªº»yªk×§ï¦p¤U¡A¸Õ¸Õ¡G
Line 10: Dim tmpS As Integer=val( Microsoft.VisualBasic.Right(tmpB, 2) ) Line 11: Dim tmpN As Integer=val( Microsoft.VisualBasic.Right(data1(i), 2)) Line 12: If tmpN - tmpS = 1 AndAlso Line 13: Microsoft.VisualBasic.Left(tmpB, 3) = Microsoft.VisualBasic.Left(data1(i), 3) Then
¥»½g¤å³¹¦^ÂЩó2019-10-14 07:55
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
¦^ÂÐ |
¦pn¦^À³,½Ð¥ýµn¤J. |