Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
創(chuàng)新互聯(lián)從2013年成立,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命,1280元威縣做網(wǎng)站,已為上家服務(wù),為威縣各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:028-86922220
參數(shù)
Destination 要復(fù)制內(nèi)存塊的目的地址。
Source 要復(fù)制內(nèi)存塊的源地址。
Length 指定要復(fù)制內(nèi)存塊的大小,單位為字節(jié)
返回值 該函數(shù)為VOID型,沒有返回值。
public function createstringarr() as string()
return new string(){"d1","d2","d3","d4"}
end function
很簡單,在end select前再多加一種情況case else return "XXXx",因?yàn)槟阒惶峁┝?-9這10種情況
Public Function Zuhe(ByVal qa As String) As String
Select Case qa
Case "0"
Return "1"
Case "1"
Return "3"
Case "2"
Return "4"
Case "3"
Return "6"
Case "4"
Return "2"
Case "5"
Return "8"
Case "6"
Return "9"
Case "7"
Return "7"
Case "8"
Return "5"
Case "9"
Return "0"
Case else
Return "XXXX"
End Select
End Function
private function maxnum(byval a() as integer) as integer
dim i as integer
maxnum=a(0)
for i = 1 to ubound(a)
if a(i)maxnum then maxnum=a(i)
next
end function
1、我有一個(gè)function,如下:
function b()
'...
return "abc"
end function
2、調(diào)用時(shí),這樣子用:
Response.write(b());
3、運(yùn)行結(jié)果:
abc