[填空题] 下面的程序执行时,可以从键盘输入一正整数,然后把该数的每位数字按逆序输出。例如:输入7685,则输出5867;输入1000,则输出0 0 0 1。请填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox("请输入一个正整数")
While x>______
Print x Mod 10;
x=x10
Wend
Print ______
End Sub
[填空题] 下面的程序执行时,可以从键盘输入一正整数,然后把该数的每位数字按逆序输出。例如:输入7685,则输出5867;输入1000,则输出0 0 0 1。请填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox("请输入一个正整数")
While x>______
Print x Mod 10;
x=x10
Wend
Print ______
End Sub
10 x
任何一个正整数与10相除的余数都是这个正整数的个位数字,为了将由键盘输入的正整数的每位数字按逆序输出,每次循环先输出该数的个位数字,再利用整除运算将该数的个位数字去掉,以此类推。在第[14]空处应该填循环执行条件判断,此处填10,在只有一位数的情况下退出循环;第[15]空填写x,输出最后一位数。若第[14]空填0,则第[15]空无须填写,请读者思考。
VIP截止日期:2024-12-31 09:30:54
←请使用支付宝扫码支付VIP截止日期:2024-12-31 09:30:54
←请使用微信扫码支付