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

中国石油大学华东VB练习题 （大一下） 一、时钟 二、滚动条 三、列表框 四、复选框 五、单选框 六、组合框 七、多分枝选择 八、定义函数 九、TXT 十、数组 一、时钟 程 序 运 行 后 ，每 隔 2 秒 命 令 按 钮 Command1 向 右 移 动 100 个 单 位 。 Private Sub Form_Load() Timer1.Interval 2 End Sub Private Subtimer1_timer() Callmymove 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 Ifi 0Andi List1.ListCount - 1Then List2.AddItem List1.Text List1.RemoveItem i EndIf End Sub Private Sub Command2_Click() i List2.ListIndex Ifi 0Andi List2.ListCount - 1Then List1.AddItem List2.Text List2.RemoveItem i EndIf End Sub Private Sub Command3_Click() Dim i% For i 0ToList1.ListCount - 1 List2.AddItem List1.List(i) Next i List1.Clear End Sub Private Sub Command4_Click() Dim i% For i 0ToList2.ListCount - 1 List1.AddItem List2.List(i) Next i List2.Clear End Sub ② 实现追加、插入、修改、删除、清空等 5个按钮的功能 Sub ClrList(AListAsListBox) For i AList.ListCount - 1To0 Step -1 AList.RemoveItem i Next i End Sub Private Sub Command1_Click() List1.AddItemText1.Text End Sub Private Sub Command2_Click() i List1.ListIndex WithList1 Ifi 0Andi .ListCount - 1Then .AddItemText1.Text,i EndWith End Sub Private Sub Command3_Click() i Li