求教1个VB问题,谢谢了~~~

来源:百度知道 编辑:UC知道 时间:2024/05/27 05:21:27
在窗体上创建一个标签,标题为“猜测密码”,一个初值为空的文本框T1,另外再添加两个名称分别为C1和C2,标题为“确定”和“退出”的命令按钮。编写适当的程序代码,使得程序运行时在文本框内输入猜测的密码信息,单击“确定”按钮,如果输入的为“12345”,则弹出一个输出对话框提示“恭喜,猜对了”,关闭对话框后将文本框禁用;若输入为其他信息,将弹出“遗憾,密码猜测失败”的对话框提示,并询问用户是否继续猜测,对话框包含“是”与“否”按钮,若用户选择“是”,则清空文本框原猜测的密码,进行下次猜测,若选择“否”,则文本框被禁用。单击“退出”按钮时,程序终止运行。(程序界面及运行结果见附图)
提示:通过MsgBox函数可以设置对话框的按钮类型,并可通过该函数的返回值判断用户单击的按钮名称为“是”还是“否”。
只有这么点分了,谢谢了,我们刚刚在学,不会做...

Private Sub C1_Click()

If T1.Text = "12345" Then

   MsgBox ("恭喜,猜对了")

   T1.Enabled = False

Else

   res = MsgBox("遗憾,密码猜测失败 是否继续?", vbInformation + vbYesNo)

   If res = vbYes Then

      T1.Text = ""

      T1.SetFocus

   ElseIf res = vbNo Then

      T1.Enabled = False

   End If

End If

End Sub

Private Sub C2_Click()

End

End Sub

运行结果如图:

小女诚心求教vb基本问题,谢谢了~ 求教个vb Internet控件的问题 关于N70的多个问题.!小弟求教了.谢谢.! 求教VB编程问题 求教VB问题? 新手求教VB问题 求教:vb参数问题 VB的问题 !求教 求教VB代码问题 求教vb问题