ベーシックをVBに訳してください。

質問

print "time=",kk　　　　　　　

for i=1 to im
print using 　"i=## 　ro=###.###~~~~　　phi=###.###~~~~　E=###.###~~~~" ;i;ro(i);phi(i);e(i)
next i

どなたかこのベーシックで書かれたコードを、VBに直していただけないでしょうか？　お願いします。

回答No.4

imogasi · ベストアンサー

なるべく原型をとどめるようにしました。
Private Sub Form_Click()
Dim ro(10)
Dim phi(10)
Dim e(10) As Single
ro(1) = 123456
phi(1) = 234567
e(1) = 0.00003 '3e-5
Form1.Print Now()
Form1.Print Time()
For i = 1 To 1 'im
Form1.Print i
Form1.Print Format(ro(i), "###,###")
Form1.Print Format(phi(i), "###,###")
Form1.Print Format(e(i), "#.######e-##")
Next i
End Sub
テストのため敢えてiを１にしています。imにしてください。
Printは；や，が使えます。
Format関数のマスク・パターンの全貌は本で調べてください。

お礼

アリガトウございます。ちゃんと動きました!! VBは初心者なので、また分からないことがあったら教えてください。

回答No.3

taknt

ＶＢには、 ＢＡＳＩＣでの意味のＰＲＩＮＴは ありません。
＃２の方は、代用として ＭｓｇＢｏｘで記述されてますが、
表示のたびに ＯＫ ボタンを押さないとダメです。
似たようなのをやるのでしたら、ＬｉｓｔＢｏｘなどに
一行ずつ 加えてくぐらいでしょうね。

回答No.2

nitscape

VBは持っていないのでよく分からないのですがこんな感じでしょうか？

MsgBox "time=" & kk

For i = 1 To im
ss = Format(i, "i=##")
ss = ss + " ro="
ss = ss + Format(ro(i), "###.###")
ss = ss + " phi="
ss = ss + Format(phi(i), "###.###")
ss = ss + " E="
ss = ss + Format(e(i), "###.###")
MsgBox ss
Next i

回答No.1

TAGOSAKU7

format関数を使用したらできます