杂做啊？VB

来源：百度知道 编辑：UC知道 时间：2024/09/21 23:43:13
（1）在名称为Form1的窗体上画一个文本框，名称为Text1；再画一个命令按
钮，名称为C1，标题为"移动"（如图所示）。请编写适当的事件过程，
使得在运行时，单击"移动"按钮，则文本框水平移动到窗体的最左端。
程序中不得使用任何变量。

（2）在名称为Form1的窗体上画二个文本框，名称分别为T1、T2，初始情况下
都没内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何
字符，立即显示在T2中（如图所示）。程序中不得使用任何变量。

（3）在窗体上画二个文本框，名称分别为Text1、Text2。请设置适当的控件属
性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个
字符，则显示一个"*"，同时在Text2中显示输入的内容（如图所示）。
程序中不得使用任何变量。

（4）在名称为Form1的窗体上画一个文本框，名称为Text1；再画二个命令按
钮，名称分别为C1、C2，标题分别为"隐藏"、"显示"（如图所示）。
请编写适当的事件过程，使得在运行时，如果单击"隐藏"按钮，则文本
框消失，而如果单击"显示"按钮，则文本框显示出来。程序中不得使用
任何变量。

第一题
Private Sub Command1_Click()
Text1.Left = 0
End Sub
第二题
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub
第三题
在text1属性栏 passwordchar 属性 输入 *
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub

第四题

Private Sub Command1_Click()
Text1.Visible = fasle
End Sub
Private Sub Command2_Click()
Text1.Visible = True
End Sub

晕,这么简单的问题啊,你到底在读书没有????
一题
Private Sub Command1_Click()
Text1.Left = 0
End Sub
二题
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub
三题 在二题机楚上加上这个
Private Sub Form_Load()
Text1.PasswordChar = "*"
End Sub
四题
Private Sub Command1_Click()
Text1.Visible = False
End Sub
Private Sub Command2_Click()
Text1.Visible = True
End Sub

LZ有我当年的作风啊~！
我补充下上面的：给控件命名名称的时候要选中控件然后在右边的属性界面最上面的那个“名称”的右边输入题目要求的名称就可以了
顺便补充下：我现在后悔当年的作风了~！