vb³£ÓÃ×Ö·û´®´¦Àíº¯Êý
1. ASC(X)£¬Chr(X)£º×ª»»×Ö·û×Ö·ûÂë
[¸ñʽ]£º
P=Asc(X) ·µ»Ø×Ö·û´®XµÄµÚÒ»¸ö×Ö·ûµÄ×Ö·ûÂë
P=Chr(X) ·µ»Ø×Ö·ûÂëµÈÓÚXµÄ×Ö·û
[·¶Àý]£º
(1)P=Chr(65)
‘ Êä³ö×Ö·ûA,ÒòΪAµÄASCIIÂëµÈÓÚ65
(2)P=Asc(“A”)
‘ Êä³ö65
2. Len(X)£º ¼ÆËã×Ö·û´®XµÄ³¤¶È
[¸ñʽ]£º
P=Len(X)
[˵Ã÷]£º
¿Õ×Ö·û´®³¤¶ÈΪ0£¬¿Õ¸ñ·ûÒ²ËãÒ»¸ö×Ö·û£¬Ò»¸öÖÐÎÄ×ÖËäȻռÓÃ2 Bytes£¬µ«Ò²ËãÒ»¸ö×Ö·û¡£
[·¶Àý]£º
(1) ÁîX=”” (¿Õ×Ö·û´®)
Len(X) Êä³ö½á¹ûΪ0
(2) ÁîX=”abcd”
Len(X) Êä³ö½á¹ûΪ4
(3) ÁîX=”VB½Ì³Ì”
Len(X) Êä³ö½á¹ûΪ4
3. Mid(X)º¯Êý£º¶ÁÈ¡×Ö·û´®XÖмäµÄ×Ö·û
[¸ñʽ]£º
P=Mid(X,n)
ÓÉXµÄµÚn¸ö×Ö·û¶ÁÆ𣬶ÁÈ¡ºóÃæµÄËùÓÐ×Ö·û¡£
P=Mid(X,n,m)
ÓÉXµÄµÚn¸ö×Ö·û¶ÁÆ𣬶ÁÈ¡ºóÃæµÄm¸ö×Ö·û¡£
[·¶Àý]£º
(1) X=”abcdefg”
P=Mid(X,5)
½á¹ûΪ£ºP=”efg”
(2) X=”abcdefg”
P=Mid(X,2,4)
½á¹ûΪP=”bcde”
4. Replace: ½«×Ö·û´®ÖеÄijЩÌض¨×Ö·û´®Ì滻ΪÆäËû×Ö·û´®
[¸ñʽ]£º
P=Replace(X,S,R)
[˵Ã÷]£º½«×Ö·û´®XÖеÄ×Ö·û´®SÌ滻Ϊ×Ö·û´®R£¬È»ºó·µ»Ø¡£
[·¶Àý]£º
X=”VB is very good”
P=Replace(X,good,nice)
Êä³ö½á¹ûΪ£ºP=”VB is very nice”
5. StrReverse£º·´×ª×Ö·û´®
[¸ñʽ]£º
P=StrReverse(X)
[˵Ã÷]£º
·µ»ØX²ÎÊý·´
Ïà¹ØÎĵµ£º
VBʵÏÖVC TabControl¿Ø¼þ
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......
Õä¹óvbº¯ÊýÁбí
Variant ±äÁ¿µÄÄÚ²¿±íʾ:
_______________________________________________________________
·ûºÅ³£Á¿ Öµ ÄÚ²¿±íʾ ×Ö½ÚÊý
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......
VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖظ´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......
VBÊý¾Ý¿â²Ù×÷ʵÀý
2008-02-22 05:49
VBÊý¾Ý¿â²Ù×÷¶ÔºÜ¶à³õѧÕßÅóÓѸе½±È½Ï³ÔÁ¦£¬Ä¿Ç°½Ì²ÄÖеÄʵÀý¶ÔÊý¾Ý¿â²Ù×÷¶¼±È½Ïµ¥Ò»£¬ºÜ¶àÅóÓÑÌáÒéÎÒ×öÒ»¸ö°üÀ¨ä¯ÀÀ¡¢Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄܵÄÊý¾Ý¿â²Ù×÷ʵÀý£¬ÏÂÃæÕâ¸öʵÀý¾ÍÊÇÒ»¸öÕâÑùµÄÊý¾Ý¿â²Ù×÷ʵÀý¡£
¡¶Êé¿â¹ÜÀíϵͳ¡·ÊÇÒ»¸ö×î¼òµ¥µÄÊý¾Ý¿â²Ù×÷ʵÀý ......
Imports System.Data.OleDb
Inherits System.Windows.Forms.Form
Dim myconnection As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\student0.mdb") ‘------------------------- Á´½ÓÊý¾Ý¿â
......