( 9 ) 下面的程序执行时 , 可以从键盘输入一个正整数 , 然后把该数的每位数字按逆序输出 。 例如 : 输入 7685 ,则输出 5867 ,输入 1000 ,则输出 0001 。请填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox( “ 请输入一个正整数 ” )
While x>_ _[11] ___
Print x Mod 10;
x=x\10
Wend
Print__ [12] __
End Sub
第1题:
从键盘输入一个4位整数,按如下规则加密后输出。加密规则:每位数字都加上7,然后用和除以10的余数取代该数字;再把第一位与第三位交换,第二位与第四位交换。
第2题:
从键盘输入一个3位数的正整数,将其反向输出(如输入123,输出321)。 提交要求: (1)把程序代码和运行结果并排显示,进行截图直接提交到“答案区”。 (2)把程序代码保存到一个文本文件中(如: 1.txt),并上传附件。
第3题:
编写一个程序,从键盘输入一个四位整数n,输出它的各位数字之和,并逆序输出。 例如:n=1203,则输出6,3021 n=3024,则输出9,4203
第4题:
如果一个正整数的所有因子之和等于该正整数,则称这个正整数为完全数,编写程序读入n ,输出不超过n 的全部完全数。 (提示:例如6=1+2+3是一个完数)。
第5题:
编写程序,从键盘输入一个5位正整数,然后求出它的个位数、十位数、百位数、千位数和万位数,并按下面的格式,打印出这五位数字的和。 例如, 输入: 12345 打印出: 15(1+2+3+4+5=15)。