Vb- Перевод Чисел Из 10ой В 16ую Систему

Тема в разделе "Другие задачи", создана пользователем Japanese, 20 дек 2011.

Статус темы:
Закрыта.
  1. Japanese

    Japanese Гость

    Пожалуйста, помогите!!! Мне уже сегодня надо сдать программу!
    Я уже писала эту программу, но она удалилась, по памяти попыталась восстановить, но у меня сейчас нет Visual Studio и поэтому не могу проверить правильно ли написала
    Вот код

    Module Module1
    Sub Main()
    Console.WriteLine("Введите число в десятичной системе счисления.")
    Console.WriteLine()
    Dim stroka As String
    Dim a, b As Integer
    stroka = “”
    a = CInt(Console.ReadLine())
    Console.WriteLine(“Введенное вами число в шестнадцатеричной системе счисления = ”)
    Do
    b = a Mod 16
    a = a \ 16
    If b >= 10 Then
    stroka = Chr(b + 55) & stroka
    Else
    stroka = b & stroka
    End If
    Loop Until b = 0
    If b = 0 Then
    stroka = a & stroka
    End If
    Console.WriteLine(stroka)
    Console.ReadKey()
    End Sub
    End Module



    Где здесь есть ошибки?И как исправить?Плииз, помогите срочно...!
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей