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

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

ID:13040553

大小:102.50 KB

页数:8页

时间:2018-07-20

大学程序设计基础-visual basic教材课后习题_第1页
大学程序设计基础-visual basic教材课后习题_第2页
大学程序设计基础-visual basic教材课后习题_第3页
大学程序设计基础-visual basic教材课后习题_第4页
大学程序设计基础-visual basic教材课后习题_第5页
资源描述:

《大学程序设计基础-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=(x+y)*2Label3.Caption="长方形的

2、面积为"+Str(s)Label4.Caption="长方形的周长为"+Str(c)EndSub3、程序段:PrivateSubCommand1_Click()Text1.Text="第一"EndSubPrivateSubCommand2_Click()Text1.Text="第二"EndSub4、程序代码:PrivateSubText1_Change()Text1.MaxLength=10EndSub5、程序代码:8PrivateSubText1_Click()Text1.SelStart=0Text1.SelLength=Len(Text1.Tex

3、t)EndSub第3章一、选择题1234567DADBADB二、填空题1.False2.B^2-4*a*celse三、操作题1.从键盘输入三个值,判断它们能否构成三角形的三个边。如果能构成一个三角形,则计算三角形的面积。DimaAsInteger,bAsLong,cAsLong,sAsSingle,pAsSinglea=Val(InputBox("请输入一个值:"))b=Val(InputBox("请输入一个值:"))c=Val(InputBox("请输入一个值:"))If(a+b>cAnda+c>bAndb+c>a)Thenp=(a+b+c)/2s=

4、Sqr(p*(p-a)*(p-b)*(p-c))Printa&","&b&","&c&"能构成一个三角形,它的面积为:"&sEndIf2.编写程序,任意输入一个整数,判定该整数奇偶性。DimnAsIntegern=Val(InputBox("请输入一个整数:"))IfnMod2=0ThenPrintn&"是偶数"ElsePrintn&"是奇数"EndIf3.求一元二次方程的a*x^2+b*x+c=0的根。DimaAsInteger,bAsInteger,cAsInteger,deltaAsSingle,x1AsSingle,x2AsSinglea=Va

5、l(InputBox("请输入一个整数:"))b=Val(InputBox("请输入一个整数:"))c=Val(InputBox("请输入一个整数:"))delta=b^2-4*a*cIfdelta=0Thenx1=-b/(2*a)Print"一元二次方程有两个相等的实根x1=x2="&x1ElseIfdelta>0Thenx1=(-b+Sqr(delta))/(2*a)x2=(-b-Sqr(delta))/(2*a)Print"一元二次方程有两个不等的实根x1="&x1&",x2="&x28Elsex1=(-b)/(2*a)x2=Sqr(-delta

6、)/(2*a)Print"一元二次方程有两个不等的虚根x1="&x1&"+"&x2&"i,x2="&x1&"-"&x2&"i"EndIfEndIf4.任意输入三个数,输出最大数。DimaAsInteger,bAsInteger,cAsInteger,maxAsIntegera=Val(InputBox("请输入一个整数:"))b=Val(InputBox("请输入一个整数:"))c=Val(InputBox("请输入一个整数:"))max=aIfmax

7、x5.任意输入三个数,由大到小排序输出。DimaAsInteger,bAsInteger,cAsInteger,tempAsIntegera=Val(InputBox("请输入一个整数:"))b=Val(InputBox("请输入一个整数:"))c=Val(InputBox("请输入一个整数:"))IfacThenPrinta,b,cElseIfa>cThenPrinta,c,bElsePrintc,a,bEndIfEndIf第4章一、选择题12345678910ABACDBADBB11121

8、3141516DCDCBB8二、填空题1.92.1233.100+100;xmod5=04.6

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。