神马品牌网战国无双编年史cia:怎样用VF编写杨辉三角和二进制转换成十进制
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 04:45:30
1、杨辉三角：
clear
input \"请输入阶数：\" to n
dime a(2,2*n-1)
a=0
a(2,n)=1
for i=2 to n
for k=1 to 2*n-1
a(1,k)=a(2,k)
if a(1,k)#0
??a(1,k) picture \"9999\"
else
?? \" \"
endif
endfor
?
stor iif(i=n,1,0) to a(2,1),a(2,2*n-1)
for j=2 to n
a(2,j)=a(1,j-1)+a(1,j+1)
a(2,2*n-j)=a(2,j)
endfor
endfor
for k=1 to 2*n-1
if a(2,k)#0
??a(2,k) picture \"9999\"
else
?? \" \"
endif
endfor
2、二进制转十进制：
input \"输入二进制数:\" to a
b=alltrim(str(a))
n=len(b)
for k=0 to n-1
c=subs(b,k+1,1)
if asc(c)#48.and. asc(c)#49
=messagebox(\"这不是二进制数字！无法转换！\",48,\'提示信息\')
return
endif
endfor
s=0
for i=1 to n
c=val(subs(b,i,1))
s=s+c*2^(n-i)
endfor
? alltrim(str(a))+\"转换十进制数为：\",alltrim(str(s))