【高人指点】VB代码编写要求在text1中输入三位整数,点击确定后在text2中逆序输出。

2025-03-07 00:06:22
推荐回答(2个)
回答1:

、通过算术运算实现:"逆序后的数是:"
&
D
2、通过字符串运算实现:
Dim
S
As
string,
D
As
string
S
=
InputBox("请输入三位整数:";
10
Mod
10)
*
10
+
S
\,
D
As
Integer
S
=
InputBox("请输入三位整数:",
"输入")
D
=
right(S,1)
&
mid(
S
2,1)
&
left(S,1)
MsgBox
"逆序后的数是:
Dim
S
As
Integer;
100
MsgBox
",
"输入")
D
=
(S
Mod
10)
*
100
+
(S
\

回答2:

1、通过算术运算实现:
dim
s
as
integer,
d
as
integer
s
=
inputbox("请输入三位整数:",
"输入")
d
=
(s
mod
10)
*
100
+
(s
\
10
mod
10)
*
10
+
s
\
100
msgbox
"逆序后的数是:"
&
d
2、通过字符串运算实现:
dim
s
as
string,
d
as
string
s
=
inputbox("请输入三位整数:",
"输入")
d
=
right(s,1)
&
mid(
s
2,1)
&
left(s,1)
msgbox
"逆序后的数是:"
&
d