急求！！！！！VB代码问题

来源：百度知道编辑：UC知道时间：2024/07/08 01:30:10

第一题
题目：建立应用程序，对两个文本框中输入的内容进行交换。

要求：
单击‘交换1’按钮或‘交换2’按钮时，两个文本框中输入的内容发生交换。单击‘清除’按钮时，清空两个文本框中的内容。
窗体设计：
我在窗体上放置了两个Label控件Caption分别为’输入第一个数、输入第二个数’，两个TextBox控件，四个Command控件分别为‘交换1、交换2、清除、退出’。
代码：
Option Explicit

Private Sub Command1_Click()
Dim temp As Integer
temp = Text1.Text
Text1.Text = Text2.Text
Text2.Text = temp
End Sub

Private Sub Command2_Click()
Dim temp As Integer
temp = Text1.Text
Text1.Text = Text2.Text
Text2.Text = temp
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub

可是只能在文本框里输入数字才能正常交换，不能输入英文字母或中文字。请问为什么，该怎样改才能使数字、字母、中文都能交换？拜托哪位高手帮帮忙，小妹将万分感激！具体点哦！

第二题
题目：根据运动员编号和性别的不同，在列表框选择运动项目，显示该运动员的参赛项目。
窗体设计：
我在窗体上放置了一个文本框Text控件，一个框架Frame控件且它的C

我已经在用VB2008了没有6.0不过可以解决一、三题：
第一题：
Option Explicit

Private Sub Command1_Click()
‘下边是一个字符串，而不是长整型！！！
Dim temp As String
temp = Text1.Text
Text1.Text = Text2.Text
Text2.Text = temp
End Sub

Private Sub Command2_Click()
Dim temp As String
temp = Text1.Text
Text1.Text = Text2.Text
Text2.Text = temp
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub
第三题：
Timer.Enabled是Timer是否启动
Timer.Interval是间隔时间单位是千分之一秒
别的用默认就行！！

急求!!!vb代码求vb登陆代码！急急求VB计算器代码求记事本VB代码急 VB问题求高手给个代码!!!急!!! 急求一个VB程序问题!要代码!!! VB编程问题求代码求VB登陆界面代码~急啊~~~~~ 急求VB代码!!!!!!!!!!(最迟明天中午) 急求VB程序完整代码