首页 > 考试 > 等级考试 > 二级 > Visual Basic >

计算机二级VB常用算法:进制转化算法说明

2012-06-30

算法说明  1) 十进制正整数m转换为R(2-16)进制的字符串。  思路: 将m不断除r取余数,直到商为0,将余数反序即得到结果。  算法实现:以下是引用片段:  PRivate Function Tran(ByVal m As ...

算法说明

  1) 十进制正整数m转换为R(2-16)进制的字符串。

  思路: 将m不断除r取余数,直到商为0,将余数反序即得到结果。

  算法实现:

以下是引用片段:
  PRivate Function Tran(ByVal m As Integer, ByVal r As Integer) As String
  Dim StrDtoR As String, n As Integer
  Do While m <> o
  n = m Mod r
  m = m r
  If n > 9 Then
  StrDtoR = Chr(65 + n - 10) & StrDtoR
  Else
  StrDtoR = n & StrDtoR
  End If
  Loop
  Tran = StrDtoR
  End Function

相关文章
最新文章
热点推荐