第24講 10進数をn進数に翻訳する
第3話 数値を文字に変更する

2進数
余りを逆順に並べれば、翻訳ソフトは完成するわけですが、
逆順に並べるには、余り(整数)を文字に変更する必要があります。
なぜなら次のように組んでも
Dim w As Integer
w=0
w=w+1
w=w+0
w=w+0
w=w+1
w=w+0
w=w+0
w=w+0
w=w+1

wは3になるだけです。では、次のように組み直したら動でしょうか。
Dim w As Integer
w=0
w=1+w
w=0+w
w=0+w
w=1+w
w=0+w
w=0+w
w=0+w
w=1+w

やはり、wが3になるだけです。
しかし、wを文字型変数として
Dim w As String
w=""
w="1"+w
w="0"+w
w="0"+w
w="1"+w
w="0"+w
w="0"+w
w="0"+w
w="1"+w

とすれば
wは"10001001"となります。
尚、
Dim w As String
w=""
w=w+"1"
w=w+"0"
w=w+"0"
w=w+"1"
w=w+"0"
w=w+"0"
w=w+"0"
w=w+"1"
では"10010001"となってしまうことに注意しましょう。
足す順を逆にしないといけません。


数値aを文字に変更するには、Str(a)とします。
例えば、Str(a)は"3"になります。

さあ、ではシートおよびコード作りに挑戦しましょう。




第2話へ 第4話へ

004
  


VBA講義第1部へ
vc++講義へ
vb講義へ
VB講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ

数学研究室に戻る