VB14章习题答案课本习题.docx
- 文档编号:24918223
- 上传时间:2023-06-02
- 格式:DOCX
- 页数:39
- 大小:203.08KB
VB14章习题答案课本习题.docx
《VB14章习题答案课本习题.docx》由会员分享,可在线阅读,更多相关《VB14章习题答案课本习题.docx(39页珍藏版)》请在冰豆网上搜索。
VB14章习题答案课本习题
VB习题答案(1-3章)
习题一
一、选择题
1.C2.C3.A4.C5.C6.C7.B
二、填空题
1.学习版、专业版、企业版2.窗体界面3.Alt+F4
三、简答题
1.简述VisualBasic语言的特点。
VisualBasic是Windows操作平台下的可视化编程语言,它继承和发展了BASIC语言的基本功能,具有简单易学、功能强大等特点。
VisualBasic提供了可视化设计工具,以图形用户界面(GUI)为PC机用户提供了一个直观的工作环境。
支持面向对象的程序设计(OOP),采用事件驱动方式,提供对象的链接与嵌入(OLE)和访问数据库等功能。
2.VisualBasic6.0的集成开发环境由哪些部分组成,各部分的主要功能是什么?
1.标题栏:
用来显示打开的工程名称和系统的工作状态。
2.菜单栏:
菜单栏中包括“文件”、“编辑”、“视图”、“工程”、“格式”、“调试”、“运行”、“查询”、“图表”、“工具”、“外接程序”、“窗口”和“帮助”共有13个菜单项。
这是一组下拉式菜单,提供了设计、编辑、编译和调试应用程序所需要的绝大部分功能和命令。
3.工具栏:
VisualBasic6.0提供了“编辑”、“标准”、“窗体编辑器”和“调试”4种工具栏。
工具栏上形象直观的排列着一些最常用的命令按钮,对应特定的常用操作命令。
4.控件箱:
控件箱提供了一组控件。
设计界面时,用户可以用鼠标双击控件箱中的控件,在窗体中画出该控件,或用鼠标单击控件箱中的控件,然后在窗体中拖动鼠标画出所需的控件。
5.窗体设计器:
窗体设计器是应用程序最终面向用户的窗口。
各种控件、图形、数据以及程序的运行结果都在窗体设计器窗体中显示出来。
6.工程资源管理器:
在工程资源管理器窗口中(图1-2),列出了应用程序的工程以及工程中的窗体和模块。
7.属性窗口:
属性窗口主要用来设置VisualBasic窗体及各控件的属性特征,属性窗口的主体部分分为左右两列,左边是控件的属性名列表,右边是控件的属性值列表。
8.窗体布局窗口:
窗体布局窗口用于观察应用程序中各窗体在屏幕上的位置。
可以在窗体布局窗口用鼠标拖动窗体小图像的方法来改变窗体布局。
3.什么是对象的属性、事件和方法?
属性是一个对象的数据,用来表示对象的状态。
属性具有属性值,改变对象的属性值就可以改变对象的状态。
对象常见的属性有标题(Caption)、名称(Name)、颜色(Color)、字体大小(Fontsize)、是否可见(Visible)等。
事件(Event)是能被对象识别的动作,例如Click(单击),DblClick(双击),Load(装入),MouseMove(移动鼠标),Change(改变)等。
VisualBasic编程的核心就是为每一个要处理的事件编写响应事件的程序代码。
方法(Method)即是具有完成某种功能的过程和函数,它决定了对象要执行的动作。
4.简述编写并运行VisualBasic程序的一般步骤。
(1)创建应用程序界面。
(2)设置界面上各个对象的属性
(3)编写事件驱动代码
(4)单击工具栏上的启动按钮,运行该程序。
四、编程题
编写程序,显示“第一个VisualBasic程序”
(1)创建应用程序界面。
见教材图1-5
(2)设置界面上各个对象的属性
见教材图1-6
(3)编写事件驱动代码
PrivateSubCommand1_Click()
Text1.Text="第一个VisualBasic程序"
EndSub
PrivateSubCommand2_Click()
End
EndSub
(4)单击工具栏上的启动按钮,运行该程序。
单击“开始”按钮。
习题二
一、选择题
1.D2.A3.C4.D5.B6.B7.C8.A9.D10.B11.B12.A13.C14.D15.D16.D
二、填空题
1.X=Int(Rnd*100)2.-93.34.helloHELLO5.12341234123446
6.Val(Right(M,1)&Left(M,1))
7.Abs(y)+Exp
(1)-3*x*Log(3*x)
三、简答题
1.VisualBasic定义了几种数据类型,变量有哪几种数据类型,常量有哪几种数据类型?
VisualBasic基本数据类型:
1.字符串型(String):
字符串分为变长字符串和定长字符串两种。
2.数值型:
数值型数据分为整型数和浮点数两类。
3.货币型(Currency)
4.变体型(Variant)
5.字节型(Byte)
6.布尔型(Boolean)
7.日期型(Date)
8.对象型(Object)
VisualBasic中包含两种常量,即文字常量和符号常量。
变量的基本数据类型:
Byte(字节型),Boolean(布尔型),Integer(整型),Long(长整型),Single(单精度型),Double(双精度型),Currency(货币型),Date(日期型),Object(对象型),String(变长字符串),String(定长字符串),Variant(变体型、数字),Variant(变体型、字符)
2.符号常量和变量有什么不同点?
符号常量一经定义,就不能在程序中的其他位置改变其值。
变量的值在程序中可以改变。
3.指出下列正确的变量名:
g(1-k)6adhs*ssskL2.1Print
x+1ahiπ.ex3j5h
正确的变量名:
ahi,j5h
4.指出下列正确的数字形式:
-1.25±3.8845.2468E-677.876D-55.6D
0.12389ED258510^(2.7)3^5
正确的数字形式:
-1.25,45.2468E-6,77.876D-5,0.123
5.下列表达式若有错误,请改正:
(1)ts+cos(300)
(2)(x+y)^(25÷s)
(3)[(X1+X2)*(X1-3)-6]*7(4)(X÷-2)+sin(1.2+π)
改正:
(1)ts+cos(30*3./180)
(2)(x+y)^(25/s)
(3)((X1+X2)*(X1-3)-6)*7
(4)(X/(-2))+sin(1.2+3.)
6.写出下列数学式的VisualBasic表达式:
(1)sin(a)[cos(b)+1.5]
(2)(X1+4)5(e2-a)
(3)36[(X1+π)(X1÷3.3)-B]
(4)X-2+5.8sin(3.5π)
VisualBasic表达式:
(1)sin(a)*(cos(b)+1.5)
(2)(X1+4)^5*(exp
(2)-a)
(3)36*((X1+3.)*(X1/3.3)-B)
(4)X^2+5.8*sin(3.5*3.)
习题三
一、选择题
1.B2.D3.B4.C5.B6.A7.C8.B9.C10.C11.D12.C13.B14.D15.A
16.C17.B
三、简答题
3-1下列语句是否有错?
若有,请改正:
(1)Let=17
(2)T1$=XYZ
(3)L*2=K+E(4)1A=34,2A=66
改正:
(1)Letx=17
(2)T1$=“XYZ”
(3)L=(K+E)/2
(4)A1=34:
A2=66
四、编程题
1.编一个对三种商品零售计价程序。
商品数量由键盘输入。
A铅笔:
每件1.50元
B笔记本:
每件5.20元
C计算器:
每件80.00元
总计金额SUM。
答案设计界面如图
程序代码如下
PrivateSubCommand1_Click()
Sum=1.50*Text1.Text+5.20*Text2.Text+80.00*Text3.Text
Text4.Text=Sum
EndSub
2.试编写打印下面三角形图案的源程序。
*
***
*****
*******
*********
答案
设计界面如图
程序代码如下
PrivateSubForm_Click()
Form1.PrintTab(15);"*"
Form1.PrintTab(14);"***"
Form1.PrintTab(13);"*****"
Form1.PrintTab(12);"*******"
Form1.PrintTab(11);"*********"
EndSub
PrivateSubForm_Load()
Form1.AutoRedraw=True
Form1.Print"显示星号三角形,单击窗体开始"
EndSub
3.编写程序,将摄氏温度转换为华氏温度。
二者之间的关系是:
F=32+1.8C
其中F是华氏温度,C是摄氏温度。
答案
设计界面如图
程序代码如下
PrivateSubCommand1_Click()
C=Text1.Text
Text2.Text=32+1.8*C
EndSub
4.编写程序,在文本框中输入英文字符,单击“大写”按钮把英文字符转换为大写,单击“小写”按钮把英文字符转换为小写。
答案
设计界面如图
程序代码如下
PrivateSubCommand1_Click()
Text1.Text=UCase$(Text1.Text)
EndSub
PrivateSubCommand2_Click()
Text1.Text=LCase$(Text1.Text)
EndSub
附加(可参照练习)
1.小王有存款A元,年利率P,存储时间T年。
试编程求本利合计。
答案
设计界面如图
存款按单利计算,程序代码如下
PrivateSubCommand1_Click()
a=Text1.Text
p=Text2.Text
t=Text3.Text
a=a+a*p*t
Text4.Text=a
EndSub
2.试编写打印下面图案的源程序。
********
**
**
**
**
********
答案
设计界面如图
程序代码如下
PrivateSubForm_Click()
Form1.PrintTab(5);"********"
Form1.PrintTab(6);"*";Tab(13);"*"
Form1.PrintTab(7);"*";Tab(14);"*"
Form1.PrintTab(8);"*";Tab(15);"*"
Form1.PrintTab(9);"*";Tab(16);"*"
Form1.PrintTab(10);"********"
EndSub
PrivateSubForm_Load()
Form1.AutoRedraw=True
Form1.Print"显示星号四边形,单击窗体开始"
EndSub
3.请编写求以10为底,求10000的对数值的源程序。
答案
设计界面如图程序代码如下
PrivateSubForm_Click()
Form1.PrintLog(10000)/Log(10)
EndSub
PrivateSubForm_Load()
Form1.AutoRedraw=True
Form1.Print"计算以10为底,10000的对数"
Form1.Print"单击窗体开始"
EndSub
4.请编写求任意数的平方根的源程序,数由键盘输入。
答案
设计界面如图
程序代码如下
PrivateSubForm_Click()
x=Val(InputBox$("输入数据"))
Form1.Print"输入数据为";x
Form1.Print"平方根为";Sqr(x)
EndSub
PrivateSubForm_Load()
Form1.AutoRedraw=True
Form1.Print"求任意数的平方根"
Form1.Print"单击窗体开始"
EndSub
5.求任意半径和高的圆柱的表面积。
答案
设计界面如图
程序代码如下
PrivateSubCommand1_Click()
r=Text1.Text
h=Text2.Text
s=2*3.14159*r*h+2*3.14159*r*r
Text3.Text=s
EndSub
习题四(控制结构)
一、选择题
1.C2.A3.B4.D5.C6.A7.B8.B9.A
二、填空题
4.0
三、简答题
1.写出数学式|x|<2.5×10-2对应的VisualBasic表达式。
答案:
x<2.5e-2andx>-2.5e-2
2.逻辑运算符And、Or和Not的优先级最高的是哪一个。
答案:
Not
3.已知W=10X=9Y=8Z=7,求下列表达式的结果:
(1)W>XAndY<=ZORX>Y
(2)X>ZOrW=YANDY (3)Not(W>YAndX=Z) (4)Not(Y<>XOrW*3>Z) 答案 (1)True (2)True (3)True (4)False 4.写出下列十进制整数逻辑运算的结果: (1)X=23And14 (2)X=23Or14 (3)X=-1And19 (4)X=-1Or10 (5)X=Not-1 答案 (1)6 (2)31 (3)19 (4)-1 (5)0 四、编程题 1.已知变量X和Y的值分别为5、6,编写程序,交换变量X和Y的值。 答案 设计界面如图 程序代码如下 PrivateSubForm_Click() x=5: y=6 t=x: x=y: y=t Form1.Print"x=";x,"y=";y EndSub PrivateSubForm_Load() Form1.AutoRedraw=True Form1.Print"x=5","y=6" Form1.Print"单击窗体交换x,y的值" EndSub 2.征兵的条件是: 男性18~20岁,1.65米以上;女性16~18岁,1.60米以上。 编写程序,从键盘输入一个人的数据时,判断是否符合征兵的条件。 答案 设计界面如图 程序代码如下 PrivateSubCommand1_Click() age=Val(Text1.Text) h=Val(Text2.Text) IfOption1.Value=TrueThen Ifage>=18Andage<=20Andh>=1.65Then Label4.Caption="合格" Else Label4.Caption="不合格" EndIf Else Ifage>=16Andage<=18Andh>=1.6Then Label4.Caption="合格" Else Label4.Caption="不合格" EndIf EndIf EndSub 3.编写程序,计算下面表达式的值 (1)1+1×3+1×3×5+……+1×3×……(2N+1) 答案 设计界面如图 程序代码如下 PrivateSubCommand1_Click() n=Val(InputBox("请输入N值")) Sum=1 term=1 Fork=3To2*n+1Step2 term=term*k Sum=Sum+term Nextk Form1.Print"1+1×3+1×3×5+……+1×3×……(2N+1)=";Sum EndSub PrivateSubForm_Load() Form1.AutoRedraw=True Form1.Print"计算1+1×3+1×3×5+……+1×3×……(2N+1)" EndSub 计算表达式补充: (2)-(5) (2)1! +3! +5! +……+(2N+1)! 答案 设计界面如图 程序代码如下 PrivateSubCommand1_Click() n=Val(InputBox("请输入N值")) Sum=1 term=1 Fork=3To2*n+1Step2 term=term*(k-1)*k Sum=Sum+term Nextk Form1.Print"1! +3! +5! +……+(2N+1)! =";Sum EndSub PrivateSubForm_Load() Form1.AutoRedraw=True Form1.Print"计算1! +3! +5! +……+(2N+1)! " EndSub (3)1+X/2! +X2/4! +X3/6! +……+XN/(2N)! 答案 设计界面如图 程序代码如下 PrivateSubCommand1_Click() x=Val(InputBox("请输入x值")) n=Val(InputBox("请输入N值")) Sum=1 t1=1 t2=1 Fork=2To2*nStep2 t1=t1*x t2=t2*(k-1)*k Sum=Sum+t1/t2 Nextk Form1.Print"1+X/2! +X^2/4! +……+X^N/(2N)! =";Sum EndSub PrivateSubForm_Load() Form1.AutoRedraw=True Form1.Print"计算1+X/2! +X^2/4! +……+X^N/(2N)! " EndSub (4)x-x3/3! +x5/5! -x7/7! +…… 答案 设计界面如图 程序代码如下 PrivateSubCommand1_Click() x=Val(InputBox("请输入x值")) Sum=x t1=x t2=1 f=1 k=1 While(t1/t2>0.0001) k=k+2 t1=t1*x*x t2=t2*(k-1)*k f=f*(-1) Sum=Sum+f*t1/t2 Wend Form1.Print"x-x^3/3! +x^5/5! -x^7/7! +……=";Sum EndSub PrivateSubForm_Load() Form1.AutoRedraw=True Form1.Print"计算x-x^3/3! +x^5/5! -x^7/7! +……" EndSub (5)1+1/2+1/3+……+1/N(1/N<10-4) 答案 设计界面如图 程序代码如下 PrivateSubForm_Click() Sum=0 k=1 While(1/k>0.0001) Sum=Sum+1/k k=k+1 Wend Form1.Print"1+1/2+1/3+……+1/N=";Sum EndSub PrivateSubForm_Load() Form1.AutoRedraw=True Form1.Print"计算1+1/2+1/3+……+1/N" Form1.Print"单击窗体开始" EndSub 4.由随机函数产生10道一位整数与两位整数相加的加法题,产生的加法题依次显示在屏幕上,每产生一道题后,由用户输入答案,如果答案正确,记10分;如果答案错误,允许第二次输入答案,第二次输入答案正确,记5分,错误记0分。 最后给出总得分。 答案 设计界面如图 程序代码如下 PrivateSubForm_Click() s=0 Fori=1To10 a=Int(10*Rnd) b=Int(10+10*Rnd) str1$="第"&i&"题"&a&"+"&b c=Val(InputBox(str1$&"第一次回答")) Ifa+b=cThen s=s+10 str2$=str1$&"10分" Else c=Val(InputBox(str1$&"第二次回答")) Ifa+b=cThen s=s+5 str2$=str1$&"5分" Else str2$=str1$&"0分" EndIf EndIf Form1.Printstr2$ Nexti Form1.Print"总分";s EndSub PrivateSubForm_Load() Form1.AutoRedraw=True Form1.Print"加法题,第一次回答正确10分," Form1.Print"第二次回答正确5分" Form1.Print"单击窗体开始" EndSub 5.编写程序把一个分数化为最简分数。 对一个分数化简,实际是要寻找分子N与分母M的最大公因子。 答案 设计界面如图 程序代码如下 PrivateSubCommand1_Click() DimmAsInteger,nAsInteger,uAsInteger,vAsInteger m=Val(Text1.Text) n=Val(Text2.Text) Ifm>nThen u=m: v=n Else v=m: u=n EndIf Do r=uModv u=v: v=r LoopUntil
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB14 习题 答案 课本
![提示](https://static.bdocx.com/images/bang_tan.gif)