Question

一道VB基础题目

【提高题】 窗体上有两个名称分别为C1, C2的命令按扭，一个文本框Text1。命令按钮的标题及文本框上显示的字符自定。编程实现当按下C1时，将C2的标题与Text1中的内容交换。（要求做到连续按下C1，每次都能交换内容）

Answer 1

private sub C1_click()
dim temp as string
temp=C2.caption
C2.caption=text1
text1=temp
end sub

Answer 2

// C1按钮Click代码

Dim str As String
str = C2.Caption
C2.Caption = Text1.Text
Text1.Text = str

Answer 3

一道VB特难题啊，吧我难到了

Answer 4

Option
Explicit
Private
Sub
Form_Load()
On
Error
Resume
Next
Dim
i,
d1,
d2,
d3,
d4
As
Integer
i
=
CInt(InputBox("请输入一个四位数",
"输入",
"1234"))
If
i
>
9999
Or
i
<
1000
Then
MsgBox
"输入有误!"
Else
d1
=
i
\
1000
d2
=
(i
Mod
1000)
\
100
d3
=
(i
Mod
100)
\
10
d4
=
i
Mod
10
MsgBox
"千位数："
&
d1
&
vbCrLf
&
_
"百位数："
&
d2
&
vbCrLf
&
_
"十位数："
&
d3
&
vbCrLf
&
_
"个位数："
&
d4
&
vbCrLf
End
If
End
End
Sub
你直接复制运行即可