九九を出力するプログラム

使用言語：lotusscript

Sub Initialize
	
	Dim i As Integer	'かけられる数
	Dim j As Integer	'かける数
	Dim r As Integer	'こたえ
	Dim msg As String	'出力
	
	msg = ""
	
	For i = 1 To 9
		For j = 1 To 9
			r = i * j
			If r < 10 Then
				msg = msg + " " + CStr(r) + " "
			Else
				msg = msg + CStr(r) + " "
			End If
		Next
		If i < 9 Then
			msg = msg + Chr(10) + Chr(13)
		End If
	Next
	
	MsgBox msg
	
End Sub

出力結果の縦をそろえられなかったのが気に入らないけど。