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

  • Автор темы Japanese
  • Дата начала
Статус
Закрыто для дальнейших ответов.
J

Japanese

#1
Пожалуйста, помогите!!! Мне уже сегодня надо сдать программу!
Я уже писала эту программу, но она удалилась, по памяти попыталась восстановить, но у меня сейчас нет 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



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