概要
vbsの作法、調べてみた。
練習問題やってみた。
練習問題
fizzbuzzをIE11で表示せよ。
写真
サンプルコード
Class ohicompo0
Private objIE
Private Sub Class_Initialize
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = true
objIE.Top = 50
objIE.Left = 100
objIE.Width = 500
objIE.Height = 400
objIE.Navigate("about:blank")
objIE.StatusBar = False
objIE.ToolBar = 0
objIE.Document.Write("<html><head><title>ohicompo0</title></head>")
objIE.Document.Write("<body bgcolor='pink'>")
objIE.Document.Write("<div id='div-id-1'></div><br>")
objIE.Document.Write("<textarea id='out' rows='13' cols='40'></textarea>")
objIE.Document.Write("</body></html>")
End Sub
Private Sub Class_Terminate
'MsgBox "ウインドウオブジェクト 解放", vbOKOnly + vbInformation, "ウインドウオブジェクト インスタンス "
End Sub
Public Sub text(str)
objIE.Document.getElementById("out").InnerText = str
End Sub
Public Sub owari()
objIE.Quit
End Sub
End Class
Dim i
Dim str
str = ""
For i = 1 To 100
If i Mod 15 = 0 Then
str = str & "FizzBuzz "
ElseIf i Mod 3 = 0 Then
str = str & "Fizz "
ElseIf i Mod 5 = 0 Then
str = str & "Buzz "
Else
str = str & CStr(i) & " "
End If
Next
Dim w1
Set w1 = new ohicompo0
w1.text str
以上