VB程序编程 一个两位数 要求把各位和十位上的数字交换位置 这个程序如何编写？

发布网友 发布时间：2022-04-24 18:59

我来回答

共5个回答

热心网友 时间：2023-10-02 16:51

用a代表那个数， k= a mod 10这是个位的。n=a\10这是十位的。。a=k*10+n，现在个位跟十位就交换了！！！

热心网友 时间：2023-10-02 16:51

新建窗体 添加以下代码,按F5运行,测试已通过

Private Sub Form_Load()
Dim a As String
re:
a = InputBox("请输入一个两位数")
If Len(Trim(a)) <> 2 Then
MsgBox "请输入一个两位数", vbCritical
GoTo re
End If
MsgBox "你输入的是:" & a & vbCrLf & "交换后是:" & Right(a, 1) & Left(a, 1)
End
End Sub

热心网友 时间：2023-10-02 16:52

这个数整除10就得到了十位上的数字，这个数和10取模就得到了个位上的数

热心网友 时间：2023-10-02 16:52

三沃网络提醒：请你到这个网3wow.mobi上站长论坛里看看看“你说的不明白”

热心网友 时间：2023-10-02 16:53

这么简单都不会