(密码修改.docVIP

密码修改： Private Sub Command1_Click() Dim mypw As String mypw = 1 Const user As String = 1 If Text1.Text = user And Text2.Text = mypw Then If Text3.Text = Text4.Text Then MsgBox (密码修改成功) mypw = Text3.Text Else MsgBox (密码不一致，请重新输入) Text1.SetFocus End If Else MsgBox (你输入的密码有误) End If End Sub Private Sub Command2_Click() End End Sub （1）窗体的标题为添加与删除，固定边框。（2）在窗体中引入一个文本框Text1，再在文本框的下面引入一个列表框List1，列表框内容中有四项，分别为Word、Excel、PowerPoint、Outlook。（3）单击添加按钮（Command1），将文本框中的内容加到列表框中的第一题，如果文本框中没有内容，则给出提示没有内容，不予添加。（4）单击删除按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示请选择删除的项目。 Private Sub Form_Load() Form1.Caption = 添加与删除 Text1.Text = List1.AddItem Word List1.AddItem Excel List1.AddItem PowerPoint List1.AddItem Outlook End Sub Private Sub Command1_Click() If List1.ListIndex = -1 Then MsgBox (请选择删除的项目) Else List1.RemoveItem List1.ListIndex End If End Sub Private Sub Command2_Click() If Text1.Text = Then MsgBox (没有内容，不予添加) Else List1.AddItem Text1.Text, 0 Text1.Text = End If End Sub Private Sub Command3_Click() List1.Index End Sub 窗体的标题为加法器，固定边框。（2）在窗体上从到下依次引入Text1、Text2、Text3三个文本框，三个文本框的对齐方式均为右对齐。（3）上面两个文本框用于输入加数，要求不接受非数字键(4）下面一个文本框用于显示和，它不能进行编辑操作。（5）单击=按钮（Command1），将两个加数的和显示在下面一个文本框中.（6）单击清空按钮（Command2），三个文本框内容都被清空，同时第一个文本框获得焦点。 Private Sub Command1_Click() Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text)) End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus End Sub Private Sub Form_Load() Form1.Caption = 加法器 文本框清空 Text1.Text = Text2.Text = Text3.Text = 设置文本框右对齐 Text1.Alignment = 1 Text2.Alignment = 1 Text3.Alignment = 1 屏蔽对Text3的编辑 Text3.Locked = True Label1.Caption = + Command1.Caption = ＝ Command2.Caption = 清空 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57, 8 Case Else KeyAscii = 0 End Select End Sub Private Sub Text2_KeyPr