· 设计思想：
在VB中数姐最大维数是60，所以我们通过错误捕捉来处理这个问题，在这里我们用到UBound函数
Public Function ArrayRange(mArray As Variant) As IntegerDim i As IntegerDim Ret As IntegerDim ErrF As BooleanErrF = FalseOn Error GoTo ErrHandle'判断代入的参数是否为数组 If Not Is...
· Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")TextBox1.Text = ""For Each WmiObj As Mana...
· Dim tep As StringDim temp As StringDim i As IntegerDim B As Integertep = rmsgi = Len(tep)If i < 1 Then Exit FunctionB = i / 4If i = B * 4 Thentep = Left(tep, B * 4)ElseB = B - 1tep = Left(tep, B * 4)End Ifchg = ""For i = 1 To Btemp = "&H" & Mid(...
· Dim tep As StringDim temp As StringDim i As IntegerDim B As IntegerDim rems As Stringtep = rmsgi = Len(tep)If i < 1 Then Exit FunctionB = i / 2If i = B * 2 Thentep = Left(tep, B * 2)ElseB = B - 1tep = Left(tep, B * 2)End Ifchg7 = ""rems = ""Dim trint As...
· Public Function D_To_B(ByVal Dec As Long) As StringDoD_To_B = Dec Mod 2 & D_To_BDec = Dec \ 2Loop While Dec
End FunctionPublic Function B_To_D(ByVal Bin As String) As IntegerDim i As LongFor i = 1 To Len(Bin)B_To_D = B_To_D * 2 + Val(Mid(Bin, i, 1))Next i
End FunctionPubl...
· Public Function ascg(smsg As String) As StringDim si, sb As IntegerDim stmp As IntegerDim stemp As Stringsb = Len(smsg)ascg = ""For si = 1 To sbstmp = AscW(Mid(smsg, si, 1))If Abs(stmp) < 127 Thenstemp = "00" & Hex(stmp)Elsestemp = Hex(stmp)End Ifas...
设为首页
收藏本站
作者：黄振安
您现在的位置： 拓文网络 → 文章中心 → .NET编程 → ASP.NET
