大学程序设计基础-visual basic教材课后习题

《大学程序设计基础-visual basic教材课后习题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、<大学程序设计基础-VisualBasic>教材课后习题答案第1章一、选择题1234567BDBCBBD第2章一、选择题12345678910BCBCBCAABA11121314BCAA二、填空题1.rem或’_：2.“”##3.5x2-3x-2sinA/34.3214565.300三、操作题1、程序段：PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerDimsAsLong,cAsLongx=Text1.Texty=Text2.Texts=x*yc=(

2、x+y)*2Label3.Caption="长方形的面积为"+Str(s)Label4.Caption="长方形的周长为"+Str(c)EndSub3、程序段：PrivateSubCommand1_Click()Text1.Text="第一"EndSubPrivateSubCommand2_Click()Text1.Text="第二"EndSub4、程序代码：PrivateSubText1_Change()Text1.MaxLength=10EndSub5、程序代码：8PrivateSubText1_

3、Click()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub第3章一、选择题1234567DADBADB二、填空题1.False2.B^2-4*a*celse三、操作题1．从键盘输入三个值，判断它们能否构成三角形的三个边。如果能构成一个三角形，则计算三角形的面积。DimaAsInteger,bAsLong,cAsLong,sAsSingle,pAsSinglea=Val(InputBox("请输入一个值："))b=Val(InputBox("

4、请输入一个值："))c=Val(InputBox("请输入一个值："))If(a+b>cAnda+c>bAndb+c>a)Thenp=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))Printa&","&b&","&c&"能构成一个三角形,它的面积为:"&sEndIf2．编写程序，任意输入一个整数，判定该整数奇偶性。DimnAsIntegern=Val(InputBox("请输入一个整数："))IfnMod2=0ThenPrintn&"是偶数"ElsePrintn&"是奇数"En

5、dIf3．求一元二次方程的a*x^2+b*x+c=0的根。DimaAsInteger,bAsInteger,cAsInteger,deltaAsSingle,x1AsSingle,x2AsSinglea=Val(InputBox("请输入一个整数："))b=Val(InputBox("请输入一个整数："))c=Val(InputBox("请输入一个整数："))delta=b^2-4*a*cIfdelta=0Thenx1=-b/(2*a)Print"一元二次方程有两个相等的实根x1=x2="&x1Els

6、eIfdelta>0Thenx1=(-b+Sqr(delta))/(2*a)x2=(-b-Sqr(delta))/(2*a)Print"一元二次方程有两个不等的实根x1="&x1&",x2="&x28Elsex1=(-b)/(2*a)x2=Sqr(-delta)/(2*a)Print"一元二次方程有两个不等的虚根x1="&x1&"+"&x2&"i,x2="&x1&"-"&x2&"i"EndIfEndIf4.任意输入三个数，输出最大数。DimaAsInteger,bAsInteger,cAsIntege

7、r,maxAsIntegera=Val(InputBox("请输入一个整数："))b=Val(InputBox("请输入一个整数："))c=Val(InputBox("请输入一个整数："))max=aIfmax

8、=Val(InputBox("请输入一个整数："))c=Val(InputBox("请输入一个整数："))IfacThenPrinta,b,cElseIfa>cThenPrinta,c,bElsePrintc,a,bEndIfEndIf第4章一、选择题12345678910ABACDBADBB111213141516DCDCBB8二、填空题1.92.1233.100+100；xmod5=04.6