vb第六章习题选（求指正）(ˉ▽￣ /) ~~

1、 编写程序，用文本框检查口令输入。在窗体上建立一个文本框、一个图片框和三个命令  按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中；在文本框中输入口令；单击第二个命令按钮，检查输入口令是否正确。如果正确，则在图片框中显示图形；否则显示信息框，要求重新输入，此时调用第一个命令按钮的Click 事件过程，重新在文本框中输入口令，直到输入口令正确为止。如果单击“结束”按钮，则结束程序。画出界面设计，属性列表，写出相关事件过程代码。

[code]Option Explicit

Private Sub Command1_Click()
Text1.Text = ""
Text1.SetFocus '移动光标到文本框中

End Sub

Private Sub Command2_Click()
If Text1 = "芝麻开门" Then
Picture1.Picture = LoadPicture("C:\Users\Administrator\Pictures\沙溪夜景4.jpg") '代码装入图片
Else
MsgBox("输错了笨蛋，再给你一次机会") 'msgbox不需要再输出或赋值

Call Command1_Click '调用第一个命令按钮的click事件
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_Change()
Text1.PasswordChar = "*"
End Sub

倒数第二行'代码设置密码不可见/滑稽；听说设置了这个就不支持中文密码了，但在实际操作中选中text1原有文字(caption)以后是可以键入中文的<(*￣▽￣*)/

标答定义了一个password和一个msg，便于更改密码以及msg的输出信息。嗯，应该像标答一样用代码来设置控件属性，就不需要再去翻滚属性窗口，与密密麻麻的小字作斗争了啊哈哈哈哈哈拯救我的眼睛(ˉ▽￣～)~~

2、编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮，程序运行后，在第一个列表框中选择所需要的项目，单“添加”按钮，把所选择的项目移到第二个列表框中。如果单击“删除”按钮，则执行相反的操作。在第二个列表框中，允许同时选择多个项目，要求在每个列表框的下面用标签控件显示各自的STYLE和SORTED属性。

[code]Option Explicit

Private Sub Command1_Click()
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End Sub

Private Sub Command2_Click()
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
End Sub

Private Sub Form_Load()
Command1.Caption = "添加"
Command2.Caption = "删除"

Label1.Caption = "Style=" & List1.Style & Chr$(10) + Chr$(13) & "Sorted=" & List1.Sorted
Label2.Caption = "Style=" & List2.Style & Chr$(10) + Chr$(13) & "Sorted=" & List2.Sorted

List1.FontSize = 14
List2.FontSize = 14
List1.AddItem "祗艺人帅"
List1.AddItem "祗艺人最帅"
List1.AddItem "祗艺人是最帅的"
List1.AddItem "祗艺人是世上最帅"
List1.AddItem "祗艺人是全宇宙最帅"
End Sub

其实“用标签控件显示属性”这个地方并不会 - -|| 百度告诉我像17/18行这样做（需要添加的说明部分“Style=”与其它元素用&连接）但如此只能显示style的代数值“Style=0”而不是示例中的“Style=Standard”

另外我这个做法其实有一个bug，就是如果在list1中不选择任何项目，点击“添加”就会出错；list2中不选择项目的话也会依照添加顺序删除返回list1.下面xjnzhidao同学的做法就不存在这个bug 感谢xjnzhidao（但在list2多选项目时，单击“删除”时不会一次性返回list1而是一个个回去o(╥﹏╥)o···）

[code]Private Sub Command1_Click()
If List1.SelCount > 0 Then
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If
End Sub

Private Sub Command2_Click()
If List2.SelCount > 0 Then
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
End If
End Sub

另外，要使list2显示示例中的类似复选框的方式，应该设定style为1-checkbox。这个只读属性是不能用代码设置的

3、编写程序，用计时器按秒计时，同时响铃、字体大小变化。

这题主要是计时器的运用。蛮有趣的这个玩意儿

[code]Option Explicit
Private Sub Form_Load()
Text1.FontSize = 14
Text1.Text = "来自博主铺天盖地的帅"
Text1.FontName = "微软雅黑"
Timer1.Interval = 1000
End Sub
Private Sub Label1_change()
Beep
End Sub
Private Sub Timer1_Timer()
Label1.FontSize = 36
Label1.FontName = "times new roman"
Label1.Caption = Time$
If Text1.FontSize < 100 Then
Text1.FontSize = Text1.FontSize * 1.2
Else
Text1.FontSize = 10
End If
End Sub