用vb编写程序将十进制数转换成八进制数

2024-11-13 10:56:56

推荐回答（2个）

回答1：

Private Sub Command1_Click()
  Dim a As Long
  a = InputBox("输入一个正整数"): n = a
  Do
    s = s & a Mod 8
    a = a 罩租\ 8
 物轮兆 Loop Until a = 0
  Print "十进制数" & n & "转换成桐仿八进制数后为:"; StrReverse(s)
End Sub

回答2：

Private Sub Form_click()
Me.AutoRedraw = True
Dim a As Integer
a = Val(InputBox("输入一个正整数"))
If a < 7 Then s = a
s 桥山= ""
If a > 7 Then
Do
s 绝宴= a Mod 8 & s
a = a \ 8
Loop Until a = 0
End If
Print "转换后的八进敏宏中制数为"; s
End Sub