VB循环结构实验报告
VB实验报告
VB实验报告实验一、VB控制结构[实验目的]1.掌握选择语句的使用2.掌握循环语句的使用[实验内容]一、VB编程基础练习：在应用程序的代码窗口中分别输入以下四段代码，当程序运行时在窗体上单击，分别会发生什么情况，为什么？①Private Sub Form_Click()I = 10Print IEnd Sub②Private Sub Form_Click()Dim I%I = 10Print IEnd Sub③Option ExplicitPrivate Sub Form_Click()I = 10Print IEnd Sub④Option ExplicitPrivate Sub Form_Click()Dim I%I = 10Print IEnd Sub第一个程序运行的结果是：点击一次窗体便会出现一个“10”第二个程序的运行结果是：也是点击一次窗体出现一个“10”第三个程序运行的结果是：无法运行，显示变量未定义第四个程序运行的结果是：在应用程序的代码窗口中分别输入以下两段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？Private Sub Form_Click()Dim n As Integern = n + 1Print nEnd SubPrivate Sub Form_Click()Static n As Integern = n + 1Print nEnd Sub第一个程序运行结果是：第二个程序运行的结果是：二、选择语句程序1：创建应用程序。
要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。
Private Sub Text1_Change()Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,tempX1 = CSng(InputBox("请输入第1个数：", "输入数据")) '弹出请求输入数据x1的文本框X2 = CSng(InputBox("请输入第2个数：", "输入数据")) '弹出请求输入数据x2的文本框X3 = CSng(InputBox("请输入第3个数：", "输入数据")) '弹出请求输入数据x3的文本框If X1 > X2 ThenTemp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换End IfIf X1 > X3 ThenTemp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换End IfIf X2 > X3 ThenTemp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换End IfPrint: PrintPrint "输出结果：" ’在屏幕上输出“输出结果：”PrintPrint x1,x2,x3 ’在屏幕上输出x1,x2,x3End Sub三、循环语句程序3：创建应用程序。
vb实验报告循环
As Integer, ch1, ch2As String, ch1 As String Integer
As String
Public LoginSucceeded AsPublic LoginSucceeded
Public
Boolean
As Boolean
LoginSucceeded AsPrivate Sub Form_Click() Private
Then
Print m
End If
Next m
Else
MsgBox "输入错
误，请重新点击页
面输入！"
End If
End Sub
If s = a Then Print a m=m+1 End If Next a MsgBox "1和1000之 间一共有" & m & "个 完全数。" Unload Me End Sub
For a = 1 To 1000
实验 数：") i = Len(a)
过程 If i = 2 Then
ch = Right(ch, i) s = Val(ch) If s = a Then
s=0 For i = 1 To a - 1 n = a Mod i
总结 ch1 = StrReverse(a) Print a & "为守形数！" If n = 0 Then
（产 b = Val(ch1)
End If
s=i+s
生的 For m = 10 To 99 Next a
ch2 = CStr(m)
End Sub
问
End If Next i
VB程序设计实验二(4)
实验二（4）循环结构
一、实验目的：
通过本次实验,掌握常用函数的使用，掌握选择与循环语句的使用，掌握循环语句的嵌套。
二、实验内容：
学会VB开发环境的使用，掌握VB的选择及循环结构语句的使用。
具体内容见教材P269：实验D 。
（1）略
(2) 略
(3) 略
（4）略
（5）略
（6）略
三、实验要求：
运用VB控件进行窗体界面设计，在代码窗口进行过程设计，运行调试并保存工程。
四、实验学时： 8
五、实验步骤：
附加题：
1、随机产生10个100～200之间的数，求最大值。
产生的随机数和所求最大值均显示在picture控件中。
2、打印三位数的水仙花数，结果显示在picture控件中。
3、已知S=1+1/(1+2)+1/(1+2+3)+...+1/（1+2+3+...+N）,当N的值为50 求s？结果显示在文本框中。
4、计算1+2!+3!+4！+5！+6！并将结果显示在文本框中。
5、计算1/1+1/2!+1/3!+1/4！+1/5！+1/6！并将结果显示在文本框中。
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的最大公约数和最小公倍数。
vb实验报告实验总结
vb实验报告实验总结
VB实验报告实验总结
在本次VB实验中，我们主要学习了Visual Basic编程语言的基本语法和应用。
通过实验，我们深入了解了VB的各种功能和特性，并且掌握了如何利用VB进
行程序设计和开发。
在实验过程中，我们首先学习了VB的基本语法和数据类型，包括变量、常量、运算符等。
然后我们学习了VB中的控件和事件处理，掌握了如何在窗体中添
加控件，以及如何处理用户的交互事件。
接着，我们学习了VB中的条件语句
和循环语句，掌握了如何编写条件判断和循环结构的程序。
最后，我们学习了VB中的函数和过程，掌握了如何封装和调用函数，以及如何设计和调用过程。
通过本次实验，我们对VB编程语言有了更深入的理解，掌握了VB的基本编程
技能。
我们能够利用VB进行程序设计和开发，实现各种功能和应用。
同时，
我们也意识到了编程的乐趣和挑战，对计算机编程产生了浓厚的兴趣。
总的来说，本次VB实验对我们的学习和成长都具有重要意义。
我们通过实验
掌握了VB的基本知识和技能，提升了自己的编程能力和实践能力。
我们相信，在今后的学习和工作中，VB编程语言一定会为我们带来更多的机遇和挑战，让我们能够更好地应对和把握。
希望我们能够不断学习和进步，不断提升自己的
编程水平，为自己的未来铺平更加广阔的道路。
VB实验报告三(学号)
广州大学学生实验报告
一、实验目的
（1）掌握循环语句的使用。
（2）掌握如何控制循环条件，防止死循环或不循环。
（3）掌握数组常用的操作和常用算法。
二、实验设备
实验设备要求每个学生一台电脑，并装有Visual Basic 6.0。
三、实验内容
1、完成实验D循环结构（P.268）中的第.4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。
2、选做实验E数组（P.271）中的第1、3题中的任意二题
3、以实验D中的第4题和实验E中的第3题完成下面的实验报告。
四、实验步骤和结果
1、界面设计
实验D第4题
实验E中的第3题
2、属性设置
实验D第4题
实验E中的第3题
3、代码设计
实验D第4题
实验E中的第3题
五、实验结果分析和实验心得。
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各分数段的人数，生成一个各分数段的柱状图。
vb实验报告实验6--循环结构
MsgBox outstr, , "The Output Result " End Sub
Run
运行界面及程序清单：
（二）程序填空
图 4-12 运行界面
【实验步骤】
1．主要属性设置，无。 2. 编写事件代码：
Option Explicit Private Sub Form_Click()
Dim m As Integer, n As Integer, r As Integer m = InputBox(" 输入 m 的 值： ") n = InputBox(" 输入 n 的 值： ") Do While n <> 0 '*** ** *** **F OUN D** ** *** ***
运行界面及程序清单：
第二题
【实验要求】
运行界面如图 4-15 所示，鼠标单击窗体，在窗体上打印出以下图形。
'
*
'
***
'
*****
' *******
'
*****
'
***
'
*
【实验步骤】
1．主要属性设置，无 2. 编写事件代码：
Private Sub Form_Click() Dim i%, j%, k% For i = 3 To 0 Step -1 For j = 0 To 2 * i
【实验步骤】
图 4-14 运行界面
vb实验4 循环结构程序设计
安徽机电职业技术学院实训实验报告系部电气工程系班级姓名_______________ 学号___________ 日期地点指导教师____________ 成绩实验4：循环结构程序设计【实验目的】1、掌握三种循环结构用法，即For、Do…Loop与While…wend三种循环语句的使用；2、加深理解循环的概念，掌握循环的规则及其执行过程；3、学会如何控制循环条件，防止死循环或不循环；4、掌握与循环有关的常用程序设计算法。
【实验内容】1、完成For、Do、while语句循环结构的程序设计。
2、进行循环语句结构的程序阅读。
【实验环境】实验软件：Windows 2000/XP操作系统+ V isual Basic6.0软件【实验步骤】一、用For、Do、While语句分别编写一个累加器程序，如输入10，则计算1+2+3+……+10的和，如输入1000，则计算1+2+3+……+1000的和。
要求：完成界面设计，控件属性设置，编写程序代码，正确运行程序，将结果保存在D：盘自己的学号姓名文件夹下，并将代码记录下来：二、编写程序，计算1！+2！+3！+...+10! 的结果。
提示：在设计累加和连乘问题时一定要注意存储总和及乘积的变量初值问题。
要求：完成界面设计，控件属性设置，编写程序代码，正确运行程序，将结果保存在D：盘自己的学号姓名文件夹下，并将代码记录下来：三、 编写程序，能将输入的任意字符串反序输出，例如：输入“abcd ”，则输出“dcba ”。
要求：完成界面设计（可以参考右图），控件属性设置，编写程序代码，正确运行程序，将结果保存在D ：盘自己的学号姓名文件夹下，并将代码记录下来：四、 程序阅读题。
要求：先手工写出下面程序段的运行结果，然后在VB 环境中运行下列程序。
Dim i%Do While i < 4i = i + 1y = String(i * 2 - 1, "*")Print Space(4 - i) & yLoopFor j = 3 To 1 Step –1Print Space(4 - j) & String(j * 2 - 1, "*")Next j【思考与练习】1、求斐波那契数列的前20项之和。
VB实验5循环结构
实验五循环结构程序设计实验目的1.掌握循环结构程序的概念。
2.掌握While ... Wend语句的一般格式、功能和使用。
3.掌握Do ... Loop语句的一般格式、功能和使用。
4.掌握For ... Next语句的一般格式、功能和使用。
5.掌握多重循环的概念、执行过程和使用。
6.初步学会设置断点调试程序的方法。
7.初步掌握使用“单步执行”方式跟踪程序执行过程的方法。
实验内容1.假设t=l×2×…×n,求t >10000时的最小n值。
2.使用公式。
＝1+1/1！＋1/2！＋…求e的近似值，要求计算到最后一项小于10-8为止。
3.使用迭代公式xn+1＝(xn＋a/xn)/2 (n =0, 1, 2,…，x＝a/2)编程序，求某一正整数a的平方根。
4.在100~200之间的数中找出同时满足除3余2,除5余3和除7余2的所有整数。
5.已知公鸡5元1只，母鸡3元1只，小鸡1元3只。
现要用100元买100只鸡，问公鸡、母鸡和小鸡各为多少？6.利用第1题的程序使用“单步执行”方式跟踪程序执行的整个过程。
7.利用第2题的程序设置断点，并检查变量和表达式的值。
实验指导第1题实验指导算法设计：设置计数变量n和累积变量t,它们的初值都置为1。
设计一个循环过程。
在循环体中，用赋值语句“t=t*n”将n的值累乘，赋值语句“n＝n+1”使n 每循环一次都增加1。
当t大于10000时，循环结束。
输出n的值。
按上述算法，编写程序为：Private Sub Command1_Click（）Dim n%, t&n=1:t=1While<10000n=n+lt=t*nWendPrintPrint Tab(12); "t大于10000的最小n值是："；nEnd SubPrivate Sub Command2_ClickQEndEnd Sub界面设计、属性设置等由读者完成。
循环结构实验报告
循环结构实验报告一、实验目的本次实验旨在通过编程实践，深入理解循环结构的工作原理，掌握循环结构在实际问题中的应用，提高编程能力和解决实际问题的能力。
二、实验内容本次实验的内容是编写一个程序，实现以下功能：从用户输入的一组整数中，找出其中的最大值和最小值。
程序应采用循环结构实现，要求用户可以输入任意数量的整数，输入0作为结束标志。
三、实验步骤1.确定循环结构：根据实验内容，我们需要使用循环结构来处理用户输入的每一个整数，直到用户输入0为止。
因此，我们可以选择使用while循环结构来实现这一功能。
2.初始化变量：在程序开始时，我们需要初始化两个变量，分别用于存储最大值和最小值。
假设最大值为负无穷大，最小值为正无穷大。
3.获取用户输入：使用input函数获取用户输入的整数，并将其存储在一个变量中。
4.判断输入值：如果用户输入的整数不为0，则判断该整数与最大值和最小值的关系，并更新最大值和最小值。
5.输出结果：循环结束后，输出最大值和最小值。
四、实验结果下面是本次实验的代码实现：python# 初始化最大值和最小值max_value = float('-inf')min_value = float('inf')# 获取用户输入user_input = input("请输入一组整数（输入0结束）：")# 将用户输入转换为整数类型num = int(user_input)# 循环处理用户输入的每一个整数while num != 0:# 判断当前输入值与最大值和最小值的关系，并更新最大值和最小值if num > max_value:max_value = numelif num < min_value:min_value = num# 获取下一个整数user_input = input("请继续输入整数（输入0结束）：") num = int(user_input)# 输出结果print("最大值为：", max_value)print("最小值为：", min_value)在本次实验中，我们成功地使用循环结构实现了找出用户输入的一组整数中的最大值和最小值的功能。
VB循环结构实验报告
实 验 报 告（ 2011 —2012 学年第 2 学期）课程名称： 计算机程序设计（VB ） 姓学 专 年 级： 2011 级 学实验报告2012 年 4 月17 日第9.10 节综合楼525 号室进入实验室时间进入时仪器设备状况离开实验室时间离开时仪器设备状况机器号15：25 正常17：10 正常13 实验项目名称实验四循环结构一、实验目的1.掌握For语句的使用；2.掌握Do语句的各种形式的使用；3.掌握如何控制循环条件，防止死循环或不循环。
二、实验内容1. 课本64页，计算存款总金额。
2. 计算1+2+3+4+…+100之和。
3. 随机产生3行4列的0-99之间的整数，输出它们。
4. 输出数列1,1,2,3,5,8,……的前40项。
三、实验过程（步骤、命令）及结果（截图、源程序）（一）做自选题1，计算存款总金额。
(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性。
设置后的界面如下图（2）设置代码对Command1的Click（单击）事件添加如下代码：Private sub command1_click()Dim m! , s! , n%, i%S = val (text1.text)M = val (text2.text)N = val (text3.text)For I = 1 to nS = s * (1 + m)Next IText4.text = str(n) + “年后可得到: ” + str(s) + “元”End sub设置后详见下图：运行后在文本框中输入“8000, 0.03, 5”,单击按钮后的界面图如下：（二）做自行选题2,计算1+2+3+4+…+100之和。
(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性。
设置后的界面如下图（2）设置代码Private sub command1_click()Dim s%, i%S=0For I = 1 to 100S = s+iNext iPrint “s=” , sEnd sub设置后详见下图：运行后单击按钮后的界面图如下：（三）做自选题3，随机产生3行4列的0-99之间的整数，输出它们。
vb关于for 循环实验报告
VB程序设计课内实验报告书系部名称：学生姓名：专业名称：班级：学号：时间： 2012-3-30 至 2012-4-9实验题目过程一、实验目的1．掌握if语句的使用。
2．掌握if语句的各种形式的使用。
3．掌握如何控制顺序结构和分支结构条件，防治if语句的错误。
二、实验内容实验一：利用分支结构判断输入的数是奇数还是偶数。
实验二：计算函数x (x≤1)y= 3x-2 (1≤x＜10)4x-12 (x≥10)实验三（选做）：判断象限三、设计方案（程序，界面）实验一：1.打开Visual Basic，新建一个EXE工程。
2.创建一个按钮命名Command1,双击Command1编写程序如图1-1.图1-13. 运行程序,点击Command1,得结果如图1-4；4．分别保存工程文件和窗体文件实验二： 1. 打开Visual Basic，新建一个EXE工程2．创建一个按钮命名Command1,双击Command1编写程序如图：1－2图1－23. 运行程序,点击Command1,得结果如图1-5；4．分别保存工程文件和窗体文件。
实验三： 1.打开Visual Basic，新建一个EXE工程2．创建一个按钮命名Command1,双击Command1编写程序如图1-3.图1－33. 运行程序,点击Command1,得结果如图1-64．分别保存工程文件和窗体文件。
四、结果及分析实验一图1－4 实验二：图1－5-1图1-5-2图1-5-3 实验三：图1－6五、调试情况，设计技巧及体会通过学习VB我更好了解了计算机运行程序，了解了计算机运行的语言，并能根据自己的需要编写程序，极大的减小了工作量提高了工作效率，使计算机更加人性化使我们更加充分地运用了计算机，为以后工作提供了方便。
同时也很好的解决了在试验中发现并解决问题。
六、源程序清单实验一：Private Sub Command1_Click()Dim x As Longx = Text1.TextIf x Mod 2 = 0 ThenLabel2 = "你输入的数是:" & x & "输入的是偶数"ElseLabel2 = "你输入的数是:" & x & "输入的是奇数"End IfEnd Sub实验二：Private Sub Command1_Click()Dim x, y As Singlex = Val(Text1.Text)If x < 1 Theny = xText2.Text = yElseIf x >= 1 And x <= 10 Theny = 3 * x - 2Text2.Text = yElseIf x >= 10 Theny = 4 * x - 12Text2.Text = yEnd IfEnd Sub实验三：Private Sub Command1_Click()If Text1.Text > 0 And Text2.Text > 0 Then Label3 = "在第一象限"ElseIf Text1.Text < 0 And Text2.Text > 0 Then Label3 = "在第二象限"ElseIf Text1.Text < 0 And Text2.Text < 0 Then Label3 = "在第三象限"ElseIf Text1.Text > 0 And Text2.Text < 0 Then Label3 = "在第四象限"ElseIf Text1.Text <> 0 And Text2.Text = 0 Then Label3 = "在x轴上"ElseIf Text2.Text <> 0 And Text1.Text = 0 Then Label3 = "在y轴上"ElseIf Text2.Text = 0 And Text1.Text = 0 Then Label3 = "在原点上"End IfEnd Sub。
4.VB实验四(无答案) 循环结构(1)
循环结构
Do循环基本结构如下: Do循环基本结构如下: 循环基本结构如下 Do Dim i%, sum% 循环体 sum = 0 i=1 Loop
Do 最简单的Do循环 循环, 最简单的Do循环, sum = sum + i 没有循环控制条 i=i+1 件,所以在循环 If i > 100 Then Exit Do 体中要使用Exit 体中要使用Exit Loop Do跳出循环 Do跳出循环 Print "1+2+...+100="; sum
循环结构
Do While循环结构语法格式如下: While循环结构语法格式如下 循环结构语法格式如下: Do While 条件 Dim i%, sum% 循环体 sum = 0 Loop i=1 先判断条件, 先判断条件, 条件成立时, 条件成立时, 反复执行循环 体
Do While i <= 100 sum = sum + i i=i+1 Loop Print "1+2+...+100="; sum
计算: 其中X,N由文本框输入,计算结果显示在 文本框中.
X X X X S = 1+ + + + ... + 2! 4! 6! (2 N )!
2
3
N
代码
题目8 题目8
计算: 1+1×3+1×3×5+……+1×3×……(2N+1) 其中N由InputBox函数或文本框输入,计算结 果显示在窗体上.
题目4 题目4
编程计算n!. 的值用inputbox函数输入 编程计算n!.n的值用inputbox函数输入. 函数输入. 结果在窗体上显示. 结果在窗体上显示.
大一vb的实验报告
大一vb的实验报告篇一：VB实验报告一、实验目的和要求1、掌握正确书写表达式、赋值语句的规则。
2、掌握InputBox与MsgBox的使用。
3、掌握Print方法和Format格式使用。
4、掌握单分支与双分支条件语句的使用。
5、掌握多分支条件语句的使用。
6、掌握For语句和Do语句的各种形式的使用。
7、掌握如何控制循环条件，防止死循环和不循环。
二、实验内容和原理1、输入半径，计算圆周长和圆面积。
为了保证程序运行的正确，对输入半径要进行合法性检查，数据检查调用IsNumeric函数；若有错，利用MsgBox显示错误信息，通过SetFocus方法定位于出错的文本框处，重新输入；计算结果保留两位小数。
提示：使用Text1_KeyPress事件，按Enter键，返回参数“KeyAscii”的值为13表示输入结束。
2、随机产生三个整数，按从小到大的顺序显示。
3、计算π的近似值，π的计算公式为：?2n?224262π=2×××…× 2n-1?2n+11?33?55?7 注意：①、分别显示当n=10、100、1000时的结果，由此可见，此计算公式收敛如何？②、要防止大数相乘时结果溢出的问题，将变量类型改为长整型或实数型。
三、主要仪器设备计算机四、实验结果与分析实验界面：1、输入半径，计算圆周长和圆面积。
程序：Private Sub 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 "圆面积为："; Format(PI * r ^ 2, "0.00") Print "圆面积为"; Format(PI * r ^ 2, "0.00")ElseText1 = "半径值输入有误"End IfText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)ElseEnd IfEnd Sub运行结果：输入值:22、随机产生三个整数，按从小到大的顺序显示。
实验五 VB 循环结构程序设计(基础)
实验五循环结构程序设计（基础）
【实验目的】
1、了解简单循环结构的结构特点
2、掌握简单循环结构程序设计方法
【实验内容】
例 1 ：以表格形式显示 5 以下自然数的平方和立方，运行结果如下：
提示：本题用FOR循环实现，格式为：
For 循环变量 = 初值 To 终值 [Step 步长]
循环体
[Exit For]
Next 循环变量
例2 ：求自然数 N 的阶乘 N ！，运行结果如下：
算法分析：自然数 N ！＝ 1*2*3* …（ N-l ） * （ N ）。
算式中的因子具有规律性，是从 1 开始，增量为 1 ，依次递增到 N 。
因此，可以方便地利用 FOR-NEXT 循环语句来实现算法。
【上机参考练习题】
1.（基本设计题）利用循环在窗体中显示不同字型的大小。
如下图所示：
提示：利用For循环做此例，在循环体中加入Print语句。
需要注意的是：循环的步长为2。
2.（基本设计题）由随机函数产生10道一位整数与两位整数相加的加法题，产生的加法题依次显示在屏幕上，每产生一道题后，由用户输入答案，如果答案正确，记10分果答案错误，允许第二次输入答案，第二次输入答案正确，记5分错误记0分。
最后给出总分。
提示：通过循环语句，利用inputbox函数向窗口中输入数据。
VB实验6 简单循环程序设计
实验6-3
目的和要求 预备知识
上一页
【题目】 求水仙花数。水仙花数是指这样的三位整数，它 各位数字的立方和恰好等于该数本身。例如 153=13+53+33 。编程将所有的水仙花数显示在窗体 上，并在文本框中显示个数。
下一页
退 出
第19页 Visual Basic程序设计实验指导
实验6-3
目的和要求 预备知识
实验
目的和要求 预备知识
6
简单循环程序设计
上一页
下一页
退 出
第1 页 Visual Basic程序设计实验指导
一、目的和要求
目的和要求 预备知识
上一页
下一页
退 出
掌握For/Next、 Do/Loop、While/Wend语句 的基本语法和执行过程 掌握以下基本算法的应用：累加、连乘 掌握Rnd函数的使用、判断水仙花数的方法 掌握在文本框中每行输出一定数目的数据 （如每行输出5个）的方法。
上一页
下一页
退 出
【分析】 （ 1 ）用循环语句列出 100 ～ 999 之间的整 数i（穷举法）。 （ 2）将 i分解成个、十、百位（利用除法、 求余的方法）。 （ 3）判断 i是否等于其个位、十位和百位三 个数的立方和，若是则输出。
第20页 Visual Basic程序设计实验指导
实验6-3
目的和要求 预备知识
第12页 Visual Basic程序设计实验指导
实验6-1
目的和要求 预备知识
上一页
下一页
退 出
【实验步骤】 （1）界面设计 请参照图6-1所示的界面设计窗体。 （2）完善程序代码 （3）运行工程并保存文件 运行程序，观察运行结果， 最后将窗体文件保 存为F6-1.frm，工程文件保存为P6-1.vbp。
实验5 循环结构_Visual Basic程序设计实践教程_[共2页]
![实验5 循环结构_Visual Basic程序设计实践教程_[共2页]](https://img.taocdn.com/s3/m/3e7fd09bf7ec4afe05a1df96.png)
40
2．将课本例5-17的代码添加到当前VB工程的代码窗口中，并根据实验解析中的提示对代码进行修改，完成题目的要求。
实验5 循环结构
一、实验目的
1．掌握循环的基本概念。
2．掌握For…Next循环。
3．掌握Do…Loop循环。
4．掌握While…Wend循环。
5．掌握如何利用循环条件来控制循环，防止死循环的出现。
二、实验内容
实验内容5.1
【实验要求】
编写一个程序，当程序运行时，单击窗体即可在窗体上
输出有规则的字符图形，如图2-5-1所示。
【实验解析】
1．要输出多个“*”，可以使用String()函数，String()函
数可以重复显示某个字符串。
例如，String(4, "*")可以生成4
个连续的“*”，即“****”。
2．要输出多个“*”，还可以使用循环，举例如下。
For j=1 to 4
Print "*";
Next
上述For循环可以输出4个连续的“*”，即“****”。
3．程序界面上没有按钮控件，在窗体Form的Click事件中编写如下响应代码。
Dim i As Integer
For i = 1 To 10
Print String(i, "*")
Next i
或：
For i = 1 To 10
For j=1 to i
Print "*";
Next
Print
Next i
图2-5-1 实验内容5.1界面。
VB实验4 循环结构
实验4 循环结构实验内容：1. 累加设s=1+2+3+....+n，编程计算s的值，n的值程序运行时输入，要求用For ... Next实现。
窗体文件命名为ex18.frm，项目文件命名为 ex18.vbp，将ex18.frm及ex18.vbp上传至该个人网络存储空间。
2. 阶乘编程用Do…Loop循环计算除乘 n!,n的值程序运行时输入，参考界面如下：窗体文件命名为ex19.frm，项目文件命名为 ex19.vbp，将ex19.frm及ex19.vbp上传至该个人网络存储空间。
3.质数判断输入一个自然数，判定其是否是质数，参考界面如下：窗体文件命名为ex20.frm，项目文件命名为 ex20.vbp，将ex20.frm及ex20.vbp上传至该个人网络存储空间。
4.百鸡问题我国古代“算经”里提出“百钱买百鸡”问题：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，问鸡翁、母、雏各几何？要求在窗体上建立两个名称分别为Command1和Command2，标题分别为"计算"和"退出"的命令按钮。
程序运行后，单击"计算"按钮，实现上述功能, 将结果同时输出到窗体，单击"退出"按钮，结束程序。
窗体文件命名为ex21.frm ，项目文件命名为 ex21.vbp ，将ex21.frm 及ex21.vbp 上传至该个人网络存储空间。
5.用级数计算π的近似值教材第99页例5.7,用级数计算π的近似值，当最后一项的绝对值小于0.00001时，停止计算。
要求在窗体上建立两个名称分别为Command1和Command2，标题分别为"计算"和"退出"的命令按钮。
程序运行后，单击"计算"按钮，实现上述功能, 将结果同时输出到窗体，单击"退出"按钮，结束程序。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
（2）设置代码
Private Sub Command1_Click()
Cls
FontSize = 20
Dim f(40) As Long, i%
f(1) = 1
f(2) = 1
For i = 3 To 40
f(i) = f(i - 1) + f(i - 2)
Next
For i = 1 To 40
Print Tab(10 * ((i - 1) Mod 4) + 1); f(i);
Next
End Sub
设置后详见下图：
运行后单击按钮后的界面图如下：
四、存在问题及解决方法
存在问题：存在输出乱码现象。
解决方法：与同学讨论之后发现是text1与text2位置颠倒所致，改正后得到了正确答案。
5、思考题解答
End sub
设置后详见下图：
运行后在文本框中输入“8000, 0.03, 5”,单击按钮后的界面图如下：
（二）做自行选题2,计算1+2+3+4+…+100之和。
(1)设置用户界面并进行属性设置
创建一个新的窗体，在窗体中加入控件并设置相应的属性。
设置后的界面如下图
（2）设置代码
Private sub command1_click()
Loop
2.说明step增量的作用，并说明什么情况下可以省略此项。
用来指定每次循环时的循环控制变量的增量。正值表示增加，此时循环控制变量的初值应该小于终值；负值表示减少，此时循环控制变量的初值应该大于中值。如果此项缺省，默认增量为1.
6．心得与体会
世上无难事，只怕有心人。只要我们认真学习，多多交流，一定可以把VB学好。
Dim s%, i%
S=0
For I = 1 to 100
S = s+i
Next i
Print “s=” , s
End sub
设置后详见下图：
运行后单击按钮后的界面图如下：
（三）做自选题3，随机产生3行4列的0-99之间的整数，输出它们。
(1)设置用户界面并进行属性设置
创建一个新的窗体，在窗体中加入控件并设置相应的属性。
实验报告
（2011 —2012学年第2学期）
课程名称：计算机程序设计（VB）
姓名：
学院：
专业：
年级：2011级
学号：
实验报告
2012年4月17日第9.10节综合楼525号室
进入实验室
时间
进入时仪器
设备状况
离开实验室
时间
离开时仪器
设备状况
机器号
15：25
正常
17：10
正常
13
实验项目名称
实验四循环结构
三、实验过程（步骤、命令）及结果（截图、源程序）
（一）做自选题1，计算存款总金额。
(1)设置用户界面并进行属性设置
创建一个新的窗体，在窗体中加入控件并设置相应的属性。
设置后的界面如下图
（2）设置代码
对Command1的Click（单击）事件添加如下代码：
Private sub command1_click()
Dim m! , s! , n%, i%
S = val (text1.text)
M = val (text2.text)
N = val (text3.text)
For I = 1 to n
S = s * (1 + m)
Next I
Text4.text = str(n) + “年后可得到: ” + str(s) + “元”
一、实验目的
1.掌握For语句的使用；
2.掌握Do语句的各种形式的使用；
3.掌握如何控制循环条件，防止死循环或不循环。
二、实验内容
1.课本64页，计算存款总金额。
2.计算1+2+3+4+…+100之和。
3.随机产生3行4列的0-99之间的整数，输出它们。
4.输出数列1,1,2,3,5,8,……的前40项。
1.写出For循环语句和Do…Loop格式。
For循环语句的格式：
For循环控制变量=初值To终值[Step增量]
[<语句块>]
[Exit For]
[<语句块>]
Text [循环控制变量]
Do...Loop循环语句格式
Do [While1Until <条件表达式>]
[<语句块>]
[Exit Do]
[<语句块>]
设置后的界面如下图
（2）设置代码
对Command1的Click（单击）事件添加如下代码：
Option Base 1
Private Sub Command1_Click()
Cls
FontSize = 20
Dim a(3, 4) As Integer, i%, j%
Randomize
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(Rnd * 100)
Print a(i, j);
Next j
Next i
End Sub
设置后详见下图：
运行后单击按钮后的界面图如下：
（四）做自选题4，输出数列1,1,2,3,5,8,……的前40项。在窗体中加入控件并设置相应的属性。