ベーシックを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 回答日時： 2003/01/16 08:21

なるべく原型をとどめるようにしました。

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は初心者なので、また分からないことがあったら教えてください。

お礼日時：2003/01/18 00:55

No.3 回答者： taknt 回答日時： 2003/01/16 03:13

ＶＢには、 ＢＡＳＩＣでの意味のＰＲＩＮＴは ありません。

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

No.2 回答者： nitscape 回答日時： 2003/01/16 01:32

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 回答日時： 2003/01/16 01:21

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