Entries from 2014-01-01 to 1 year

王道の FizzBuzz

Sub Initialize Dim inputNum As String Dim outputNum As String Dim wNum As Variant Dim num As Integer Dim i As Integer Dim z As Integer inputNum = "" outputNum = "" z = 0 entry: inputNum = InputBox$("数字入力", "FizzBuzz") If IsNumeric(inpu…

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

使用言語: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…