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

《中国石油大学华东vb练习题(大一下).》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、中国石油大学华东VB练习题（大一下）一、时钟二、滚动条三、列表框四、复选框五、单选框六、组合框七、多分枝选择八、定义函数九、TXT十、数组一、时钟程序运行后，每隔2秒命令按钮Command1向右移动100个单位。PrivateSubForm_Load()Timer1.Interval=2EndSubPrivateSubtimer1_timer()CallmymoveEndSubSubmymove()Command1.Left=Command1.Left+200EndSub二、滚动条水平滚动条HScroll1的数值范围0～40

2、00，LargeChange设置为200，SmallChange设置为50，水平滚动条HScroll1的值(Value)代表命令按钮Command1的宽度，当水平滚动条的滑块变化时，命令按钮Command1的宽度随之改变PrivateSubForm_Load()HScroll1.Min=0HScroll1.Max=4000HScroll1.SmallChange=50HScroll1.LargeChange=200Command1.Caption="驻倚靠危楼风细细，无言谁会凭栏意。衣带渐宽终不悔，为伊销得人憔悴"EndSu

3、bPrivateSubHScroll1_Change()Command1.Width=Val(HScroll1.Value)EndSub三、列表框①点击“->”按钮，将左边列表中的选中项移动到右边列表的末尾；点击“<-”按钮，将右边列表中的选中项移动到左边列表的末尾；点击“=>”按钮，将左边列表所有内容移动到右边列表的末尾；点击“<=”按钮，将右边列表所有内容移动到左边列表的末尾。PrivateSubForm_Load()List1.AddItem"A"List1.AddItem"B"List1.AddItem"C"List

4、2.AddItem"d"List2.AddItem"e"EndSubPrivateSubCommand1_Click()i=List1.ListIndexIfi>=0Andi<=List1.ListCount-1ThenList2.AddItemList1.TextList1.RemoveItemiEndIfEndSubPrivateSubCommand2_Click()i=List2.ListIndexIfi>=0Andi<=List2.ListCount-1ThenList1.AddItemList2.TextList2

5、.RemoveItemiEndIfEndSubPrivateSubCommand3_Click()Dimi%Fori=0ToList1.ListCount-1List2.AddItemList1.List(i)NextiList1.ClearEndSubPrivateSubCommand4_Click()Dimi%Fori=0ToList2.ListCount-1List1.AddItemList2.List(i)NextiList2.ClearEndSub②实现追加、插入、修改、删除、清空等5个按钮的功能SubClrLis

6、t(AListAsListBox)Fori=AList.ListCount-1To0Step-1AList.RemoveItemiNextiEndSubPrivateSubCommand1_Click()List1.AddItemText1.TextEndSubPrivateSubCommand2_Click()i=List1.ListIndexWithList1Ifi>=0Andi<=.ListCount-1Then.AddItemText1.Text,iEndWithEndSubPrivateSubCommand3_Cl

7、ick()i=List1.ListIndexIfi>=0Andi<=List1.ListCount-1ThenList1.List(i)=Text1.TextEndIfEndSubPrivateSubCommand4_Click()WithList1If.ListIndex>-1Then_.RemoveItem.ListIndexEndWithEndSubPrivateSubCommand5_Click()ClrListList1'List1.ClearEndSubPrivateSubForm_Load()List1.Cle

8、ar:List1.AddItem"语文":List1.AddItem"数学":List1.AddItem"英语"EndSub③实现第一条、前一条、后一条、最后一条等4按钮的功能PrivateSubform_load()List1.AddItem"财务"List1.AddItem"会计"Li