visual Basic教材課后習(xí)題參考答案

附錄二教材課后習(xí)題參考答案

第一章VisualBasic概述

一、填空題

1.3,學(xué)習(xí)版.專業(yè)版和企業(yè)版2.代碼窗口，屬性窗口3.窗口、事件和消息

二、單選題

l.B2.D3.B4.C5.C6.C7.C8.B9.D10.A

第二章VB可視化編程基礎(chǔ)

一、選擇題

1-5CBABD6-10ABADD

二、填空題

1.屬性事件方法2.文本信息Caption3.EnabledVisible

4.Form_Click()5.3*4=126.數(shù)值型

三、綜合題

1.控件自行添加，參考代碼如下：

PrivateSubForm_Load()

Labell.Caption="長"

Label2.Caption="寬”

Label3.Caption="長方形面積”

Textl.Text=""

Text2.Text=""

Text3.Text=""

Commandl.Caption="計算”

EndSub

2.程序界面自行設(shè)計，無特殊要求。參考代碼如下:

PrivateSubForm_Click()

r=lnputBox(''請輸入圓的半徑：，”課后題2-2")

MsgBox”圓的面積為”&3.14*r*r

EndSub

第三章VisualBasic程序設(shè)計基礎(chǔ)

一、選擇題

1------5DDABC6------10DDBDC

二、填空題

1.352.x\10+(xMod10)*103.lnstr(2,sl,s2)

4.yMod4=0AndNotyMod100=0OryMod400=05.Variant

三、1.300String2.123234String3.FalseBoolean4.5Long

5.3Long6.91Double7.65Double8.0.5Double

9.2Double10.2012String

四、l.(2*Tan(A))/(l-Tan(A)A2)2.aA2+bA2-2*a*b*Cos(C)

3.(-b+Sqr(bA2-4*a*c))/(2*a)4.Abs(A*x+B*y+C*z)/Sqr(AA2+BA2)

Ap(l+p)"'

五、GM

六、參考程序如下:

PrivateSubCommandl_Click()

DimradAsDouble,degAslnteger,mintAsInteger;seedAsInteger

ConstPi=3.1415926

rad=Val(Textl.Text)*180/Pi

deg=Fix(rad)

mint=Fix((rad-deg)*60)

seed=Fix(((rad-deg)*60-mint)*60)

Text2.Text=deg&"度”&mint&"分“&secd&“秒”

EndSub

第四章控制結(jié)構(gòu)

一、選擇題

1-5DCCCA6-10CBBCA11-14DBDC

二、程序填空題

1.[1]x<20[2]y=30-0.5*x[3]else2.[1]m=m\10[2]ls<=5

3.[1]Rnd*101+200[2]xmod54.[1]flag=l[2]i=i+l5.[1]x>=0[2]x<Amin

三、程序閱讀題

1.22.115.13,4324.15.59106.10

四、編程題

1.參考代碼：

PrivateSubcmdCal_Click()

DimaAsSingle,bAsSingle,cAsSingle

DimxlAsSingle,x2AsSingle,mAsSingle

a=Val(txtA.Text)，用val()函數(shù)將文本框中的字符型數(shù)據(jù)轉(zhuǎn)換為數(shù)值類型

b=Val(txtB.Text)

c=Val(txtC.Text)

m=bA2-4*a*c

Ifm<0ThenMsgBox"方程無根”，方程無根的情況

Ifm=0Then

txtl.Text=Str(-b/2/a)'兩根相等的情況

txt2.Text=txtl.Text

EndIf

Ifm>0Then'兩根不等的情況

txtl.Text=Str((-b+Sqr(m))/2/a)'fflStr()函數(shù)將數(shù)值轉(zhuǎn)換為字符串類型

txt2.Text=Str((-b-Sqr(m))/2/a)

EndIf

EndSub

2.參考代碼:

PrivateSubForm_Click()

Dimsa,newsa

sa=Val(lnputBox("inputyoursalary:"))

SelectCasesa

CaseIs<=2000

newsa=sa*1.25

CaseIs<=3000

newsa=sa*1.2

CaseElse

newsa=sa*1.15

EndSelect

MsgBox"yournewsalaryis:"&newsa

EndSub

3.參考代碼：

DimnAsInteger,sAsLong

s=1:n=0'變量賦初值

Whiles<=400000

n=n+1，統(tǒng)計數(shù)字個數(shù)

s=s*n'累乘

Printn;s，通過本行可以看到循環(huán)過程

Wend

Print"S不大于400000時,最大的N值為n-1

4.參考代碼：

PrivateSubForm_Click()

DimAstringAsString

'輸出上三角圖形

Fori=1To8

Astring=String(i*2-1,"A")

PrintTab(20);Space(8-i);Astring

Nexti

'輸出下三角圖形

Fori=8To1Step-1

Astring=String(i*2-1,"A")

PrintTab(20);Space(8-i);Astring

Nexti

EndSub

5.參考代碼：

PrivateSubForm_Click()

fruit=1'初始，第7天的桃子數(shù)為1個

Fori=7To1Step-1

Print"第";i;"天的桃子數(shù)為：fruit

‘打印某天的桃子數(shù)

fruit=(fruit+1)*2'求前一天的桃子數(shù)

Nexti

EndSub

第五章常用控件

一、選擇題

1-5DCCBA6-10BBDCA11-15CCCBA

二、填空題

(1)Caption(2)組合框(3)容器(4)Picturel.picture=LoadPicture("e:\tul.jpg")

⑸Scroll、Change(6)Timer(7)Style(8)Interval(9)標(biāo)準(zhǔn)的坐標(biāo)系統(tǒng)用戶自

定義坐標(biāo)系統(tǒng)(10)SetFocus(ll)Optionl.Value=TrueOption2.Value=True(12)Listl.Text

(13)=Combol.List(i)Addltem(14)(1000)(True)(Format(Time,"h:m:sam/pm"))(15)

TrueFalseMoveLeft

三、編程題

1.參考代碼：

PrivateSubOptionl_Click()

Textl.FontName="黑體"

EndSub

PrivateSubOption2_Click()

Textl.FontName="楷體_gb2312"

EndSub

PrivateSubOption3_Click()

Textl.FontName="仿宋_gb2312"

EndSub

PrivateSubOption4_Click()

Textl.BackColor=vbYellow

EndSub

PrivateSubOption5_Click()

Textl.BackColor=vbGreen

EndSub

PrivateSubOption6_Click()

Textl.BackColor=vbRed

EndSub

2.參考代碼：

privateSubCommandl_Click()

DimiAsInteger

Fori=0ToListl.ListCount-1

IfText1.Text=Listl.List(i)Then

MsgBox”輸入內(nèi)容已存在，請重新輸入!”

ExitFor

EndIf

Nexti

Ifi>Listl.ListCount-1ThenListl.AddltemTextl.Text

Textl.Text=n"

Textl.SetFocus

EndSub

PrivateSubCommand2_Click()

DimiAsInteger

i=Listl.Listindex

Ifi<>-1Then

Listl.Removeitemi

EndIf

EndSub

PrivateSubCommand3_Click()

Listl.Clear

EndSub

PrivateSubForm_Load()

ListLAddltem”研發(fā)項目經(jīng)理”

Listl.Addltem“主管”

Listl.Addltem”高級程序員"

Listl.Addltem”程序員及測試人員”

Listl.Addltem”售前支撐經(jīng)理”

Listl.Addltem"綜合管理員"

EndSub

3.參考代碼：

PrivateSubHScrolll_Change()

Labell.BackColor=RGB(HScrolll.Value,HScroll2.Value,HScroll3.Value)

EndSub

PrivateSubHScroll2_Change()

Labell.BackColor=RGB(HScrolll.Value,HScroll2.Value,HScroll3.Value)

EndSub

PrivateSubHScroll3_Change()

Labell.BackColor=RGBfHScroIll.Value,HScroll2.Value,HScroll3.Value)

EndSub

4.參考代碼：

PrivateSubCommandl_Click()

Timerl.Enabled=True

EndSub

PrivateSubForm_Load()

Picturel.Scale(0,0)-(500,500)

Imagel.Picture=LoadPicture(App.Path+"\tul.jpg")

EndSub

PrivateSubTimerl_Timer()

IfImagel.Left+Imagel.Width<Picturel.ScaleLeft+Picturel.ScaleWidthThen

Commandl.Visible=False

Imagel.Height=Imagel.Height+50

Imagel.Width=Imagel.Width+50

Else

Imagel.Width=20

Imagel.Height=20

Commandl.Visible=True

EndIf

EndSub

5.參考代碼：

PrivateSubCommandl_Click()

Timerl.Enabled=True

Timerl.Interval=100

Commandl.Caption="開始"

EndSub

PrivateSubCommand2_Click()

Timerl.Enabled=False

Commandl.Caption="重新開始“

EndSub

PrivateSubForm_Load()

Labell.FontSize=20

Labell.ForeColor=vbBlue

Labell.FontBold=True

EndSub

Pr