用Vb编写一个程序,要求从键盘输入一个正整数M,自动判断并显示M中有哪些数可以分为两个相等的素数.
问题描述：
用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 thent=i \ 2for 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