欢迎来到天天文库
浏览记录
ID:50731714
大小:125.50 KB
页数:10页
时间:2020-03-07
《Visual Basic程序设计教程 习题答案 作者 郭琳 高世健 30622VB课后习题答案.doc》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、第一章一、判断题1.×2.×3.×4.√5.√6.√7.√8.×二、填空题1.面向对象的程序2.创建用户界面3.Project1.vbp4.默认情况下工具箱放有常用的20标准控件5.设计模式、运行模式、中断模式6.设计模式下双击窗体中的任何控件,可以打开代码窗口三、编程题1.PrivateSubAddCommand_Click()Label1.Caption=Val(Text1.Text)+Val(Text2.Text)'两个数相加EndSubPrivateSubDevCommand_Click()Label1.Caption=Val(Text1.Text)/Va
2、l(Text2.Text)'两个数相除EndSubPrivateSubMulCommand_Click()Label1.Caption=Val(Text1.Text)*Val(Text2.Text)'两个数相乘EndSubPrivateSubSubCommand_Click()Label1.Caption=Val(Text1.Text)-Val(Text2.Text)'两个数相减EndSub2.PrivateSubExitCommand_Click()EndEndSubPrivateSubHelloCommand_Click()Label1.Caption="He
3、lloworld!"EndSub第二章一、判断题1~5对错错错错6~10错对错对错11~15错错错对对二、单选1~5ABDCB6~10BDBBB11~15ABBAB16~20CBBAA21~25BBBDB三、填空1.nMod13=0AndnMod17=02.LEFT("VisualBasic6.0",6)3.FALSE4.OptionExplicit5.true6.逻辑运算符<关系运算符<算术运算符7.DimSstrasString*108.xmod3<>09.VisualBasic10.Constred=25511.CDEF1112.ABCDVBProgramm
4、ing第三章一、判断1~5对对对错错6~10错对对错对11~15错对错对对二、单选1~5ADBAD6~10BCAAC11~15ACACC三、填空1.722.0,13.64.315.TRUE6.AAB7.1008.3214569.910.fordowhile/until…loop四、编程1.PrivateSubCommand1_Click()DimxAsIntegerx=InputBox("x=")Printx;Max=x:Min=x:s=xFori=2To10x=InputBox("x="):Printx;s=s+xIfx>MaxThenMax=xIfx5、henMin=xNextiPrints/10PrintMax,MinEndSub2.PrivateSubForm_Click()Sum=0Fori=1To100IfiMod7=0ThenSum=Sum+iEndIfNextiPrintSumEndSub3.PrivateSubForm_Click()Dima!,b!,c!,s!,x!a=Val(InputBox("EnterA=?"))b=Val(InputBox("EnterB=?"))c=Val(InputBox("EnterC=?"))Ifa+b>cAndb+c>aAnda+c>bThen'如果能构成三角形x6、=(a+b+c)/2s=Sqr(x*(x-a)*(x-b)*(x-c))Print"S=";sElsePrint"数据有错,不能构成三角形"EndIfEndSub4.PrivateSubCommand1_Click()DimsumAsInteger,iAsInteger,jAsIntegersum=0Fori=1To20Forj=1Toisum=sum+iNextjNextiPrintsumEndSub第四章一、判断题12345678×××√×××√二、选择题1、B2、A3、B4、D5、D6、D7、D8、A9、B三、填空题1、102、43、100004、DimA(7、1To5,-2To6)asString5、OptionBase16、数组四、编程题1、程序代码如下:PrivateSubForm_Click()Dima%(1To40)Fori=1To40a(i)=Int(Rnd*401+100)Printa(i);IfiMod10=0ThenPrintNextiFori=1To39Forj=40Toi+1Step-1Ifa(j)8、、程序代码
5、henMin=xNextiPrints/10PrintMax,MinEndSub2.PrivateSubForm_Click()Sum=0Fori=1To100IfiMod7=0ThenSum=Sum+iEndIfNextiPrintSumEndSub3.PrivateSubForm_Click()Dima!,b!,c!,s!,x!a=Val(InputBox("EnterA=?"))b=Val(InputBox("EnterB=?"))c=Val(InputBox("EnterC=?"))Ifa+b>cAndb+c>aAnda+c>bThen'如果能构成三角形x
6、=(a+b+c)/2s=Sqr(x*(x-a)*(x-b)*(x-c))Print"S=";sElsePrint"数据有错,不能构成三角形"EndIfEndSub4.PrivateSubCommand1_Click()DimsumAsInteger,iAsInteger,jAsIntegersum=0Fori=1To20Forj=1Toisum=sum+iNextjNextiPrintsumEndSub第四章一、判断题12345678×××√×××√二、选择题1、B2、A3、B4、D5、D6、D7、D8、A9、B三、填空题1、102、43、100004、DimA(
7、1To5,-2To6)asString5、OptionBase16、数组四、编程题1、程序代码如下:PrivateSubForm_Click()Dima%(1To40)Fori=1To40a(i)=Int(Rnd*401+100)Printa(i);IfiMod10=0ThenPrintNextiFori=1To39Forj=40Toi+1Step-1Ifa(j)8、、程序代码
8、、程序代码
此文档下载收益归作者所有