文字列の計算について (ID:124133)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 自分もVB6.0ですが・・・桁合わせの部分だけ妄想でやってみた Dim suutiA As String 'ひとつめの数値代入用 Dim suutiB As String 'ふたつめの 〃 Dim sa As Long 'AとBの文字数差保存用 Dim i As Long 'ループ用 If Len(suutiA) > Len(suutiB) Then sa = Len(suutiA) - Len(suutiB) For i = 1 to sa suutiB = suutiB + "0" Next End If If Len(suutiA) < Len(suutiB) Then sa = Len(suutiB) - Len(suutiA) For i = 1 to sa suutiA = suutiA + "0" Next End If なんかアホみたいなプログラムだけども