当前位置：文档之家 › 循环结构《VB环结构实验报告模版》

循环结构《VB环结构实验报告模版》

  • 格式：doc
  • 大小：203.00 KB
  • 文档页数：5

河南工业大学
《ＶＢ程序设计》
实验报告
学号：201218910204
姓名：刘金
班级：1202班
学院：经济贸易学院
《VB程序设计》实验单元一
实验报告
专业班级：经济学类1202 班姓名刘金学号201218910204 指导教师：王云侠完成时间：2013.5.11
一：实验题目
循环结构
二：实验环境
Windows win7系统；VB 6.0
三：实验目的
1、掌握For语句的使用
2、掌握Do语句的各种形式的使用
3、掌握如何控制循环条件，防止死循环或不循环
四：实验内容
８、一个富翁试图与穷人做一笔换钱生意，换钱规则为：富翁每天给穷人10万元，直到满一个月（30天）；而穷人第一天给富翁1分钱，第2天2分，第3天4分，……，穷人每天给富翁人的钱是前一天的两倍，直到满一个月。

分别显示富翁给穷人的钱和穷人给富翁的钱为多少？
９、用计算机安排考试日程。

期末某专业在周一～周六的6天时间内要考a,b,c 三门课程，考试顺序为先考a，然后考b，最后考c，规定一天只能考一门，且c 课程只能安排在周五或周六考。

编写程序安排考试日程（即a,b,c三门课程各在那一天考），要求列出满足条件的所有方案。

五：实验步骤
第８题：
（1）创建label1和label2,并创建Comand1与Comand2，并写上“富翁＝＞穷人＂和＂穷人＝＞富翁＂
(2) 操作过程
双击Command1并在跳出来窗口中选择以下字幕
Private Sub Command1_Click()
For a = 1 To 30
T=10 *a
Next a
Label1= t
End Sub
同上，双击Command2_并进行选择
Private Sub Command2_Click()
H=０
For a = 1 to 29
h=h+1*2^(a+1)
Next a
Label 2 = h
End Sub
第9题
打开ＶＢ新工程，双击页面直接创建选择以下窗口字字(2)操作过程
Private Sub Form_Click()
For a= 1 To 6
For b= 1 To 6
For c= 5 To 6
If a < b And b < c Then
Print "a="; a; "b="; b; "c="; c
End If
Next c
Next b
Next a
End Sub
六：实验结果
七：实验体会
实验中也存在不少问题，比如存在输出乱码现象。

字母拼错，程序逻辑编写错误，向敬伟同学请教之后发现是text1与label选择颠倒所致，改正后得到了正确答。

世上无难事，只怕有心人。

只要我们认真学习，多多交流，一定可以把VB学好。

合集下载

VB实验报告册

VB实验报告册

实验报告一(循环与数组)实验目的：通过学习，要求掌握选择语句结构if 语句、 Select case 语句、While wend 语句 、For Next 语句，do while (until ) loop 语句的基本书写格式，以及要掌握累和与累乘以及杨辉三角的算法进行演算。

实验要求：1．编辑，输入X 值，按下式计算并输出Y 的值Y=f(x)=2．计算下式的和，变量X 与N 的数据值用输入对话框输入)!1(............!4!3!232+++++=n x x x x s n3．用近似公式求自然对数据的底数E 的值，直到前后两项之差小于10-4为止。

E ≈!1..............31!21!111n ++++ 4．编程，输入n(n 为1位整数)，输出n+1层的杨辉三角形。

如n 为6时，输出结果如下所示。

11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 11 6 15 20 15 6 1实验步骤：实验体会：x+3 x>3 x 2 1<=x<= 3Sqr(x) 0<x<1 0 x<=0实验目的：通过学习，要求熟练掌握常用控件：textbox commandbox labelbox 控制的用法；掌握optionbox 与listbox的方法，属性及事件，对于定时器与滚动条的基本用法要学会运用与操作。

实验要求：1.编制一个用于进制转换的应用程序，运行时的界面如图2．编制一个“偶数迁移”程序设计，运行界面如图：具体要求为：窗体的标题为“偶数迁移”，单击“产生”按钮，计算机随机产生10个两位正整数放入列表框里list1中，同时清空列表框list2中的内容。

单击“- ”按钮，将列表框list1中所有的偶数迁移到列表框list2中。

3．设计一个字幕推出程序。

标签的字号在定时时器的控制下每个时间间隔放大2磅并且保持标签在窗体中水平居中，当标签的字号超过72时，定时器停止响应Timer事件，字号放大的速度由水平滚动条控制。

VB实验四

VB实验四

VB实验四循环结构
【实验目的】
1.For—NEXT循环结构
2.DO—LOOP循环结构
【复习】
For循环语句 (一般用于循环次数已知)：
For 循环变量＝初值to 终值[Step 步长]
语句块
[Exit For]
语句块
Next [循环变量]
DO WHILE—LOOP循环语句(一般用于循环次数未知)：
Do While <条件表达式>
语句块
[Exit Do]
语句块
Loop
【实验内容】
1.求表达式1！+2!+…+10！的值。

2.设一张纸厚0.5mm，面积足够大，将这张纸对折多少次后，其厚度可达到（珠穆朗玛峰）8848m，编程计算对折次数。

3．求所有三位数的水仙花数，所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。

例如，153是水仙花数，因为153=13+53+33。

可以用三重循环或者一重循环实现。

可参考例3.12。

4.计算不定方程
22
x y10000
x y
⎧+=
⎨
⎩≤共有多少组自然数解（注意自然数包含0）
5 求两自然数m、n的最大公约数和最小公倍数。

实验报告5 循环结构

实验报告5 循环结构

实验报告5 循环结构1. 实验目的本次实验主要通过编写程序练习循环结构的使用，包括for循环和while循环，并掌握循环结构在解决问题中的应用。

2. 实验内容2.1 for循环2.1.1 基本语法for循环一般的基本语法如下：pythonfor 变量in 可迭代对象:循环体其中，变量为循环控制变量，可迭代对象为需要遍历的对象，循环体为要执行的操作。

2.1.2 实验步骤本次实验选择使用for循环来实现如下功能：1. 计算1到100之间所有正整数的和。

2. 输出一个400行的矩形，每行有20个星号。

python计算1到100之间所有正整数的和sum = 0for i in range(1, 101):sum += iprint("1到100之间所有正整数的和为:", sum)输出一个400行的矩形，每行有20个星号for i in range(1, 401):print("*", end="")if i % 20 == 0:print()2.2 while循环2.2.1 基本语法while循环的基本语法如下：pythonwhile 循环条件:循环体其中，循环条件为判断条件，当循环条件为True时，执行循环体中的操作。

2.2.2 实验步骤本次实验选择使用while循环来实现如下功能：1. 计算1到100之间所有偶数的和。

2. 输出1到100之间所有的质数。

python计算1到100之间所有偶数的和sum = 0i = 1while i <= 100:if i % 2 == 0:sum += ii += 1print("1到100之间所有偶数的和为:", sum)输出1到100之间所有的质数num = 2while num <= 100:prime = Truefor i in range(2, int(num 0.5) + 1):if num % i == 0:prime = Falsebreakif prime:print(num, end=" ")num += 13. 实验结果运行以上代码，可以得到以下结果：1到100之间所有正整数的和为: 5050...1到100之间所有偶数的和为: 25502 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 4. 实验总结通过本次实验，我学会了使用循环结构来解决问题。

VB实验二 实验报告

VB实验二 实验报告

实验报告二实验目的（1）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句（2）掌握循环嵌套结构（3）掌握素数算法（4）掌握控制结构相关控件（列表框、组合框等）（5）能综合运用循环控制结构解决较复杂的问题实验内容【实验1】编写一个简易计算器编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+…当第i项的值<10-5时计算结束结束。

实验结果：【实验1 代码】【实验1 典型结果】【实验2】将200~300之间的素数输出到列表框中实验结果：【实验2 代码】【实验2 典型结果】【实验3】编写程序，在窗体上输出上三角形式的九九乘法表。

实验结果：【实验3 代码】【实验3 典型结果】【实验4】从键盘输入10个整数，存放在一个一维数组中，然后将前5个元素与后5个元素交换，即第1个与第10个交换，第2个与第9个交换……实验结果：【实验4 代码】【实验4 典型结果】【实验5】静态声明一个二维数组，输入和输出该数组各元素的值要求：1.计算并输出数组主对角线和次对角线元素的和。

2.交换1、3行后输出整个数组的值3.交换数组的行与列后输出整个数组的值12345678910111213141516171819202122232425⎡⎤⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎣⎦实验结果：【实验5 代码】【实验5 典型结果】【实验6】编写程序，将随机产生的1000个[1000,99999]范围内的随机整数存入数组，然后分别用“比较交换法”、“选择法”、“冒泡法”进行升序排序实验结果：【实验6 代码】【实验6 典型结果】【选做1】编写程序，输入X，要求计算精度10-6，求sinX ，计算公式如下所示实验结果：【选做1代码】)!1n2(x)1(...!7x!5x!3x1x(x)sin1n21n753--++-+-=--【选做1典型结果】【选做2】任意输入一个或者多个英文句子，统计这些句子中的单词数量实验结果：【选做2代码】【选做2典型结果】【选做3】利用一维数组，统计一个班学生成绩0~59，60~69，70~79，80~89，90~100各分数段的人数，生成一个各分数段的柱状图。