关于一个qb转vb的问题！（急）

lcj68

各位大侠，好！我有一个问题！就是如何在vb中实现以下的qb语句！万分感谢了！在线等待！
1130 date 1,2,3,4,5,6,7,8,9……(好多，我就不一一输了)
1140 date 10,11,12,13,14,15,16,17,18,19……
1150 date 20,21,22,23,24,25,26,27,28,29……
1160 date ……
1170 date ……
1180 date ……
1190 date ……
1200 for j=1 to 48 :read mq(j):next j
1210 for j=1 to 48 :read q(j):next j
1220 for j=1 to 48:read m(j):next j
1230 for j=1 to 48
1240 if mq<=mq(j) then 1330
1320 next j
1330 q=q(j):m=m(j):mq=mq(j)
1340 print q,m,mq
1350 return