给一个不多于5位的正整数，要求1，求出它是几位数！2分别打印出每一位数字！3按逆序打印出各数字！！

比如给出的是12345，那么，它是5位数，
每一位分别是1，2，3，4，5，
按逆序是5，4，3，2，1

比如给出的是1234，那么，它是4位数，
每一位分别是1，2，3，4，
按逆序是4，3，2，1

Private Sub Command1_Click()
Dim x As String
Dim y As Integer
y = InputBox("请输入一个正整数")
x = CStr(y)
Print x; "是个"; Len(x); "位数"
Print "各位数字依次为："
For i = 1 To Len(x)
Print Mid(x, i, 1),
Next i
Print "逆序排列为:"
For i = 1 To Len(x)
Print Mid(x, Len(x) - i + 1, 1),
Next i
Print
End Sub

package comm.db2;

/**
* @author jifei
*
*/
public class Order {
String str1 = "";

int tempi = 0;

public Order() {

}

public Order(String temp) {
str1 = temp;
tempi = str1.length();
}

/**
* 得到最小的
*
* @param temp
* @return
*/
public String getMin(String temp) {
t