在vb.net中，F(xiàn)unction是“過(guò)程”還是“函數(shù)”

Function 是函數(shù)，不是過(guò)程，不論在VB、VB.NET、C等等，均是函數(shù)。

目前成都創(chuàng)新互聯(lián)公司已為1000+的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)絡(luò)空間、網(wǎng)站托管、服務(wù)器托管、企業(yè)網(wǎng)站設(shè)計(jì)、突泉網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

vb.net 函數(shù)或者過(guò)程作為數(shù)組

thr_test(i) = New System.Threading.Thread(New System.Threading.ParameterizedThreadStart(Sub()

直接寫過(guò)程代碼

End Sub))

VB.NET 編寫函數(shù)過(guò)程IsH(n) 判斷是否為回文數(shù)

你的i = Len(Str(a))會(huì)出問(wèn)題。

If i 1 Then

Return True

End If

這個(gè)返回在if內(nèi)部，當(dāng)條件不滿足將導(dǎo)致函數(shù)無(wú)返回。

以下代碼僅供參考:

Function IsH(ByVal a As Long) As Boolean

Dim i As Long, j As Long, t As String

t = a.ToString

i = t.Length

Select Case i

Case 1

Return True

Case 2

If Mid(t, 1, 1) = Mid(t, 2, 1) Then Return True Else Return False

Case 3

If Mid(t, 1, 1) = Mid(t, 3, 1) Then Return True Else Return False

Case Else

For j = 1 To i \ 2

If Mid(t, j, 1) Mid(t, i - j + 1, 1) Then Return False

Next j

End Select

Return True

End Function