visual Basic教材课后习题参考答案

附录二教材课后习题参考答案

第一章VisualBasic概述

一、填空题

1.3,学习版.专业版和企业版2.代码窗口，属性窗口3.窗口、事件和消息

二、单选题

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

第二章VB可视化编程基础

一、选择题

1-5CBABD6-10ABADD

二、填空题

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

4.Form_Click()5.3*4=126.数值型

三、综合题

1.控件自行添加，参考代码如下：

PrivateSubForm_Load()

Labell.Caption="长"

Label2.Caption="宽”

Label3.Caption="长方形面积”

Textl.Text=""

Text2.Text=""

Text3.Text=""

Commandl.Caption="计算”

EndSub

2.程序界面自行设计，无特殊要求。参考代码如下:

PrivateSubForm_Click()

r=lnputBox(''请输入圆的半径：，”课后题2-2")

MsgBox”圆的面积为”&3.14*r*r

EndSub

第三章VisualBasic程序设计基础

一、选择题

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

第四章控制结构

一、选择题

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()函数将文本框中的字符型数据转换为数值类型

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()函数将数值转换为字符串类型

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，统计数字个数

s=s*n'累乘

Printn;s，通过本行可以看到循环过程

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天的桃子数为1个

Fori=7To1Step-1

Print"第";i;"天的桃子数为：fruit

‘打印某天的桃子数

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

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)标准的坐标系统用户自

定义坐标系统(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”输入内容已存在，请重新输入!”

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”研发项目经理”

Listl.Addltem“主管”

Listl.Addltem”高级程序员"

Listl.Addltem”程序员及测试人员”

Listl.Addltem”售前支撑经理”

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