Question

Написать программу в VBA перевод из одной СС в другую.Троичное число → восьмеричное число и обратный процесс.

Answer 1

Sub z()
n = InputBox("Введите троичное число")
Do
        d = d + (n Mod 10) * 3 ^ i
        i = i + 1
        n = n \ 10
        Loop Until n = 0
MsgBox ("Десятичное: " & d & "; восьмеричное: " & Oct(d))
d = 0
i = 0
n = InputBox("Введите восьмеричное число")   
Do
        d = d + (n Mod 10) * 8 ^ i
        i = i + 1
        n = n \ 10
        Loop Until n = 0
x = d   
Do
        t = t & (x Mod 3)
        x = x \ 3
        Loop Until x = 0
t = StrReverse(t)
MsgBox ("Десятичное: " & d & "; троичное: " & t)
End Sub

Answer 2

VBA Программа для перевода из троичной восьмеричную систему и обратно

Для перевода числа из троичной восьмеричную систему и обратно в VBA, можно использовать следующие функции.

1. Перевод из троичной в восьмеричную систему:

Function ConvertToOctal(tri As String) As String
    Dim dec As Integer
    dec = 0
    For i = 1 To Len(tri)
        dec = dec + Mid(tri, Len(tri) - i + 1, 1) * (3 ^ (i - 1))
    Next i
    ConvertToOctal = Oct(dec)
End Function

2. Перевод из восьмеричной в троичную систему:

Function ConvertToTernary(oct As String) As String
    Dim dec As Integer
    dec = CLng("&O" & oct)
    Dim result As String
    result = ""
    Do While dec > 0
        result = (dec Mod 3) & result
        dec = dec \ 3
    Loop
    ConvertToTernary = result
End Function

Эти функции позволяют осуществлять перевод чисел из троичной в восьмеричную систему и обратно.

Пример использования:

Sub TestConversion()
    Dim ternaryNumber As String
    ternaryNumber = "101" ' Пример троичного числа
    MsgBox "Восьмеричное число: " & ConvertToOctal(ternaryNumber)
    
    Dim octalNumber As String
    octalNumber = "45" ' Пример восьмеричного числа
    MsgBox "Троичное число: " & ConvertToTernary(octalNumber)
End Sub

Эти функции могут быть использованы для перевода чисел между троичной и восьмеричной системами в VBA.