中国石油大学华东VB练习题大一下汇总VIP免费

中国石油大学华东VB练习题（大一下）一、时钟二、滚动条三、列表框四、复选框五、单选框六、组合框七、多分枝选择八、定义函数九、TXT十、数组一、时钟程序运行后，每隔2秒命令按钮Command1向右移动100个单位。PrivateSubForm_Load()Timer1.Interval=2EndSubPrivateSubtimer1_timer()CallmymoveEndSubSubmymove()Command1.Left=Command1.Left+200EndSub二、滚动条水平滚动条HScroll1的数值范围0～4000，LargeChange设置为200，SmallChange设置为50，水平滚动条HScroll1的值(Value)代表命令按钮Command1的宽度，当水平滚动条的滑块变化时，命令按钮Command1的宽度随之改变PrivateSubForm_Load()HScroll1.Min=0HScroll1.Max=4000HScroll1.SmallChange=50HScroll1.LargeChange=200Command1.Caption="驻倚靠危楼风细细，无言谁会凭栏意。衣带渐宽终不悔，为伊销得人憔悴"EndSubPrivateSubHScroll1_Change()Command1.Width=Val(HScroll1.Value)EndSub三、列表框①点击“->”按钮，将左边列表中的选中项移动到右边列表的末尾；点击“<-”按钮，将右边列表中的选中项移动到左边列表的末尾；点击“=>”按钮，将左边列表所有内容移动到右边列表的末尾；点击“<=”按钮，将右边列表所有内容移动到左边列表的末尾。PrivateSubForm_Load()List1.AddItem"A"List1.AddItem"B"List1.AddItem"C"List2.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.RemoveItemiEndIfEndSubPrivateSubCommand3_Click()Dimi%Fori=0ToList1.ListCount-1List2.AddItemList1.List(i)NextiList1.ClearEndSubPrivateSubCommand4_Click()Dimi%Fori=0ToList2.ListCount-1List1.AddItemList2.List(i)NextiList2.ClearEndSub②实现追加、插入、修改、删除、清空等5个按钮的功能SubClrList(AListAsListBox)Fori=AList.ListCount-1To0Step-1AList.RemoveItemiNextiEndSubPrivateSubCommand1_Click()List1.AddItemText1.TextEndSubPrivateSubCommand2_Click()i=List1.ListIndexWithList1Ifi>=0Andi<=.ListCount-1Then.AddItemText1.Text,iEndWithEndSubPrivateSubCommand3_Click()i=List1.ListIndexIfi>=0Andi<=List1.ListCount-1ThenList1.List(i)=Text1.TextEndIfEndSubPrivateSubCommand4_Click()WithList1If.ListIndex>-1Then_.RemoveItem.ListIndexEndWithEndSubPrivateSubCommand5_Click()ClrListList1'List1.ClearEndSubPrivateSubForm_Load()List1.Clear:List1.AddItem"语文":List1.AddItem"数学":List1.AddItem"英语"EndSub③实现第一条、前一条、后一条、最后一条等4按钮的功能PrivateSubform_load()List1.AddItem"财务"List1.AddItem"会计"List1.AddItem"国贸"List1.AddItem"营销"List1.AddItem"工管"PrivateSubCommand1_Click()List1.Text=List1.List(0)EndSubPrivateSubCommand2_Click()List1.Text=List1.List(List1.ListIndex-1)EndSubPrivateSubCommand3_Click()List1.Text=List1.List(List1.ListIndex+1)EndSubPrivateSubCommand4_Click()List1.Text=List1.List(List1.ListCount-1)EndSub四、复选框①窗体中4个复选框分别代表4各班级，复选框中的标题文字代表班级人数，用户选择复选框后，点击命令按钮Command1，程序计算出所选班级的总人数，结果放入文本框Text1中。PrivateSubCommand1_Click()Dims%IfCheck1.Value=1Thens=s+Val(Check1.Caption)EndIfIfCheck2.Value=1Thens=s+Val(Check2.Caption)EndIfIfCheck3.Value=1Thens=s+Val(Check3.Caption)EndIfIfCheck4.Value=1Thens=s+Val(Check4.Caption)EndIfText1.Text=Str(s)EndSubPrivateSubForm_Load()Check1.Caption=30Check2.Caption=28Check3.Caption=31Check4.Caption=29Label1.Caption="人数"Text1.Text=""EndSub②用户选择复选框后，点击命令按钮Command1，程序根据复选框对文本框Text1中的字体进行相应的设置。Privat...