vb程序填空题(共50页).doc

三、填空题1、【程序说明】下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。PrivateSubForm_Click()DimnAsInteger,aAsInteger,bAsInteger,cAsIntegerDimxAsIntegerFora=0to9个位数数码 Forb=0To9十位数数码Forc=-1-IfabAndbcAndacThenx=a+10*(b+10*c) n=-2-3- Ifnmod15=0ThenPrintEndIfNextc,b,aPrint总共有这