中国石油大学华东VB练习题(大一下)要点.doc

中国石油大学华东VB练习题（大一下） 一、时钟 二、滚动条 三、列表框 四、复选框 五、单选框 六、组合框 七、多分枝选择 八、定义函数 九、TXT 十、数组 一、时钟 程序运行后，每隔2秒命令按钮Command1向右移动100个单位。 Private Sub Form_Load() Timer1.Interval = 2 End Sub Private Sub timer1_timer() Call mymove End Sub Sub mymove() Command1.Left = Command1.Left + 200 End Sub 二、滚动条 水平滚动条HScroll1的数值范围0～4000，LargeChange设置为200，SmallChange设置为50，水平滚动条HScroll1的值(Value)代表命令按钮Command1的宽度，当水平滚动条的滑块变化时，命令按钮Command1的宽度随之改变 Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = 4000 HScroll1.SmallChange = 50 HScroll1.LargeChange = 200 Command1.Caption = 驻倚靠危楼风细细，无言谁会凭栏意。衣带渐宽终不悔，为伊销得人憔悴 End Sub Private Sub HScroll1_Change() Command1.Width = Val(HScroll1.Value) End Sub 三、列表框 ① 点击“-”按钮，将左边列表中的选中项移动到右边列表的末尾；点击“-”按钮，将右边列表中的选中项移动到左边列表的末尾；点击“=”按钮，将左边列表所有内容移动到右边列表的末尾；点击“=”按钮，将右边列表所有内容移动到左边列表的末尾。 Private Sub Form_Load() List1.AddItem A List1.AddItem B List1.AddItem C List2.AddItem d List2.AddItem e End Sub Private Sub Command1_Click() i = List1.ListIndex If i = 0 And i = List1.ListCount - 1 Then List2.AddItem List1.Text List1.RemoveItem i End If End Sub Private Sub Command2_Click() i = List2.ListIndex If i = 0 And i = List2.ListCount - 1 Then List1.AddItem List2.Text List2.RemoveItem i End If End Sub Private Sub Command3_Click() Dim i% For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i) Next i List1.Clear End Sub Private Sub Command4_Click() Dim i% For i = 0 To List2.ListCount - 1 List1.AddItem List2.List(i) Next i List2.Clear End Sub ② 实现追加、插入、修改、删除、清空等5个按钮的功能 Sub ClrList(AList As ListBox) For i = AList.ListCount - 1 To 0 Step -1 AList.RemoveItem i Next i End Sub Private Sub Command1_Click() List1.AddItem Text1.Text End Sub Private Sub Command2_Click() i = List1.ListIndex With List1 If i = 0 And i = .ListCount - 1 Then .AddItem Text1.Text, i End With End Sub Private Sub Command3_Click() i = List1.ListIndex If i = 0 And i = List1.ListCount - 1 Then List1.List(i) = Text1.Text End If End Sub Private Sub Com