vb.net这么逆序输出 vba逆序数程序

如何用VB里的print方法输出一个数的逆序？

用VB里的print方法输出一个数的逆序，可以采用数组的办法，也可以采用递归的办法，还可以采用普通的循环的办法。

Private Sub Command1_Click()

x = CLng(InputBox("请输入一个正整数："))

Print "输入的数是："; x

y = ""

While x 0

  y = y x Mod 10

  x = x \ 10

Wend

Print "逆序数是："; y

End Sub

相关问答

Q1: vb输入一个字符串 并将它逆序输出

Option Explicit

Private Sub Command1_Click()

Dim InS As String, S As String, T As String

Dim I As Integer, J As Integer, L As String

Dim C() As String, X As String  InS = InputBox("请输入字符串", "", "1Ae4ui95487KuywY1Z2Faz")

f InS = "" Then Exit Sub

J = Len(InS)

For I = 1 To J

S = Mid(InS, I, 1)

T = T  S  " "

Next I

T = Trim(T)

C = Split(T, " ")

L = UBound(C)

'按逆序排列

Next I

扩展资料：

1、连接运算 concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn.

例：concat(‘11’,'aa’)='11aa’;

2、求子串。 Copy(s,I,I) 从字符串s中截取第I个字符开始后的长度为l的子串。

例：opy(‘abdag’,2,3)=’bda’。

3、删除子串。过程 Delete(s,I,l) 从字符串s中删除第I个字符开始后的长度为l的子串。

例：s:=’abcde’;delete(s,2,3);结果s:=’ae’。

4、插入子串。 过程Insert(s1,s2,I) 把s1插入到s2的第I个位置。

例：s:=abc;insert(‘12’,s,2);结果s:=’a12bc’。

Q2: vb反向输出？

已经完成vb.net这么逆序输出的代码如下vb.net这么逆序输出：

Sub ReverseDigit()

Dim number As Integer, digit As Integer

number = Val(InputBox("请输入一个非负整数"))

If (number 0) Then

Debug.Print number; "不是非负整数vb.net这么逆序输出，请输入非负整数"

Exit Sub

End If

Debug.Print number; "vb.net这么逆序输出的逆序数为:";

Do

digit = number Mod 10 '（1）

number = number \ 10 '（2）

Debug.Print Format(digit, "#");

Loop While (number 0) '（3）

Debug.Print

End Sub

vb.net这么逆序输出的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba逆序数程序、vb.net这么逆序输出的信息别忘了在本站进行查找喔。