VisualBasic程序设计作业答案VIP

PAGEPAGE4VisualBasic程序设计作业答案作业2一、选择题1．B2．C3．D4．B5．D6．A7．B8．C9．A10．D11．C12．B13．D14．C15．A16．B17．C18．B19．D20．B二、填空题1．下拉式菜单弹出式菜单2．打开另存为颜色字体打印3．文本框列表框4．OptionBase15．Call语句6．工程工程属性通用Form1.Show7．08．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值9．窗体模块标准模块类模块10．移出内存无效状态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三、阅读下列程序，给出程序运行结果。1．程序运行后，单击窗体，输出结果为：5050。2．3．4．3.435．*************************四、程序设计题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"请在文本框中输入信息！"EndIfEndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexEndSubPrivateSubCommand3_Click()IfCommand3.Caption="修改"ThenText1.Text=List1.TextText1.SetFocusCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Caption="修改确认"ElseList1.List(List1.ListIndex)=Text1.TextCommand1.Enabled=TrueCommand2.Enabled=TrueText1.Text=""Command3.Caption="修改"EndIfEndSubPrivateSubList1_Click()