输入两个不同的数,交换数据,显示出来 (写代码,设计界面)用VB编写

显示全部楼层 · 2008-11-26 23:37:32

Private Sub Command1_Click() Text3.Text = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = "" End Sub Private Sub Form_Load() Command1.Caption = "交换" Text3.Visible = False End Sub 建3个文本一个按钮代码如上~ 可以将TEXT3设置为隐藏 ============或者这样更简单 2个文本就可以了一个按钮Private Sub Command1_Click() ...

千问 · 2008-11-26 23:37:32

这是一种新算法，想一下Private Sub Command1_Click() Text1.Text = Text1.Text+Text2.Text Text2.Text = Text1.Text-Text2.Text Text1.Text = Text1.Text-Text2.Text End Sub Private Sub F...

千问 · 2008-11-26 23:37:32

textbox1.text="a"textbox2.text="b"dim c as integerc=aa=bb=ctextbox1.text="a"textbox2.text="b"...