Даны 2 натуральных числа M и N.Вывести старшую цифру дробной части и младшую цифру целой части числа M/N

MsgBox Choose(InputBox("Введите оценку:"), "Плохо", "Неудовлетворительно", "Удовлетворительно", "Хорошо", "Отлично")

Sub Nut() 'выводит цифры частного M и N, примыкающие к десятичному разделителю
Const M = 345, N = -125: Dim PosOfDelimiter As Byte, stroka As String
If N = 0 Then Exit Sub
 
MsgBox "Округлённое до 6-го дробного знака частное M/N = " & FormatNumber(M / N, 6)
 
MsgBox "В виде строки: " & Str(M / N) 'Str всегда использует точку и не пишет нули'
 
PosOfDelimiter = InStr(1, Str(M / N), ".")
 
MsgBox "Позиция разделителя в десятичной записи M/N: " & PosOfDelimiter
 
stroka = Str(M / N)
 
MsgBox "Цифра перед раделителем:" & vbTab & Mid(stroka, PosOfDelimiter - 1, 1) & _
vbCr & "Цифра после раделителя: " & vbTab & Mid(stroka, PosOfDelimiter + 1, 1) & _
vbCr & vbCr & "Исходная дробь: " & _
IIf(M / N < 0, "-", "") & Abs(M) & "/" & Abs(N) & " (" & M / N & ")"
End Sub

Sub Task()
'Даны натуральные числа М и N. Вывести старшую цифру дробной части и младшую цифру целой части числа M/N (дробную часть округлить до 0,000001).
Dim N, M, iSt As Integer, iMl As Integer, sMsg As String
M = Val(InputBox("M:")): N = Val(InputBox("N:"))
MsgBox FormatNumber(M / N, 6) & vbNewLine & M \ N Mod 10 & "," & Int((M / N - M \ N) * 10)
End Sub

Sub ocen()
 
Dim ball%
Dim chisl
 
chisl = Array("плохо", "неудовлетворительно", "удовлетворительно", "хорошо", "отлично", "такой оценки не существует")
ball = Val(InputBox("Введите оценку"))
MsgBox (chisl(IIf(ball > 5 Or ball < 1, 5, ball - 1)))
 
End Sub

Sub NutSmart() 'выводит цифры частного M и N, примыкающие к десятичному разделителю
Const M = 125, N = -125: Dim PosOfDelimiter As Byte, stroka As String
If N = 0 Then Exit Sub
 
MsgBox "Округлённое до 6-го дробного знака частное M/N = " & FormatNumber(M / N, 6)
 
MsgBox "В виде строки: " & Str(M / N) 'Str всегда использует точку и не пишет нули'
 
stroka = Str(M / N): If Abs(M) = Abs(N) Then stroka = stroka & ".0"
 
PosOfDelimiter = InStr(1, stroka, ".")
 
MsgBox "Цифра перед раделителем:" & vbTab & Mid(stroka, PosOfDelimiter - 1, 1) & _
vbCr & "Цифра после раделителя: " & vbTab & Mid(stroka, PosOfDelimiter + 1, 1) & _
vbCr & vbCr & "Исходная дробь: " & _
IIf(M / N < 0, "-", "") & Abs(M) & "/" & Abs(N) & " (" & M / N & ")"
End Sub

Sub NutStrut() 'выводит цифры частного M и N, примыкающие к десятичному разделителю
Const M = 5000, N = 225
Dim PosOfDelimiter As Byte, stroka As String
If N = 0 Then MsgBox "Деление на 0.", vbExclamation: Exit Sub
 
stroka = Str(M / N) 'Str всегда использует точку и не пишет незначащие нули'
 
PosOfDelimiter = InStr(1, stroka, "."): If Abs(M) = Abs(N) Then stroka = stroka & ".0"
 
If Mid(stroka, PosOfDelimiter - 1, 1) = " " Then stroka = Replace(stroka, " ", "0")
'заменили пробел на 0
 
If Mid(stroka, PosOfDelimiter - 1, 1) = "-" Then
stroka = Replace(stroka, "-", "-0") 'заменили "-" на "-0"
PosOfDelimiter = PosOfDelimiter + 1
End If
 
MsgBox "Цифра перед разделителем:" & vbTab & Mid(stroka, PosOfDelimiter - 1, 1) & _
vbCr & "Цифра после разделителя:" & vbTab & vbTab & Mid(stroka, PosOfDelimiter + 1, 1) & _
vbCr & vbCr & "Исходная дробь: " & _
IIf(M / N < 0, "-", "") & Abs(M) & "/" & Abs(N) & " (" & M / N & ")", vbInformation
End Sub

Sub Nutrition() 'выводит цифры частного M и N, примыкающие к десятичному разделителю
Const M = 8, N = -5: If N = 0 Then MsgBox "Деление на 0.", vbExclamation: Exit Sub
Dim r As Single: r = M / N
    MsgBox "Перед разделителем:" & vbTab & Abs(Fix(r) Mod 10) & _
    vbCr & "После разделителя:" & vbTab & Abs(Fix((r - Fix(r)) * 10)) & vbCr & _
    vbCr & "Исходная дробь: " & IIf(M / N < 0, "-", "") & _
    Abs(M) & "/" & Abs(N) & " (" & Format(r, "0.000000") & ")", vbInformation
'Fix просто отсекает дробную часть. Если заменить Fix на Int, то при r<0 будут ошибки!
End Sub

Sub Nutria() 'выводит цифры частного M и N, примыкающие к десятичному разделителю
Const M = 888, N = 30
'Const M = -715100000000#, N = 999999
Dim r As Variant: r = CDec(M) / CDec(N)
'Ограничения по модулю:
If Abs(M) > 7.151 * 10 ^ 11 Then MsgBox "M слишком велико.", vbExclamation: Exit Sub
If Abs(N) > 7.151 * 10 ^ 11 Then MsgBox "N слишком велико.", vbExclamation: Exit Sub
If N = 0 Then MsgBox "Деление на 0.", vbExclamation: Exit Sub 'в случае деления на 0
'Результат:
    MsgBox "Перед разделителем:" & vbTab & Abs(Fix(r) Mod 10) & _
    vbCr & "После разделителя:" & vbTab & Abs(Fix((r - Fix(r)) * 10)) & vbCr & _
    vbCr & "Исходная дробь: " & IIf(M / N < 0, "-", "") & _
    Abs(M) & "/" & Abs(N) & " (" & r & ")", vbInformation
'Fix просто отсекает дробную часть. Если заменить Fix на Int, то при r<0 будут ошибки!
End Sub