![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
一道VB基础题目
【提高题】窗体上有两个名称分别为C1,C2的命令按扭,一个文本框Text1。命令按钮的标题及文本框上显示的字符自定。编程实现当按下C1时,将C2的标题与Text1中的内容...
【提高题】 窗体上有两个名称分别为C1, C2的命令按扭,一个文本框Text1。命令按钮的标题及文本框上显示的字符自定。编程实现当按下C1时,将C2的标题与Text1中的内容交换。(要求做到连续按下C1,每次都能交换内容)
展开
4个回答
展开全部
private sub C1_click()
dim temp as string
temp=C2.caption
C2.caption=text1
text1=temp
end sub
dim temp as string
temp=C2.caption
C2.caption=text1
text1=temp
end sub
展开全部
// C1按钮Click代码
Dim str As String
str = C2.Caption
C2.Caption = Text1.Text
Text1.Text = str
Dim str As String
str = C2.Caption
C2.Caption = Text1.Text
Text1.Text = str
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
一道VB特难题啊,吧我难到了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
你直接复制运行即可
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
你直接复制运行即可
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询