帮我做两道VB的题

一、
1、dim m as integer,n as integer,i as integer
for i=1 to 100
if i mod 3=0 then m=m+1
if i mod 7=0 then n=n+1
next i
print "3的倍数";m;"个；7的倍数";n;"个"
2、dim R as string ,i as integer,M as string
R="ASDFGHJKL"
for i=1 to len(R)
m=mid(r,i,1)+M
next i
print m
二、dim i as integer,Max as integer,Min as intyeger,s as integer,a(19) as ingeter
max=0:min=100
for i=0 to 19
randomize
a(i)=int(rnd*50+50)
s=s+a(i)
if a(i)>max then max=a(i)
if a(i)<min then min=a(i)
next i
print "最大值";max;"最小值";min;"平均值";s/20

1.分别统计1~100中，满足3的倍数，7的倍数各有多少
for i=1 to 100
if i Mod 3 = 0 then
print i;
next
for i=1 to 100
if i Mod 7 = 0 then
print i;
next
2.将输入的字符串一反序显示。例如，输入“ASDFGHJKL”,显示“LKJHGFDSA”
dim x,b as string
dim a() as string
x=inputbox("请输入