vb教科书答案(中国农业出版社)

《vb教科书答案(中国农业出版社)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、二、教科书中的练习题参考答案习题三，参考答案一、VB定义了哪几种数据类型？各自有什么特点？变量有哪几种类型？常量有哪几种类型？答：在VisualBasic中，数据类型分为三大类：基本数据类型、用户自定义数据类型、枚举类型。基本数据类型是系统定义的一些类型，用户自定义数据类型和枚举类型时用户根据实际情况可以自己定义的类型，并且类型中可以混合基本数据类型。变量有整型、长整型、单精度浮点型、双精度浮点型、货币型、字节型、字符串型、布尔型、日期型、对象型、变体型数据，还可以使用户自定义类型和枚举类型。常量有整型、长整型、

2、单精度浮点型、双精度浮点型、货币型、字符串型、布尔型、日期型。二、说明下列哪些是VisualBasic合法的直接常量，并分别指出它们的类型。100.0%100123D30100“ASDF””1234.5”#2006/6/1#100#&H123True答：合法的直接常量有：100.0、123D3、0100、“ASDF”、”1234.5”、#2006/6/1#、100#、&H123、True、其中整型数据有：0100、&H123单精度数据有：100.0双精度数据有：123D3、100#字符型数据有：“ASDF”、”1

3、234.5”日期型数据有：#2006/6/1#布尔型数据有：True三、下列数据哪些是变量，哪些是常量？是什么类型的常量？Name”name”Falseff”11/16/99”答：变量有：Name、ff、常量有：”name”、False、”11/16/99”其中”name”、”11/16/99”是字符串型，False是布尔型四、下列符号中，哪些可以是VisualBasic的合法变量名？Sum33x45_0450_xSingleXYZFalse答：上面合法的变量名有：Sum33、x45_0、XYZ。五、把下列数学表

4、达式写成VisualBasic表达式：（1）（2）（3）答：（1）Abs(x+y)+z^5(2)(1+x*y)^6（3）（10*x+Sqr(3*y)）/(x*y)六、计算下列函数的值：(1)Int(-3.14159)(2)Sqr(Sqr(81))(3)Int(Abs(99-100)/2)(4)Sgn(7*3+2-10)答：(1)-4(2)3(3)0(4)1七、写出下列表达式的值：(1)(2^4+8*3Mod5)/2(2)4^37+8-(6>3or5<34and8<>7)答：(1)10(2)18八、设X=8，Y=

5、4，Z=5，求下列表达式的值(实数保留三位小数)：(1)X+4*Z(2)X^3/7答：(1)28(2)73.143习题四，参考答案4.1略。4.2略。4.3略。4.4自由落体位移公式为：S=v0t+0.5gt2其中v0为初速度，g为重力加速度，t为经历的时间，编写程序，求位移量S。设v0=5m/s，t=10s，g=9.8m/s2，在程序中，把g定义为常量，用InputBox()函数输入v0、t两个变量，求位移量S。【分析】v0为初速以及经历的时间t由InputBox函数输入，套用公式计算即可。【源程序代码如下】P

6、rivateSubCmd1_Click()Dimv0AsSingle,tAsInteger,sAsSingleConstgAsSingle=9.8v0=InputBox("请输入初速度:")t=InputBox("请输入经历时间(秒):")s=v0*t+0.5*g*t^2Print"所经历的位移为:";s;"米。"EndSub程序运行界面如图4.1所示。图4.1程序运行界面4.5编写程序，用InputBox()函数输入四个整数，计算并输出这四个数的和及其平均值，把结果在窗体上显示出来。【源程序代码如下】Priva

7、teSubCmd1_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsIntegerDimsAsInteger,pAsSinglea=Val(InputBox("请输入第一个整数:"))b=Val(InputBox("请输入第二个整数:"))c=Val(InputBox("请输入第三个整数:"))d=Val(InputBox("请输入第四个整数:"))s=a+b+c+dp=s/4Print"和为:";s,"平均值为:";pEndSub4.6在窗体上画两个命令按钮，分别编写

8、如下事件过程：PrivateSubCommand1_Click()a=InputBox("请输入第一个整数")b=InputBox("请输入第二个整数")Printa+bEndSubPrivateSubCommand2_Click()a=Val(InputBox("请输入第一个整数"))b=Val(InputBox("请输入第二个整数"))Printa+bEndSub程序