vb語言-20xx春vb01上機(jī)答案-文庫吧
2024-12-30 22:15 本頁面
【正文】 d SubPrivate Function validate(n As Long) As Boolean Dim p As String, i As Integer, a() As Integer, j As Integer p = CStr(n) 39。err Str(n) ReDim a(Len(p)) For i = 1 To Len(p) a(i) = Mid(p, i, 1) Next i For i = 1 To UBound(a) 1 For j = i + 1 To UBound(a) If a(i) = a(j) Then Exit Functio
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1