大一vb的实验报告

1、大一 vb 的实验报告篇一： VB实验报告一、实验目的和要求1、掌握正确书写表达式、赋值语句的规则。2、掌握 InputBox与 MsgBox的使用。3、掌握 Print方法和 Format 格式使用。4、掌握单分支与双分支条件语句的使用。5、掌握多分支条件语句的使用。6、掌握 For 语句和 Do 语句的各种形式的使用。7、掌握如何控制循环条件，防止死循环和不循环。二、实验内容和原理1、输入半径，计算圆周长和圆面积。为了保证程序运行的正确，对输入半径要进行合法性检查，数据检查调用IsNumeric函数；若有错，利用MsgBox显示错误信息，通过SetFocus 方法定位于出错的文本框处，重新

2、输入；计算结果保留两位小数。提示：使用Text1_KeyPress事件，按Enter键，返回参数“ KeyAscii ”的值为 13 表示输入结束。2、随机产生三个整数，按从小到大的顺序显示。3、计算的近似值，的计算公式为：?2n?224262 =2×××× 2n-1?2n+11?33?55?7 注意：、分别显示当 n=10、100、 1000 时的结果，由此可见，此计算公式收敛如何？、要防止大数相乘时结果溢出的问题，将变量类型改为长整型或实数型。三、主要仪器设备计算机四、实验结果与分析实验界面：1、输入半径，计算圆周长和圆面积。程序：Private S

3、ub Form_ActivateText1.Text =输入半径值Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)圆面积，周长Dim rr = Text1.TextConst PI = 3.14159If KeyAscii = 13 ThenClsIf IsNumeric(r) ThenPrint当圆的半径为 ; r;时：Print、随机产生三个整数，按从小到大的顺序显示。程序：Private Sub Co

4、mmand1_ClickClsDim x%, y%, z%, a%Randomizex = Int(Rnd * 101)y = Int(Rnd * 101)z = Int(Rnd * 101)Print 随机产生三个整数： ; x; Spc(2); y; Spc(2); z; Spc(2)If x y Thena = x: x = y: y = aEnd IfIf y z Thena = y: y = z: z = aIf x y Thena = x: x = y: y = aEnd IfEnd IfPrint 从小到大排序： ; x; Spc(2); y; Spc(2); z; Spc(2)

5、End Sub运行结果：3、计算的近似值、分别显示当n=10、100、1000 时的结果， 由此可见，此计Print当 n=; n;时， =; PILoop While n 1000End Sub运行结果：篇二： vb 实验报告本实验主要练习的集成开发环境，掌握一、目的与任务VB.NET的控件的综合运用。 熟悉VB.NET编程技巧和开发过程。VB.NET实验学时数： 4 学时二、考核方法及标准1、考核方法：本次实验成绩的评定分为三个部分：出勤实验完成情况实验报告完成情况2 、考核标准：本次实验成绩总分为100 分，具体分数分布如表1-1 所示。表 1-1 成绩分布情况每部分的具体评分标准如下：

6、（1）出勤：迟到扣 1 分，早退扣 1 分（在为完成本实验的情况想），否则得满分。（2）实验完成部分：未完成，或存在严重缺陷得35 分以下； 内容基本完成，但存在小缺陷得3641 分； 内容全部完成， 没有错误得4248分； 内容全部完成并具有创新的加4960 分。（3）实验报告完成部分：实验报告内容不完整得014 分； 实验报告内容基本完整得 1524 分；实验报告内容正确、排版清晰、有条理得2530 分。三、实验内容某商店为了迎接“五一”将进行促销活动，促销的商品包括服装、 鞋、箱包、化妆品和床上用品五类。在促销期间，每类产品的规定品牌前40 件以 3 折出售，每类产品每人限购 1 件，售完为止。买这五类产品的促销商品列表如下表：（ 1）基本要求：每次在列表框中点击相应的商品时，会显示商品的名称、数量、单价折扣，并把用户所采购的所有商品在文本框内进行汇总，当输入实付款后单击“收款”按钮后计算应找的零钱。（ 2）进一步要求：添加菜单，使得对于特价商品的种类、品牌商品、价格和折扣进行编辑。（ 3）创新提示：无。要求自行寻找可改进的地方和创新点。四、思考题1、什么情况下应该使用Label 控件？2、VB.NET 中菜单控件有哪几种类型？是否可以为命令按 钮 添 加 上 下 文 菜 单 ？3 、 OpenFi