VBʵÀý —ÍòÄêÀú £¨1£©
1¡¢´´½¨¿Ø¼þ£ºlbl1¡¢txt1¡¢lbl2¡¢cmd1
2¡¢lbl1.caption=ÊäÈëÈÕÆÚ£¨ÈÎÒ»ÖÖÕýÈ·¸ñʽ£©£º
ÉèÖÃlbl1¡¢txt1¡¢lbl2¡¢cmd1µÄ×ÖÌå´óС¼°ÑÕÉ«£»
3¡¢Ë«»÷°´Å¥“È·ÈÏ”£¬Ìí¼Ó´úÂ룬Ч¹ûΪ£º
Option Explicit
Private Sub cmd1_Click()
Dim a, b
b = txt1.Text
a = Weekday(b)
Select Case a
Case 1
lbl2.Caption = "ÐÇÆÚÈÕ"
Case 2
lbl2.Caption = "ÐÇÆÚÒ»"
Case 3
lbl2.Caption = "ÐÇÆÚ¶þ"
Case 4
lbl2.Caption = "ÐÇÆÚÈý"
Case 5
lbl2.Caption = "ÐÇÆÚËÄ"
Case 6
lbl2.Caption = "ÐÇÆÚÎå"
Case 7
&nb
Ïà¹ØÎĵµ£º
Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
On Error GoTo Handler
Dim varAddress As Variant, n As Long, lCount As Long
varAddress = Split(strIPAddress, ".", , vbTextCompare)
If IsArray(varAd ......
·¶¨ÒåÍêÉƵıäÁ¿¾ßÓÐÃ÷È·¹æ¶¨µÄÊý¾ÝÀàÐͺÍ×÷ÓÃÓò
·ÒªÕýȷʹÓñäÁ¿£¬±ØÐëʹÓñíÒåÐÔÇ¿µÄ±äÁ¿ÃûÀ´ËµÃ÷ÕâЩ±äÁ¿£¬²¢ÇÒ±ØÐëΪËüÃǸ³Óè½¹µã
·±à³ÌÔÔò
·¶¨ÒåÓн¹µãµÄ±äÁ¿£¨·þÎñÓÚÒ»¸ö¶¨ÒåÃ÷È·µÄÄ¿µÄ£©
·Îª±äÁ¿¸³Óè±íÒåÐÔÇ¿µÄÃû×Ö
......
·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔÔò
·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐΪÌØÐÔ
·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó ......
·×¢ÊÍÄÜʹעÊÍÄÜʹ´úÂë¸ü¼ÓÈÝÒ×Àí½â£¬¸ü¼ÓÈÝÒ׸ú×Ù¡£
·³öÉ«µÄ×¢Ê;ÍÏñÒ»·ùºÃµÄÉè¼ÆÀ¶Í¼£¬Äܹ»Òýµ¼ÔĶÁÕßͨ¹ýÄãµÄÓ¦ÓóÌÐòµÄÇúÕÛÖ®´¦£¬Äܹ»ËµÃ÷Ô¤ÆÚµÄÔËÐнá¹ûºÍ¿ÉÄܳöÏÖµÄÒì³£Çé¿ö¡£
·±à³ÌÔÔò
·ÓÃÎÄ×Ö˵Ã÷´úÂëµÄ×÷ÓÃ
·±àд·Ç³£³öÉ«µÄ ......
1¡¢¹ØÓÚ¼ª´óÊÓƵ£º1-3¼¯½²VB³ÌÐòÉè¼ÆµÄ¸ÅÊö4-30¼¯½²VB»ù´¡ÖªÊ¶£¬Èç¿Ø¼þµÄʹÓÃ31-64¼¯½²ActiveX¿Ø¼þ¡¢Êý¾Ý¿âµÈµÄ¸ß¼¶±à³Ì²¿·Ö¡£
¿´µÄ¹ý³ÌÖÐ×¢Òâ¿ì½Ý¼üµÄʹÓúͽØͼ¹¤¾ßµÄÔËÓ㬿´ÊÓƵʱ½«Öصã×÷³ö±ê×¢¡£
2¡¢ÓÉCSTR¡¢Cstr£¨£©¡¢string¡¢Instr£¨£©ºÍstr£¨£©£¨´ËΪÉî¶ÈÀ©Õ¹£©ËùÏëµ½µÄ¹ØÓÚ×ܽáµÄ·½·¨¡£
&nb ......