( 9 ) 下面的程序执行时 , 可以从键盘输入一个正整数 , 然后把该数的每位数字按逆序输出 。 例如 : 输入 7685 ,则输出 5867 ,输入 1000 ,则输出 0001 。请填空。Private Sub Command1_Click()Dim x As Integerx=InputBox( “ 请输入一个正整数 ” )While x_ _[11] ___Print x Mod 10;x=x\10WendPrint__ [12] __End Sub
( 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
相关考题:
下面的程序执行时,可以从键盘输入一个正整数,然后把该数的每位数字按逆序输出。例如:输入7685,则输出5 8 6 7;输人1000,则输出0 0 0 1。请填空。 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
从键盘输入一个3位数的正整数,将其反向输出(如输入123,输出321)。 提交要求: (1)把程序代码和运行结果并排显示,进行截图直接提交到“答案区”。 (2)把程序代码保存到一个文本文件中(如: 1.txt),并上传附件。
编写程序,从键盘输入一个5位正整数,然后求出它的个位数、十位数、百位数、千位数和万位数,并按下面的格式,打印出这五位数字的和。 例如, 输入: 12345 打印出: 15(1+2+3+4+5=15)。
编写一个程序,从键盘输入一个四位整数n,输出它的各位数字之和,并逆序输出。 例如:n=1203,则输出6,3021 n=3024,则输出9,4203