VBÄæÏò¹¤³ÌʵսÑÝϰ
û¿Ç,ûÓÐCommand Button,ËùÓеÄÄÚÈݶ¼ÔÚForm_LoadÀï¡£ÓÃVBDE²é¿´£¬Form_LoadÔÚ00406A90,´ò¿ªW32dsm£¬ÔØÈëCasinoÂÖÅÌÖÇÄÜ»úÆ÷ÈË£¬²éÕÒ00406A90£¬·´»ã±à´úÂëÈçÏ£º
Quote:
:00406A90 55 push ebp
:00406A91 8BEC mov ebp, esp
:00406A93 83EC0C sub esp, 0000000C
* Possible StringData Ref from Code Obj ->"%?@"
|
:00406A96 68A6134000 push 004013A6
:00406A9B 64A100000000 mov eax, dword ptr fs:[00000000]
:00406AA1 50 push eax
:00406AA2 64892500000000 mov dword ptr fs:[00000000], esp
:00406AA9 81EC84010000 sub esp, 00000184
:00406AAF 53 push ebx
:00406AB0 56 push e
Ïà¹ØÎĵµ£º
¿´Á˱ðÈËдµÄC#µÄ ×Ô¼º×ªÁËһϠȻºóºóÖØÐ¸ÄÁË¸Ä Ð´³ÉÁËÕâ¸ö
ÁíÍ⻹ÓÐÒ»¸öÎÒдµÄÑéÖ¤ÈÕÆÚÊÇ·ñºÏ·¨µÄ´úÂë ÔÚºóÃæ ¶¼ÊÇvbµÄ c#Ö»»á¿´²»»áд
'ÅжÏÈòÄê=======================
Private Function CheckLeap(ByVal year As Integer) As Boolean
If (year Mod 4 = 0) AndAlso (year Mod 100 <> ......
×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êǩ֮¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈǰ±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØÐ±àÒë.Õ ......
Option Explicit
Function Delete3(Arr As Variant) As Variant
Dim i As Integer
For i = LBound(Arr) To UBound(Arr)
If i > UBound(Arr) Then Exit For
If Arr(i) = 3 Then
Do
Dim j As Integer
For j = i To UBound(Arr) - 1
......
VBÓëMatlab»ìºÏ±à³ÌÓжàÖÖ·½Ê½£¬ÕâÀïÌÖÂÛMatlab½«MÎļþ±àÒë³Écom×é¼þ¹²VBµ÷Óõķ½Ê½¡£
Matlab°æ±¾£ºMatlab 7.7. 0.471 R2008b
VB°æ±¾£ºVB 6.0 & VB 2008
Ê×ÏÈдºÃÍê³Éij¸ö¹¦ÄܵÄmÎļþ£¬±ÈÈçÔÚmÎļþÖÐдÈëÈçϺ¯Êý
function [returns,stderr]=GetReturns(prices)
returns=price2ret(prices)&nbs ......