题目内容
（请给出正确答案）
[主观题]
输入一个不含有数字0的四位正整数a,计算并输出b、c、d的值。其中,b表示把这个数倒过来;c表示把高两位和低两位交换;d表示把它的各位数字求和。例如,输入“1234”,则输出“4321 3412 10”
提问人：网友lixin080108
发布时间：2022-01-07
如搜索结果不匹配，请 
A. String，""
B. Integer，0
C. Long，0，0
D. Variant，空值
题目内容
（请给出正确答案）
您可能会需要：
安装简答题APP，拍照搜题省时又省心！
更多“输入一个不含有数字0的四位正整数a,计算并输出b、c、d的值…”相关的问题
第2题
如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。
Private Sub Command1 Click（）
Dim n As Long
Dim flag As Boolean
n=InputBox("输入一个正整数")
S=Trim(Str(n))
For i=2 To Len(s)
If Mid(s，i-1，1)
Next i
If i=Len(S)Then flag=True Else flag=False
If flag Then
Print n；"是降序数"
Else
Print n；"不是降序数"
End If
End Sub
运行以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改。以下正确的修改是（）。
A.If i=Len(s)+1 Then flag=False Else flag=True
B.If i=Len(s)+1 Then flag=True Else flag=False
C.If i=Len(s)-1 Then flag=False Else flag=True
D.If i=Len(s)-1 Then flag=True Else flag=False
