Найти сумму произведений цифр целой и дробной частей. Visual Basic 2008 Express Edition

[Xorigan]

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

Ссылка на Visual Basic 2008 Express Edition - Microsoft:
go.microsoft.com/?linkid=7729280

Вот; пока только перемножает только целую часть:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim number As String
        Dim c As String, d As String

        Dim rc As Integer

        number = TextBox1.Text

        c = Int(TextBox1.Text)
        d = (TextBox1.Text - Int(TextBox1.Text)) * 10 ^ (Len(TextBox1.Text - Int(TextBox1.Text)) - 2)

        rc = 1
        While number <> 0
            rc = rc * (number Mod 10)
            number = number \ 10
        End While


        MsgBox("Результат: " & rc)

    End Sub

End Class

[Xorigan]

Нашел в интернете код на паскале - перемножает 2 первых дробных числа

uses crt;
var x:real;
    p,a,i:word;
begin
clrscr;
write('Введите вещественное число с дробной частью не менее 2х знаков x=');
readln(x);
p:=1;a:=1;
for i:=1 to 2 do
 begin
  a:=a*10;
  p:=p*(trunc(x*a)mod 10);
 end;
write('P=',p);
readln
end.

[Streletz]

Сообщение от Xorigan

Ссылка на Visual Basic 2008 Express Edition - Microsoft:
go.microsoft.com/?linkid=7729280

Дожили! Уже дошло до ссылок на компиляторы. Выложили бы ещё ссылку на Паскаль, раз уж так.

Сообщение от Xorigan

Нашел в интернете код на паскале

Судя по всему, можно предположить, что предыдущий код на Visual Basic тоже.

Сообщение от Xorigan

перемножает 2 первых дробных числа

У Вас в самом 1м посте стоит совсем другая задача. Причём здесь это?
Держите. Учитесь.

number = TextBox1.Text
c = Int(number)
d = number.Substring(InStr(TextBox1.Text, ","))
rc = 1
rd = 1
While c <> 0
  rc = rc * (c Mod 10)
  c = c \ 10
End While
While d <> 0
  rd = rd * (d Mod 10)
  d = d \ 10
End While
MsgBox("Результат:" + (rc + rd).ToString())

Однако, для того, чтобы Вам было интересно самому разобраться в предоставленном коде, а не просто скопировать готовое:

1. Код написан на Visual Basic 2012
2. В коде имеется небольшая малозаметная ошибка, которая, в прочем, при определённых обстоятельствах, может, как говорится, "всё испортить". Ваша цель - найти её и устранить.

[Xorigan]

Спасибо биг. Подсказку сделаете? Я в функциях как раз ничего не знаю( Они то мне и нужны)

Вообще не очень понял, в чем ошибка; поменял, что не понравилось и все работает! Спасибо огромное!

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim number As String
        Dim c As String
        Dim d As String

        Dim rc As String
        Dim rd As String


        number = TextBox1.Text
        c = Int(number)
        d = number.Substring(InStr(TextBox1.Text, ","))

        rc = 1
        While c <> 0
            rc = rc * (c Mod 10)
            c = c \ 10
        End While

        rd = 1
        While d <> 0
            rd = rd * (d Mod 10)
            d = d \ 10
        End While
        MsgBox("Результат:" & ((rc + rd).ToString()))

    End Sub

End Class

[Streletz]

Пожалуйста!

Вообще не очень понял, в чем ошибка

Просто, Вы и не пытались её найти, что в общем-то не удивительно.

[Xorigan]

Так она будет влиять на работу программы, или нет?)

[Streletz]

Сообщение от Xorigan

Так она будет влиять на работу программы, или нет?)

Что это за ошибка, если она не влияет на работу программы?
Только, как я уже писал выше, для того, чтобы её обнаружить и устранить, необходимо разобраться в том, как работает код. Это не синтаксическая ошибка. Поэтому, при компиляции Visual Studio её не увидит. Так, что придётся самостоятельно искать.
Как-то так.
P.S. Если сомневаетесь, ошибка в коде действительно есть. Когда Вы поймёте как работает код, Вы сами убедитесь в этом.

[Serge_Bliznykov]

ОФФТОП ВКЛ

Найти сумму произведений цифр целой и дробной частей.

дожили... Вот и выросло поколение преподавателей, которые не знают, что вещественные (дробные) числа представлены в компьютере с некоторой ТОЧНОСТЬЮ. Т.е. говорить даже о том, чтобы вывести ВСЕ цифры дробной части числа, нельзя!


ОФФТОП ВЫКЛ

        Dim c As String
....
        While c <> 0
...
            c = c \ 10

Это что - РАБОТАЕТ?! Неужели бейсику настолько наплевать на типы данных, что он их сам конвертирует при любой надобности?!!! o_O

[Xorigan]

Просто сделаю

number = Val(TextBox1.Text)

[Streletz]

Сообщение от Serge_Bliznykov

вещественные (дробные) числа представлены в компьютере с некоторой ТОЧНОСТЬЮ

Точность, в данном случае задаётся при вводе числа с клавиатуры. Обратите внимание на то, что я, в своём коде, сразу ухожу от вещественных типов и, в дальнейшем, работаю с 2мя целыми числами.

Сообщение от Serge_Bliznykov

Это что - РАБОТАЕТ?!

Работает!

Сообщение от Serge_Bliznykov

Неужели бейсику настолько наплевать на типы данных, что он их сам конвертирует при любой надобности?!!!

Здесь используется не Basic, а Visual Basic.NET. В этом языке поддерживается динамическая типизация.