Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÔõô¼ÓÃÜÄØ£¿

ÈçÌ⣬ллÁË
"VBÔõô¼ÓÃÜÄØ?"  ÄãÖ¸Ëã·¨¼ÓÃÜ×Ö·û»¹ÊÇ×öºÃÈí¼þºóµÄ¼ÓÃܱ£»¤£¿

Ëã·¨¼ÓÃÜ×Ö·û¾Í¿´ÄãÔõôд£¬ ¡° ABC -> »»ËãºóµÃµ½  $2^ ¡±  £¨½âÃܾͷ´¹ýÀ´)

×öºÃÈí¼þºóµÄ¼ÓÃܱ£»¤£¬ÕÒ¸ö¼Ó¿ÇÈí¼þ¾Í×îÈÝÒײ»¹ýÁË¡£

ͬÉÏ£¬ÒªËµÇå³þÊǼÓÃÜʲô

ÄãÒª¼ÓÃÜʲô£¬ÊÇÄãµÄVB³ÌÐò£¬»¹ÊdzÌÐòÖеÄÊý¾Ý

ÊÇÒª¼ÓÃܳÌÐò°É£¬¶ÁȡӲ¼þÐÅÏ¢×ö³ÉÐòÁкżÓÃÜ£¬²»¹ý»¹ÊÇÓüÓÃܹ·¼ÓÃܱȽϺÃ

ͨ³£µÄ¼ÓÃÜ·½·¨¾ÍÊÇÒì»òÀۼӺ͵ȷ½·¨ºÜ¶à¡£

ÄãÊÇÒª¶Ôʲô½øÐмÓÃÜÄØ£¿ËµµÄÏêϸµã°É£¬Éæ¼°µ½¼ÓÃܵÄËã·¨£¬ÄÚÈݺܶࡣ˵µÄÏêϸµã°É¡£

×î¼òµ¥µÄÊÇÓÃCHRºÍASC½øÐÐASCIIÂë¼ÓÃÜ»ò·´¼ÓÃÜ¡£
ÓÃXORº¯Êý£¬¼ÓÃÜ»ò·´¼ÓÃܲ»ÈÝÒ×ÆÆ½â£º
XOR¼ÓÃÜ´úÂëÈçÏ£º
'¼ÓÃÜ¡¢·´¼ÓÃÜÄ£¿é
Public Function StringEnDeCodecn(strSource As String, MA) As String
On Error GoTo ErrEnDeCode
  Dim X As Single, CHARNUM As Long, RANDOMINTEGER As Integer, SINGLECHAR As String * 1
  Dim strTmp As String
  If MA < 0 Then MA = MA * (-1)
  X = Rnd(-MA)
  For i = 1 To Len(strSource) Step 1                'È¡µ¥×Ö½ÚÄÚÈÝ
    SINGLECHAR = Mid(strSource, i, 1)
    CHARNUM = Asc(SINGLECHAR)
g:  RANDOMINTEGER = Int(127 * Rnd)
    If RANDOMINTEGER < 30 Or RANDOMINTEGER > 100 Then GoTo g
    CHARNUM = CHARNUM Xor RANDOMINTEGER
    strTmp =


Ïà¹ØÎÊ´ð£º

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

vb×Ô¶¯·¢ËÍÓʼþ - VB / »ù´¡Àà

ΪʲôÎÒÏëÑ­»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
  Do While Not TDBG_Dept.EOF
  If A> ......

vb crystalreport - .NET¼¼Êõ / VB.NET

Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
  MouseWait()
  Dim ClearTempTabelSQL As String
  'If Not ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ