还剩13页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
《VB语言程序设计》习题参考答案第1章习题
一、单选题1.D2.B3.C4.A5.C
6.A7.A8.B9.C10.1A2B
二、多选题1.ACDE2.BCDE3.CD
4.CE
三、填空题1.事件驱动2.解释,编译3.设计,运行,中断
4.属性,方法,事件
5.Command2_Click
6.中央,代码7.MyForm.frm
8.1Cmd1_Click2PrintVB语言程序设计编程及上机调试
1.按要求设置窗体属性2.在窗体上建立一个标签Label1程序代码如下PrivateSubForm_ClickLabel
1.Caption=你单击了窗体EndSubPrivateSubForm_DblClickLabel
1.Caption=你双击了窗体EndSub3.在窗体上建立两个文本框Text1输入数、Text2输出数和一个命令按钮Command1两个文本框的Text属性均为空PrivateSubCommand1_ClickDimxAsSinglex=ValText
1.TextText
2.Text=15*xEndSub第2章习题
一、单选题1.
①D,
②D2.
①A,
②C3.A4.B5.B6.B7.C8.D9.B10.B11.A12.A13.B14.A15.B16.A17.B
二、多选题1.BD2.CD3.AC
4.AD
三、填空题1.1Sin50*
3.14159/18022+x*y/2–y*y3a*a–3*a*b/3+a4x^3/8+Sqry*y+4*a*a/x+y^32.Int50+6*Rnd3.11382332144inchina
570645704.系统管理数据库编程及上机调试1~3题按要求完成操作练习4.PrivateSubCommand1_Click最大化按钮Form
1.WindowState=2最大化EndSubPrivateSubCommand2_Click还原按钮Form
1.WindowState=0还原EndSubPrivateSubCommand3_Click最小化按钮Form
1.WindowState=1最小化EndSub5.在窗体上建立三个文本框Text1第一个数、Text2第二个数、Text3计算结果和一个命令按钮Command1“计算”PrivateSubCommand1_ClickDimxAsSingleDimyAsSinglex=ValText
1.Texty=ValText
2.TextText
3.Text=x*x+y*yEndSub
6.在窗体上建立两个文本框Text1输入一串字符、Text2输出结果和一个命令按钮Command1PrivateSubCommand1_ClickDimxAsStringx=LeftText
1.Text1+RightText
1.Text1Text
2.Text=xEndSub第3章习题
一、单选题1.C2.B3.D4.D5.B6.C7.B8.D9.D10.A11.A12.C13.C14.B15.1A2C16.A17.B18.1D2B3C19.D
二、多选题1.AC2.AC3.ABCF
三、填空题
1.$0001242.Label
1.Caption=a*b=3.Height,Width4.25.Text
1.SetFocus6.MultilineScrollBars27.编程技术,程序设计8.PrivateSubText2_Change´当文本框Text2中的文本内容发生变动时,执行该事件过程Label
1.Caption=Text
1.Text´把文本框Text1中的文本内容作为标签Label1的标题EndSubPrivateSubText1_GotFocus´当文本框Text1获得焦点时,执行该事件过程Text
1.SelStart=0´选定文本框Text1中的所有文本内容Text
1.SelLength=LenText
1.TextEndSub编程及上机调试1.在窗体上建立一个文本框Text1输入n值、三个标签Label1第一个随机数、Label2第二个随机数和Label3第三个随机数,以及一个命令按钮Command1PrivateSubCommand1_Clickn=ValText
1.TextRandomizex=Int1+n*RndLabel
1.Caption=第一个随机数+Strxx=Int1+n*RndLabel
2.Caption=第二个随机数+Strxx=Int1+n*RndLabel
3.Caption=第三个随机数+StrxEndSub2.在窗体上建立了四个文本框Text
1、Text
2、Text3和Text4,以及一个命令按钮Command1“交换”和Command2“合并”PrivateSubCommand1_Click“交换”t=Text
1.TextText
1.Text=Text
2.TextText
2.Text=Text
3.TextText
3.Text=tEndSubPrivateSubCommand2_Click“合并”t=Text
1.Text+Text
2.Text+Text
3.TextText
4.Text=tEndSub
3.1Rnd*9000+10002Strx3Mids31+Mids21+Lefts
14.PrivateSubCommand1_Click往左Text
1.Left=0EndSubPrivateSubCommand2_Click往右Text
1.Left=Form
1.Width-Text
1.WidthEndSubPrivateSubCommand3_Click居中Text
1.Left=Form
1.Width-Text
1.Width/2EndSub
5.PrivateSubCmd1_ClickLab
1.Visible=TrueLab
1.Caption=您已下达显示命令EndSubPrivateSubForm_ClickCmd
1.Visible=TrueEndSub
6.PrivateSubForm_KeyPressKeyAsciiAsIntegerShowPrint输入字符;ChrKeyAsciiASCII码为;;KeyAsciiEndSubPrivateSubForm_DblClickClsEndSub
7.产生这三个消息框的相应语句是产生第1个消息框x=MsgBox在这里显示提示信息4+0请确认产生第2个消息框x=MsgBox在这里显示+Chr13+提示信息3+0请确认产生第3个消息框x=MsgBox在这里显示+Chr13+提示信息2+16+0请确认第4章习题
一、单选题1.C2.A3.C4.C
5.B
6.A7.D8.B9.B10.1D2A3B
二、多选题1.ABCFGHJ2.BE3.CD
4.CDE
5.AE
三、填空题1.SAndA=18AndA=20AndH=
1.65OrNotSAndA=16AndAge=18AndH=
1.
602.
600003.10To92aTozAToZ3Else4.162-2325.SelectCasexCaseIs20CaseIs=0y=2y=4CaseIs=30CaseIs10y=3y=0CaseElseCaseIs15y=4y=1EndSelect6.1x100AndxMod5=0203LenText
1.Text4Text
1.SelText编程及上机调试
1.在窗体上建立两个文本框Text1输入数及Text2显示结果,一个命令按钮Command1“判断”PrivateSubCommand1_Click“判断”x=ValText
1.TextIfxMod2=0ThenText
2.Text=偶数Else消息Text
2.Text=奇数EndIfEndSub2.窗体上建立了一个文本框Text1,用于显示结果PrivateSubForm_Loadx=ValInputBox请输入星期几0~6SelectCasexCaseIs=0Text
1.Text=星期日SundayCaseIs=1Text
1.Text=星期一MondayCaseIs=2Text
1.Text=星期二TuesdayCaseIs=3Text
1.Text=星期三WednesdayCaseIs=4Text
1.Text=星期四ThursdayCaseIs=5Text
1.Text=星期五FridayCaseIs=6Text
1.Text=星期六SaturdayCaseElseText
1.Text=输入错误EndSelectEndSub3.窗体上建立了一个文本框Text1“输入口令”和一个命令按钮Command1“检查”PrivateSubCommand1_Click“检查”x=Text
1.TextIfx=12345678ThenMsgBox欢迎你用机!ElseMsgBox对不起,口令错EndIfText
1.Text=Text
1.SetFocusEndSubPrivateSubForm_LoadText
1.Text=Text
1.MaxLength=8Text
1.PasswordChar=*EndSub4.窗体上建立了两个文本框Text1输入字符串及Text2转换结果,一个命令按钮Command1“清除”PrivateSubCommand1_Click“清除”Text
1.Text=Text
2.Text=Text
1.SetFocusEndSubPrivateSubText1_KeyPressKeyAsciiAsIntegerDimsAsString*1s=ChrKeyAsciiSelectCasesCaseAToZs=LCasesCaseaTozs=UCasesCaseElses=*EndSelectText
2.Text=Text
2.Text+sEndSub5.分别选择”红”、”绿”、”蓝”复选框后,单击命令按钮Command1时,通过RGB函数调配的颜色作为一个标签的背景色(BackColor)PrivateSubCommand1_Clickr=0:g=0:b=0IfCheck
1.Value=1Then”红”复选框r=255EndIfIfCheck
2.Value=1Then”绿”复选框g=255EndIfIfCheck
3.Value=1Then”蓝”复选框b=255EndIfLabel
1.BackColor=RGBrgbEndSub6.程序代码如下PrivateSubForm_LoadLabClk.Caption=0LabClk.Alignment=1LabClk.BorderStyle=1LabClk.FontSize=22LabClk.FontName=黑体TimClk.Interval=1000EndSubPrivateSubTimClk_TimerLabClk.Caption=ValLabClk.Caption+1EndSub7.1ChrKeyAscii2ElseIfChrKeyAscii3CheC=CheC-14CheC5Is0或Else第5章习题
一、单选题1.A
2.B3.1C,2B4.B5.C6.A7.1B,2C,3B
8.B
9.B
10.B
二、填空题1.14次,n=1323次,n=833次,n=2743次,n=1051次,n=122.1Lens2Midsk13c+t4Text
2.Text3.1t=12n=n+13t=t*
24.
05.Text
6.下拉列表框
7.AddItem,RemoveItem或Clear8.1ItemA2ItemD3ItemD4ItemA9.1Midxp+32p+43InStrpx123编程及上机调试
1.和数为
1.21程序代码如下PrivateSubForm_LoadShows=0Fork=1To100s=s+1/1+k*4NextkPrintsEndSub
2.程序代码如下PrivateSubForm_LoadDimiAsIntegeraAsIntegerbAsIntegercAsIntegerShowFori=100To999a=Inti/100b=Inti-100*a/10c=i-100*a-10*bIfa*a*a+b*b*b+c*c*c=iThenPrintiEndIfNextiEndSub
3.在窗体上建立一个文本框Text1初始值、一个列表框List1显示结果和一个命令按钮Comd1“查找”PrivateSubComd1_Click“查找”DimnAsIntegern=ValText
1.TextList
1.Clear:k=0DoWhilek=99IfNotnMod7=0ThenList
1.AddItemnk=k+1EndIfn=n+1LoopEndSub
4.程序代码如下PrivateSubForm_LoadShown=ValInputBox正整数n=Fori=1TonForj=i+1TonFork=j+1TonIfi*i+j*j=k*kThenPrint;i;;j;;k;EndIfNextkNextjNextiEndSub5.在窗体上建立一个列表框List1和一个“显示表项”命令按钮Command1程序代码如下PrivateSubCommand1_click显示表项按钮单击事件FontSize=12ClsFori=0ToList
1.ListCount-1逐项判断IfList
1.SelectediThen真时为选中PrintList
1.ListiEndIfNextiEndSub6.1Text
1.Text2UCasex3t=AAndt=Z4y+x7.程序代码如下PrivateSubForm_LoadShowDimaAsSinglexn0AsSinglexn1AsSinglea=ValInputBox请输入一个正数xn1=aDoxn0=xn1xn1=xn0+a/xn0/2LoopWhileAbsxn0-xn1=
0.00001Printa;的平方根为;xn1EndSub第6章习题
一、单选题
1.D
2.A3.1B,2B4.C
5.C
6.A
7.1C2B3A4B5D
二、多选题
1.AD
2.CD
三、填空题
1.二12;13;-
122.
01232222210144443.NameIndex
4.10ToIndex2ValText1k.Text
5.1i+1Tok2sisj3sisi-14h=h+
16.1ReDima1Ton+12aK+1=aK3ap编程及上机调试
1.程序代码如下PrivateSubForm_LoadShowDima100AsSinglen=ValInputBox输入个数nPrint处理前数据:Fork=1Tonak=ValInputBox请输入第k个数Printak;NextkPrintM=Intn/2Fork=1ToMh=n-k+1t=ah:ah=ak:ak=tNextkPrint处理的结果:Fork=1TonPrintak;NextkEndSub
2.程序代码如下PrivateSubForm_LoadDima66AsIntegerShowFori=1To6Forj=1To6SelectCaseiCaseIsjaij=1CaseIsjaij=2CaseIs=jaij=0EndSelectPrintaij;NextjPrintNextiFori=1To6t=a1i:a1i=a6i:a6i=tNextiPrint:PrintFori=1To6Forj=1To6Printaij;NextjPrintNextiEndSub3.在窗体上建立两个列表框List1处理前数据和List2处理后数据,以及标签Label1程序代码如下PrivateSubForm_LoadDima100AsIntegerb100AsIntegerRandomizen=100Fori=1Ton输入数组a的n个元素x=Int20*RndList
1.AddItemxai=xNextik=0Fori=1Ton删除零元素Ifai0Thenk=k+1:bk=ai:List
2.AddItembkEndIfNextiLabel
1.Caption=数组中零元素个数+Strn-kEndSub4.1gx-10+12n-13gtgj4m=st:st=sk:sk=m5.在窗体上建立4行3列共12个元素的文本框控件数组Text10~Text111PrivateSubForm_LoadDimt12AsStringRandomizeFork=1To12tk=Empty初始安排12个位置均为EmptyNextkForh=65To74代表A至J,每次随机安排一个字母DoWhileTrue随机查找一个空位p=Int1+12*Rnd产生1~12随机数Iftp=EmptyThentp=ChrhExitDoEndIfLoopNexthFork=1To12Text1k-
1.Text=tk显示座位分配情况NextkEndSub第7章习题
一、单选题
1.B
2.C3.B4.B
5.C
6.D
7.C
8.B
二、填空题
1.EF
2.7;1;
43.
11022836464.CallComd1_Click
5.1n=162n\163Midchr+11编程及上机调试
1.在窗体上建立四个文本框Text1和一个命令按钮Command1“检验”文本框Text1~Text3用于输入,Text4用于输出结果PrivateSubCommand1_ClickDimaAsStringbAsStringcAsStringa=TrimText
1.Textb=TrimText
2.Textc=TrimText
3.TextIfcheaAndchebAndchecThenText
4.Text=Vala+Valb+ValcElseText
4.Text=存在非数字字符EndIfEndSubFunctionchexAsStringAsBoolean若存在非数字字符,函数值为假che=TrueFork=1ToLenxs=Midxk1Ifs0Ors9Thenche=FalseExitForEndIfNextkEndFunction2.在窗体上建立七个文本框Text1~Text7和一个命令按钮Command1“比较”Text1~Text6用于输入,Text7用于输出结果PrivateSubCommand1_Clicka=ValText
1.Text:b=ValText
2.Text:c=ValText
3.Textd=ValText
4.Text:e=ValText
5.Text:f=ValText
6.TextCallmaxabcmCallmaxmdemCallmaxmffmText
7.Text=mEndSubSubmaxxyzm‘标准模块文件IfxyThenm=xElsem=yEndIfIfmzThenm=zEndIfEndSub
3.1s2Midsp+13n
4.程序代码如下PrivateSubForm_LoadDimxAsSinglenAsIntegeryAsDoublex=InputBoxx=求X的n次方n=InputBoxn=求X的n次方y=PowerxnShowPrintx;的;n;次方=;Formaty######.##EndSubFunctionPowerxAsSinglenAsIntegerAsDoubleIfn1ThenPower=Powerxn-1*xElsePower=xEndIfEndFunction5.在窗体上设置三个窗体Form1~Form3Form1中建立了两个文本框Text1“用户名”和Text2“密码”,以及命令按钮Command1“判断”Form2中建立了一个文本框Text1其Text属性值为“欢迎你使用本系统”和命令按钮Command1“返回”Form3中建立了一个文本框Text1其Text属性值为“对不起,请向管理员查询”和命令按钮Command1“退出”DimnAsIntegerPrivateSubCommand1_Click‘窗体Form1的“判断”usern=TrimText
1.Text:passw=TrimText
2.TextIfusern=usernameAndpassw=passwordThenForm
1.HideForm
2.ShowElsen=n+1:Text
1.SetFocusIfn=3ThenForm
1.HideForm
3.ShowEndIfEndIfText
1.Text=:Text
2.Text=EndSubPrivateSubForm_ActivateText
1.Text=:Text
2.Text=Text
1.SetFocusEndSubPrivateSubCommand1_Click‘窗体Form2的“返回”Form
2.HideForm
1.ShowEndSubPrivateSubCommand1_Click‘窗体Form3的“退出”UnloadForm1UnloadForm2UnloadForm3EndEndSub
6.1Form1窗体模块程序代码PrivateSubForm_LoadRandomizeEndSubPrivateSubCommand1_Click生成随机数DimsAsStrings=Fori=1To10ai=Int11+90*Rnds=s+Strai+NextiText
1.Text=LeftsLens-1EndSubPrivateSubCommand2_Click求最大数Text
2.Text=MaxEndSubPrivateSubCommand3_Click打开排序窗口Form
1.Hide隐藏主窗体Form
2.Show显示“排序”窗体EndSubPrivateSubCommand4_Click结束UnloadForm1隐藏主窗体UnloadForm2显示“排序”窗体EndEndSub2Form2窗体模块程序代码PrivateSubCommand1_Click“排序”DimtAsStringCallSorttText
1.Text=tEndSubPrivateSubCommand2_Click“返回”Form
2.Hide隐藏“排序”窗体Form
1.Show显示主窗体EndSub3标准模块程序代码Publica1To10AsSingleFunctionMaxAsSingle求最大值DimmAsSinglem=a1Fori=2To10IfmaiThenm=aiEndIfNextiMax=mEndFunctionSubSortsAsString排序s=Fori=1To9Forj=i+1To10IfaiajThent=ai:ai=aj:aj=tEndIfNextjs=s+Strai+Nextis=s+Stra10EndSub第8章习题
一、单选题
1.B
2.D3.D4.A
5.B
6.B
7.A
8.1D2D
9.B
二、填空题
1.随机存取方式
2.GetPut
3.1OpenStData
1.txtForOutputAs#12Write#1StNoStMb3Close#
14.1OpenStData
1.txtForInputAs#12EOF13Input#1StNoStMb5.1132Text
1.Text=99993Text
1.Text6.1num+12Input3num4StnonumText
1.Text5Stnonum编程及上机调试
1.程序代码如下Dimd1To20AsIntegerPrivateSubCommand1_Click产生随机数Fori=1To20di=Int1+99*RndList
1.AddItemdiNextiEndSubPrivateSubCommand2_Click保存OpenMyFile
3.txtForOutputAs#1Fori=1To20Write#1diNextiClose#1EndSubPrivateSubCommand3_Click读出OpenMyFile
3.txtForInputAs#1DoWhileNotEOF1Input#1xList
2.AddItemxLoopClose#1EndSubPrivateSubCommand4_Click结束EndEndSub2.本程序的用户界面和程序代码较为复杂,请见具体程序文件第9章习题单选题1.B2.D3.D4.B
5.A
6.A编程及上机调试
1.程序代码如下PrivateSubForm_loadDimx3AsSingleyAsSingleOnErrorGoToerrln以后出错时转移到errlny=2/0产生除数为0的错误x4=1产生下标越界的错误MsgBox终止程序的运行UnloadMe卸载窗体Enderrln:标号SelectCaseErr.NumberCase11除数为0的错误码为11MsgBox除数为0错误码为11,跳过该错误ResumeNext返回Case9下标越界的错误码为9MsgBox下标越界错误码为9,跳过该错误ResumeNext返回CaseElse其他错误处理MsgBox错误发生在Err.Source_代码为Err.Number_即Err.DescriptionEndSelectEndSub2.改正后的程序代码如下PrivateSubForm_LoadShowFori=1To11PrintTab20-i;Forj=1To2*i-1Ifj=iThenk=jElsek=2*i-jEndIfIfk9Thenk=k+7PrintChrk+48;NextjNextiEndSub3.1n=n+12d1j=d3j3di2=di44i=j5dij=dij+16n=07Text
1.Text第10章习题
一、单选题
1.C
2.1A2C3.D4.C
5.A
6.D
7.1A2D
8.A
9.B
10.B
11.A
12.D
二、填空题
1.1Change2Value3Scroll4Value
2.1P
1.Picture2P
2.Picture3P
2.Picture=P
3.Picture
3.菜单编辑器,顶;PopUpMenu4.1Button.Index2BackColor=RGB255003BackColor=RGB025504BackColor=RGB
002555.1Picture12X=+StrX3Y=+StrY
6.DragMode1;
07.Action4ShowFont编程及上机调试1.在窗体上建立一个水平滚动条HScroll1和一个文本框Text1程序代码如下PrivateSubForm_LoadHScroll
1.Max=1000HScroll
1.Min=0HScroll
1.LargeChange=5HScroll
1.LargeChange=10HScroll
1.Value=500EndSubPrivateSubHScroll1_ChangeText
1.Text=HScroll
1.ValueEndSubPrivateSubHScroll1_ScrollText
1.Text=HScroll
1.ValueEndSub
2.在窗体上建立一个计时器Timer1和“开始”、“停止”两个命令按钮程序代码如下Privatelen_SAsSinglesAsInteger模块级变量PrivateSubCommand1_Click“开始”Timer
1.Enabled=Trues=0CallSub_MoveEndSubPrivateSubCommand2_Click“停止”Timer
1.Enabled=FalseEndSubPrivateSubForm_LoadTimer
1.Enabled=False先取各指针的长度len_S=SqrLineS.Y2-LineS.Y1^2+LineS.X2-LineS.X1^2秒针长度EndSubPrivateSubTimer1_Timer定时器的定时事件过程s=s+1CallSub_MoveEndSubPrivateSubSub_Move定时器的定时事件过程pi=
3.14159LineS.X2=LineS.X1+len_S*Sinpi*s/30绘制秒针LineS.Y2=LineS.Y1-len_S*Cospi*s/30EndSub
3.按要求在窗体上设计一个二级下拉菜单
4.在窗体上建立一个通用对话框CommonDialog
1、“打开”及“字体”两个命令按钮和文本框Text1程序代码如下PrivateSubCommand1_Click打开CommonDialog
1.DialogTitle=选择文件CommonDialog
1.Filter=文本文件|*.txt设置文件过滤器CommonDialog
1.InitDir=C:\设置默认文件夹CommonDialog
1.ShowOpen显示“打开”对话框Text
1.Text=CommonDialog
1.FileNameEndSubPrivateSubCommand2_Click字体CommonDialog
1.Flags=cdlCFScreenFontsCommonDialog
1.ShowFontText
1.FontName=CommonDialog
1.FontName设置字体名称Text
1.FontSize=CommonDialog
1.FontSize设置字体大小Text
1.FontBold=CommonDialog
1.FontBold粗体Text
1.FontItalic=CommonDialog
1.FontItalic斜体EndSub完说明《VB语言程序设计》一书由电子工业出版社2003年1月出版,其电子讲稿及辅助文件已存放在该出版社网站中,可按照该书《前言》介绍的方法进行下载。