VB程序设计题（在线等！！！急！！！）

Question

使用Do While语句计算【1，n】之间的偶数和
使用InputBox（）来输入n的值

Answer 1

Function Fun(s As String)
'********begin********
for i=1 to len(s)
if mid(s,i,1)>="a" and mid(s,i,1)<="z" then fun=fun+1
next
'*********end*********
End Function
满意请采纳。