Private Sub Command1_Click()

Dim v As Double

Dim sift As Integer

Label6.Caption = "10"

v = Val(Text1.Text) '入力された数字を変数に設定

'符合

If v >= 0 Then

lblHugou.Caption = "+"

Else

lblHugou.Caption = "-"

v = -v 'マイナスのときはプラスにする

End If

'１０進６桁分の整数をつくる

sift = 0

Do While v < 100000 '左にシフト：大きくする

v = v * 10

sift = sift + 1 '左シフト

Loop

Do While v >= 1000000 '右にシフト：小さくする

v = Int(v / 10)

sift = sift - 1 '右シフト

Loop

'小数に直す

sift = sift - 6

'フォームに表示

lblKasuu.Caption = "0." + Str(v)

lblPower.Caption = -sift 'シフト分を元にもどす値

End Sub