神马品牌网航海王启航哪个平台好:VB问题,会的来
来源：百度文库 编辑：神马品牌网 时间：2024/05/11 01:44:07
1.换零钱问题。
如果要将一元人民币换成零钱（换成1分，2分，5分），共有多少种换发？
2. 从键盘输入一行字符，分别统计出其中字母、数字和其他字符的个数；
3.找出所有小于或等于100的自然数对。自然数对是指两个自然数的和与差都是平方数。如16与20的和16+20=36，16与20的差20-16=4都是平方数，则16和20称自然数对。
如果要将一元人民币换成零钱（换成1分，2分，5分），共有多少种换发？
2. 从键盘输入一行字符，分别统计出其中字母、数字和其他字符的个数；
3.找出所有小于或等于100的自然数对。自然数对是指两个自然数的和与差都是平方数。如16与20的和16+20=36，16与20的差20-16=4都是平方数，则16和20称自然数对。
private sub cmd_click()
dim i,m,n,k as integer
k=0
for i=0 to 100
for m=0 to 50
for n=0 to 20
if(i+2*m+5*n=100) then k=k+1
next n
next m
next i
print k
end sub