DXR165の備忘録

自分用の備忘録です。

WSH のユーザインタフェースをInputBoxで  

Option Explicit
Dim u,g,x

Const t ="application name"

On Error Resume Next

u = t & " on WSH Ver " & WScript.Version
x = InputBox("入力して下さい",u)

Do While x <> ""

g = Mid(x,1,3) & "の結果は" & String(2,vbCrLf)

x = InputBox(g,u)
Loop
関連記事

category: PC-全般

tb: 0   cm: 0

コメント

コメントの投稿

Secret

トラックバック

トラックバックURL
→http://dxr165.blog.fc2.com/tb.php/14-045a4ffc
この記事にトラックバックする(FC2ブログユーザー)

プロフィール

最新コメント

カウンター(2012/3/10以降)