①不大于n(n的值是由键盘输入);
②能被9整除;
③十位数是2。
算法流程图如图所示:
Dim n as Integer, x as Integer, s as long
s=0
n=InputBox(“输入四位数上限值”)
For ⑴
If ⑵ and ⑶ Then
S=s+x
End If
Next
⑷
⑴ ⑵ ⑶ ⑷
微信扫码预览、分享更方便