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 =
Ïà¹ØÎÊ´ð£º
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄ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
......