大一vb实验报告

1、大一vb实验报告 大一 vb 的实验报告 篇一：vb 实验报告 一、实验目的和要求 1、掌握正确书写表达式、赋值语句的规那么。 2、掌握 inputbox 与 msgbox 的使用。 3、掌握 print 方法和 format 格式使用。 4、掌握单分支与双分支条件语句的使用。 5、掌握多分支条件语句的使用。 6、掌握 for 语句和 do 语句的各种形式的使用。 7、掌握如何控制循环条件，防止死循环和不循环。 二、实验内容和原理 1、输入半径，计算圆周长和圆面积。 为了保证程序运行的正确，对输入半径要进行合法性检查，数据检查调用 isnumeric 函数；假设有错，利用 msgbox 显示错

2、误信息，通过 setfocus 方法定位于出错的文本框处，重新输入；计算结果保存两位小数。 提示：使用 text1keypress 事件，按 enter 键，返回参数“keyascii”的值为 13 表示输入结束。 2、随机产生三个整数，按从小到大的顺序显示。 3、计算的近似值，的计算公式为： ?2n?224262 =2×××× 2n-1?2n+11?33?55?7 注意：、分别显示当 n=10、100、1000 时的结果，由此可见，此计算公式收敛如何？ 、要防止大数相乘时结果溢出的问题，将变量类型改为长整型 或实数型。 三、主要仪器设备 计算机 四、实

3、验结果与分析 实验界面： 1、输入半径，计算圆周长和圆面积。 程序： private sub formactivate text1.text = "输入半径值" text1.setfocus text1.selstart = 0 text1.sellength = len(text1.text) end sub private sub text1keypress(keyascii as integer) "圆面积，周长 dim r r = text1.text const pi = 3.14159 if keyascii = 13 then cls if isnu

4、meric(r) then print "当圆的半径为" r; "时：" print "圆面积为： " format(pi * r 2, "0.00") print "圆面积为" format(pi * r 2, "0.00") else text1 = "半径值输入有误" end if text1.setfocus text1.selstart = 0 text1.sellength = len(text1.text) else end if end s

5、ub 运行结果： 输入值 :2 2、随机产生三个整数，按从小到大的顺序显示。 程序： private sub command1click cls dim x%, y%, z%, a% randomize x = int(rnd * 101) y = int(rnd * 101) z = int(rnd * 101) print "随机产生三个整数： " x; spc(2); y; spc(2); z; spc(2) if x > y then a = x: x = y: y = a end if if y > z then a = y: y = z: z = a

6、 if x > y then a = x: x = y: y = a end if end if print "从小到大排序： " x; spc(2); y; spc(2); z; spc(2) end sub 运行结果： 3、计算的近似值 、分别显示当 n=10、100、1000 时的结果，由此可见，此计算公式收敛如何？ 、要防止大数相乘时结果溢出的问题，将变量类型改为长整型或实数型。 程序： private sub command2click cls dim n as long, pi, i as long n = 1 do n = n * 10 pi = 2 f

7、or i = 1 to n pi = pi * (2 * i) 2 / (2 * i - 1) * (2 * i + 1) next i print "当 n=" n; "时，=" pi loop while n < 1000 end sub 运行结果： 篇二：vb 实验报告 一、目的与任务 本实验主要练习 vb.net 的控件的综合运用。熟悉 vb.net 的集成开发环境，掌握 vb.net 编程技巧和开发过程。 实验学时数：4 学时 二、考核方法及标准 1、考核方法： 本次实验成绩的评定分为三个局部： 出勤 实验完成情况 实验报告完成情况 2、

8、考核标准： 本次实验成绩总分为 100 分，具体分数分布如表 1-1 所示。 表 1-1 成绩分布情况 每局部的具体评分标准如下： （1）出勤：迟到扣 1 分，早退扣 1 分（在为完本钱实验的情况想），否那么得总分值。 （2）实验完成局部： 未完成，或存在严重缺陷得 35 分以下； 内容根本完成，但存在小缺陷得 3641 分； 内容全部完成，没有错误得 4248 分； 内容全部完成并具有创新的加 4960 分。 （3）实验报告完成局部： 实验报告内容不完整得 014 分； 实验报告内容根本完整得1524 分； 实验报告内容正确、排版清晰、有条理得 2530 分。 三、实验内容 某商店为了迎接“

9、五一”将进行促销活动，促销的商品包括服装、鞋、箱包、化装品和床上用品五类。在促销期间，每类产品的规定品牌前 40 件以 3 折出售，每类产品每人限购 1 件，售完为止。买这五类产品的促销商品列表如下表： （1）根本要求：每次在列表框中点击相应的商品时，会显示商品的名称、数量、单价折扣，并把用户所采购的所有商品在文本框内进行汇总，当输入实付款后单击“收款”按钮后计算应找的零钱。 （2）进一步要求：添加菜单，使得对于特价商品的种类、品牌商品、价格和折扣进行。 （3）创新提示：无。要求自行寻找可改良的地方和创新点。 四、思考题 1、什么情况下应该使用 label 控件？ 2、vb.net 中菜单控件有哪几种类型？是否可以为命令