VisualBasic程序設(shè)計(jì)作業(yè)答案

PAGEPAGE4VisualBasic程序設(shè)計(jì)作業(yè)答案作業(yè)2一、選擇題1．B2．C3．D4．B5．D6．A7．B8．C9．A10．D11．C12．B13．D14．C15．A16．B17．C18．B19．D20．B二、填空題1．下拉式菜單彈出式菜單2．打開(kāi)另存為顏色字體打印3．文本框列表框4．OptionBase15．Call語(yǔ)句6．工程工程屬性通用Form1.Show7．08．Sub過(guò)程的過(guò)程名不能返回值，而Function過(guò)程能通過(guò)過(guò)程名返回值9．窗體模塊標(biāo)準(zhǔn)模塊類(lèi)模塊10．移出內(nèi)存無(wú)效狀態(tài)11．（1）2*Cos*Sin/(2*)(2)Sqr(s*(s-a)*(s-b)*(s-c))(3)Sin(45*3.14/180)12．（1）x>=1Andx<12(2)A+B>=COra-c<=c(3)a>0Andb>0Or(a<0Andb<0)13．False14．ForWhileDo15．3三、閱讀下列程序，給出程序運(yùn)行結(jié)果。1．程序運(yùn)行后，單擊窗體，輸出結(jié)果為：5050。2．3．4．3.435．*************************四、程序設(shè)計(jì)題1．PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<100Theny=xElseIfx<200Theny=9.5*xElseIfx<300Theny=0.9*xElseIfx<500Theny=0.8*xElsey=0.7*xEndIfEndIfEndIfEndIfText2.Text=yEndSub2．PrivateSubForm_Load()DimxAsIntegerx=100DoUntilx>200IfxMod3<>0ThenText1.Text=Text1.Text&Str(x)&Chr(13)&Chr(10)EndIfx=x+1LoopEndSubList1.AddItem"呂曉燁"List1.AddItem"趙巍"List1.AddItem"袁莉"List1.AddItem"王津"List1.AddItem"何小渴"List1.AddItem"崔寧"List1.AddItem"陳曦"List1.AddItem"劉偉楠"EndSubPrivateSubCommand1_Click()IfText1.Text<>""ThenList1.AddItemText1.TextText1.Text=""ElseMsgBox"請(qǐng)?jiān)谖谋究蛑休斎胄畔ⅲ?EndIfEndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexEndSubPrivateSubCommand3_Click()IfCommand3.Caption="修改"ThenText1.Text=List1.TextText1.SetFocusCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Caption="修改確認(rèn)"ElseList1.List(List1.ListIndex)=Text1.TextCommand1.Enabled=TrueCommand2.Enabled=TrueText1.Text=""Command3.Caption="修改"EndIfEndSubPrivateSubList1_Click()