Private Sub Command1_Click()If Text1.Text = Label2.Caption Then Label1.Caption = "哈哈，被看出规律了！不过这是测试版，不想难为你而已！这里面是我的一些个人资料，你想了解些什么呢？": Option1.Visible = True: Option2.Visible = True: Option3.Visible = True: Option4.Visible = True: Option5.Visible = True Else If Text1.Text = "西方贝草" Then Label1.Cap...