使用言語：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) + " "…

おもしろそうだったのでつくってみた＾＾ 言語は lotusscript 。 Sub Initialize Dim entry_num As String '入力された数字(変換前) Dim num As Integer '入力された数字(変換後) Dim i As Integer 'カウント用 Dim j As Integer 'カウント用 Dim p As Integ…