PAGEPAGE4環(huán)境的搭建仿真軟件VssConfig.exe建立客戶端建立項目設(shè)置工作路徑2、數(shù)據(jù)庫設(shè)計2．1在文件夾下面的數(shù)據(jù)庫中建立如下表格：studentpksnofkcnosnamesageclasspkcnopkcnmefkschnoscorecmsgschoolpkschnopkschnamefkcnoschmsg注意：1.在對數(shù)據(jù)庫理解的基礎(chǔ)上設(shè)計以上表內(nèi)容。2.表中的所有字段數(shù)據(jù)類型都為字符型。3.不需要設(shè)置表間的關(guān)系。2．2數(shù)據(jù)流圖下圖是某學(xué)校教務(wù)處理系統(tǒng)的數(shù)據(jù)流圖：該教務(wù)系統(tǒng)完成以下功能：報名處理系統(tǒng)：通過學(xué)生提供的報名單，為學(xué)生編制學(xué)生準考證；成績處理分析系統(tǒng)：通過學(xué)生成績單，為學(xué)生發(fā)放錄取通知單；分析學(xué)生成績生成成績分析表和試題難度分析表；要求：刪除0層圖中多余的部分；將1層圖中缺少的數(shù)據(jù)流補充完整。、]答：0層圖多成績冊1層圖少輸入報名單輸出準考證3、編程題3．1使用VB應(yīng)用程序新建一個工程，如圖：要求：按照圖片樣式設(shè)置窗體標(biāo)題；在窗體上建立兩個按鈕高度為300，寬度為800；不論在任何情況下，只要按enter鍵，表示執(zhí)行“是”按鈕，只要按esc鍵，表示執(zhí)行“否”按鈕；完成后一3.1為名保存在相應(yīng)的文件夾下面。答：將“是”Tabindex屬性設(shè)置為0；將“否”Cancel屬性設(shè)置為True3.2打開相應(yīng)文件夾中的3.2.vbp,要求完成當(dāng)單擊添加按鈕時，右邊列表框中的項目將會移動到左邊列表框中；當(dāng)單擊清除按鈕時，左邊列表框中的項目將會回到右邊列表框中。/(multisselect(0-None)(1-simplt)(2-extended)0不多選，1鼠標(biāo)多選，2CTRL多選注意：不可以改動題目中原有的設(shè)置和代碼。代碼：PrivateSubCommand1_Click()Fori=0ToList2.ListCount–1 /從list2里面的0個數(shù)據(jù)到7減1個數(shù)據(jù)IfList2.Selected(i)=TrueThen /如果list2有選擇，那么List1.AddItemList2.List(i) /在list1加上list2里選中的數(shù)據(jù)EndIf /結(jié)束NextI /下一個IFori=List2.ListCount-1To0Step-1 /從list2.listcountIfList2.Selected(i)=TrueThen /如果list2有選擇List2.RemoveItemI /list2卸載&隱藏數(shù)據(jù)iEndIf /結(jié)束NextiEndSub———————————————————————————————————————PrivateSubCommand2_Click()List2.AddItemList1.text /list1的數(shù)據(jù)加到list2中List1.RemoveItemlistIndex /list1的卸載數(shù)據(jù)EndSubPrivatesubcommand1_click()DimkasintegerFork=list2.listcount-1to0step-1Iflist2.selected(K)thenList1.additemlist2.list(k)List2.remoreitemkEndifNextk3.3設(shè)置界面如下圖所示：要求單選按鈕使用控件數(shù)組DimkAsLongDimtAsInteger————————————————————————————————————PrivateSubCommand1_Click()k=1Fori=0To2Ifop1(i).Value=TrueThent=Val(Left(op1(i).Caption,2))EndIfNextiForj=tTo1Step-1k=k*jNextjText1.Text=kEndSub———————————————————————————————————————PrivateSubForm_Unload(CancelAsInteger)Callunload_subEndSub———————————————————————————————————————Subunload_sub()DimnAsIntegerFori=0To2IfForm1.op1(i).Value=TrueThenn=Val(Left(Form1.op1(i).Caption,2))EndIfNextiOpenApp.Path+"\a.txt"ForOutputAs#1Print#1,n;Form1.Text1.TextClose#1EndSub程序調(diào)試題(1)、打開高級控件：MicrosoftCommonDialogControl6.0PrivateSubCommand1_Click()DimaAsStringCD1.Filter="所有文件|*.*|文本文件|*.txt|圖象文件|*.jpg|"CD1.FilterIndex=2CD1.ShowOpenOpenCD1.FileNameForInputAs#1Input#1,aClose#1Text1.Text=aEndSub———————————————————————————————————————PrivateSubCommand2_Click()Text1.Text=UCase$(Text1.Text)EndSub———————————————————————————————————————PrivateSubCommand3_Click()CD1.Action=2OpenCD1.FileNameForOutputAs#1Print#1,Text1.TextClose#1EndSub(2)、注冊Form1:PrivateSubCommand1_Click()Form2.ShowForm2.PrintForm1.L1.Caption;Form1.Text1.TextForm2.PrintForm1.L2.Caption;Form1.Text2.TextForm2.PrintForm1.L3.Caption;Form1.Combo1.TextEndSub———————————————————————————————————————PrivateSubForm_Load()Text2.PasswordChar