用Vb编写一个程序,要求从键盘输入一个正整数M,自动判断并显示M中有哪些数可以分为两个相等的素数.例如M=10,因为10以内有4=2+2,6=3+3 ,10=5+5,所以共有3个数符合条件

dim i,j,n,t as integern=inputbox("n=")for i=1 to n if i mod 2=0 then t=i \ 2 for j=2 to int(sqrt(t)) if t mod t=o then exit for next j if j>int(sqrt(t)) then print i;"=";t;"+";tend ifnext i