きのうのエントリへの自己フォロー。ちょっとテストＰを書いてみた。自分に課した制限時間は１０分！ がんばれ俺！ Module Module1 Sub Main() Dim denominator As Decimal = 1 Dim slicednumber As Single Dim sum As Single = 1 Do While sum = 1 '1をdeno…