VB实验任务5答案

1、实验任务5课程名称：程序设计基础vb实验名称实验五 visual basic程序设计基础(1)一、实验目的：1掌握变量的定义和赋值2掌握各种类型的数据的使用3掌握各种运算表达式的值和使用二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：实验1(1) 请分别在窗体的单击事件过程中声明定义如下变量,记录错误类型,并分析出错原因,将出错的变量名进行修改, 使其不再出错。visual basic代码中要声明和命名一些元素（变量、常量、数据类型、过程等），命名时必须遵循以下规则：l 必须以字母或汉字开头，由字母、汉字、数字或下划线组成。l 字符必须并排书写，不能出现上下标形式。l 长度

2、小于等于255个字符。l 不可以是系统关键字。l 不可以包含空格、西文标点符号和类型说明符%、&、!、#、$。l 在作用域范围内必须唯一。private sub form_click() dim 5fg as integer 错在数字开头，修正为fg dim l*og as long 错在内部包含*，修正为log dim s-ig as single 错在内部包含-，修正为sig dim dob_ as double 正确 dim _name as string 错在_开头，修正为name_ dim blnfrag as boolean 错在内部包含，修正为blnfrag dim do

3、 as date 错在是系统关键字，修正为dend sub(2) 请按如下形式,按顺序分别为以上7个变量进行赋值（ ）,观察是否能正确赋值,并分析出错原因)数 据 类 型关 键 字所占字节数取 值 范 围整型integer2-215+215-1 即-32768+32767长整型long4-231+231-1即-2147483648 ,2147483647单精度型single4负数：-3.402823e38-1.401298e-45正数：1.401298e-453.402823e38双精度型double8负数：-1.79769313486232e308 - 4.94065645841247e-3

4、24正数：4.94065645841247e-3241.79769313486232e308字符串型变长string10+串长度0231约20亿个字符定长串长度1216约65535个字符逻辑型boolean2true和false日期型date8100年1月1日9999年12月31日运行时，单击窗体会出现“溢出错误”的提示；分析出错原因：32768超出了integer变量fg的表示范围 32768(或-32768、-32769)对fg整型变量赋值32768或-32769，运行时，单击窗体会出现“溢出错误”的提示；分析出错原因：32768和-32769超出了integer变量fg的表示范围 327

5、68(或-32768、-32769) 对log长整型变量赋值，运行时，单击窗体会正常显示接收的值；分析原因：32768(或-32768、-32769)都没有超出long长整型变量log的表示范围 1234567.12345678(或123456789.123、1.2345678)对sig单精度变量赋值1234567.12345678，运行时，单击窗体会显示1234567；分析原因：在visual basic中规定单精度浮点数精度即有效位数为7位，单精度型和双精度型常量的小数形式若超出有效位数，进行小数部分的截取；对sig单精度变量赋值123456789.123，运行时，单击窗体会显示1.234

6、568e+08；分析原因：在visual basic中规定单精度浮点数精度即有效位数为7位，若整数部分超出有效位数，自动转为指数形式表示；对sig单精度变量赋值1.2345678，运行时，单击窗体会显示1.234568；分析原因：在visual basic中规定单精度浮点数精度即有效位数为7位，单精度型和双精度型常量的小数形式若超出有效位数，进行小数部分的截取 1234567.12345678(或123456789.123、1.2345678)对dob_双精度变量赋值，运行时，单击窗体会正常显示接收的值；分析原因：在visual basic中规定双精度浮点数精度为1516位。 "ab

7、f"(或"1234"、"123abc")对name_字符串变量赋值，运行时，单击窗体会正常显示接收的值；分析原因：字符串是字符序列，由西文字符、汉字和标点符号组成，在visual basic中字符串常量两端用双引号""括起。 true(或false、0、1、-1)对blnfrag逻辑型变量赋值true(或false，运行时，单击窗体会正常显示接收的值；分析原因：逻辑数据类型又称布尔类型，用于逻辑判断，只有true和false两种取值；对blnfrag逻辑型变量赋值0、1、-1，运行时，单击窗体会分别显示值false、true

8、、true；分析原因：当赋值时表达式的值的类型并不完全和变量类型相同时，系统根据自动转换的原则将值转换成与变量相同的类型后赋值，非0值转换为逻辑型true，常量0值转换为逻辑型false。 #10/06/2007#(或#jun 10 2007#、#jun-10 -2007#、#jun,10,2007#、#8:20:20 pm#)对d日期型变量赋值，运行时，单击窗体会正确显示接收的值；分析原因：上述日期常量都是合法格式的日期数据。实验2利用print方法在窗体的单击事件中，验证下面4个表达式的值和合法性，体会&和+的作用和使用特点(对照课本117118页)"123"

9、& 456"123" + 456"123ab" & 246"123ab" + 246&和+的作用和使用特点：（1）使用运算符“&”时，操作数与“&”之间必须加上一个空格分隔。因为符号“&”还是长整型数据的类型定义符，若操作数与符号“&”连接在一起，visual basic系统优先将它作为长整型数据类型符处理，继而就会出现语法错误。（2）“+”与“&”运算符在使用时的区别如下。 “&”运算在连接运算前，系统自动先将两边的非字符串类型数据转换成字符串型数据，然后再进行

10、连接操作。 运算符“+”两边仅当都是字符串类型数据时，才进行字符串的连接操作；否则系统将运算符“+”用作算术运算符，进行求和运算：若其中一个操作数是数值型或逻辑型，另一个操作数是数字字符串或逻辑型，则系统会自动将数字字符串和逻辑型转换为数值型，然后进行算术求和运算；否则系统由于无法自动将操作数转换为数值型，则出现“类型不匹配”的出错信息"123" & 456表达式合法，表达式值为”123456”"123" + 456表达式合法，表达式值为579"123ab" & 246表达式合法，表达式值为”123ab246”&quo

11、t;123ab" + 246表达式无法正确计算，出现“类型不匹配“错误实验3请同学参考课本114117介绍的算术运算符的功能，先手工写出以下程序段的运行结果，然后在窗体的click事件过程中分别添加如下的程序段，运行验证，进一步理解和掌握运算符和表达式的应用。（1）a$ = "good"b$ = "morning"print a + bc$ = b$b$ = a$a$ = c$print a & b（2）print -44.5 mod 2.7print 45.5 2.4print 45 -5（3）a% = 300b% = 20a = a

12、 + bb = a - ba = a - bprint a, bprint hex$(a mod &h10) + b &o12提示数学中的乘号在vb中不能缺省，必须用*表示，/表示除运算，表示乘方实验4 实验书55页实验4-1，提示：千分位、保留小数位数、￥格式设置应参看课本130页采用format(netincome , "￥#,0.00")输出纯收益分析：储户到期纯收益 = 本金*(1+利息)年数 本金private sub cmdnetincome_click() dim principal as currency, interest as singl

13、e, year as integer, _ netincome as currency principal = val(txtprincipal) '接收用户输入到文本框中的本金 interest = val(txtinterest) '接收用户输入到文本框中的年利息 year = val(txtyear) '接收用户输入到文本框中的存储年数 netincome = principal * (1 + interest) year - principal '计算纯收益 lblnetincome = "本金￥" & txtprincipa

14、l & "，" & txtyear & "年期纯收益为" & _format(netincome, "￥#,0.00") '利用标签显示纯收益end sub实验5课本133页思考练习题2：根据用户输入的半径r，求对应的直径d=2r、圆周长l=2pr和面积s=pr2、球表面积ss=4pr2和体积v=pr3，要求保留3位小数显示结果(参看课本130页采用format函数，)。参考运行界面const pi = 3.1415926 '定义符号常量pi表示圆周率private sub form_l

15、oad() '窗体的单击事件 '清空文本框和标签中的内容 txtr.text = "" : lbld.caption = "" lbll.caption = "" : lbls.caption = "" lblss.caption = "" : lblv.caption = ""end subprivate sub cmdcal_click() '“计算”命令按钮的单击事件 dim r as double, d as double, l as doub

16、le dim s as double, ss as double, v as double r = val(txtr.text) '接收用户在文本框中输入的半径 d = 2 * r '根据计算公式，完成直径的计算 l = 2 * pi * r '根据计算公式，完成周长的计算 s = pi * r 2 '根据计算公式，完成面积的计算 ss = 4 * pi * r 2 '根据计算公式，完成面积的计算 v = 3 / 4 * pi * r 3 '根据计算公式，完成体积的计算 '将计算好的结果保留3位小数,通过标签显示输出 lbld.caption = format(d, "0.000") lbll.caption = format(l, "0.000") lbls.caption = format(s, "0.000") lblss.caption = format(ss, "0.000") lblv.caption = format(v, "0.000")end subprivate sub cmdclear_click() '“清除”命令按钮的单