您现在的位置:首页 >> 实验指导 >> 内容

实验六 循环结构

时间:2009-11-16 11:21:35 点击:1624

一、实验目的

 1.掌握FOR循环的使用;

2.掌握DO循环的使用;

3.掌握WHILE循环的使用。

二、实验内容

实验6.1 输出1100之间的所有偶数,程序运行效果如图21所示:

21 程序运行效果

[提示]

1.新建工程文件“实验6.1.vbp”,在其中新建窗体form1,并在上面添加一个按钮控件,其caption属性设为“打印偶数”。界面如图22所示:

22 程序界面

2.在单击按钮相应的事件过程中添加代码。

Private Sub Command1_Click()

 Dim I As Integer

 Dim k As Integer

 k = 0

 For I = 1 To 100

   If I Mod 2 = 0 Then

     k = k + 1

     Print (I);

   End If

   If k = 10 Then

     Print

     k = 0

   End If

 Next I

End Sub

实验6.2  编写一个评分程序,接受用户输入5个选手的得分(0-10),然后去掉一个最高分和一个最低分,求出某选手的最后得分(平均分)

[提示]

1.    新建工程文件“实验6.2.vbp”,在其中新建窗体form1,并在上面添加一个按钮控件,其caption属性设为“输入并计算最后成绩”,再添加一个用于显示结果的标签label1。界面如图23所示:

23 程序界面

2.在单击按钮相应的事件过程中添加代码。

Private Sub Command1_Click()

 Max = 0

 Min = 10

 Sum = 0

 score = 0

 For i = 1 To 5

   score = Val(InputBox("请输入第" & i & "个成绩", "输入"))

   If score > Max Then

     Max = score

   End If  ‘把输入的最高分记录下来

   If score < Min Then

     Min = score

   End If  ‘把输入的最低分记录下来

   Sum = Sum + score

 Next i

 Label1.Caption = "最后成绩是:" & (Sum - Max - Min) / 3

  (Sum - Max - Min) / 3 表示去掉最高分和最低分后的平均分

End Sub

实验6.3 Do while……LoopDo ……Loop while等结构编程求正整数

的最大公约数(使用辗转相除法)。

[提示]

1.新建工程文件“实验6.3.vbp”,在其中新建窗体form1,并在上面添加5个按钮控件,依次是command1command2……command5,其caption属性内容见窗体,再添加一个用于显示结果的标签label1。界面如图24所示:

24 程序界面

2.在单击按钮相应的事件过程中添加代码。

Private Sub Command1_Click()

Dim r As Integer, m As Integer, n As Integer

m = Val(InputBox("输入", "请输入第一个数:"))

n = Val(InputBox("输入", "请输入第二个数:"))

If m < n Then

  t = m

  m = n

  n = t

End If

  r = m Mod n

Do While r <> 0

   m = n

   n = r

   r = m Mod n

Loop

Label1.Caption = n

End Sub

Private Sub Command2_Click()

……   ‘这部分代码略

Do

   r = m Mod n

   m = n

   n = r

Loop While r <> 0

Label1.Caption = m

End Sub

Private Sub Command3_Click()

……  ‘这部分代码略

  r = m Mod n

Do Until r = 0

   m = n

   n = r

   r = m Mod n

Loop

Label1.Caption = n

End Sub

Private Sub Command4_Click()

……   ‘这部分代码略

Do

   r = m Mod n

   m = n

   n = r

Loop Until r = 0

Label1.Caption = m

End Sub

Private Sub Command5_Click()

……  ‘这部分代码略

  r = m Mod n

While r <> 0

   m = n

   n = r

   r = m Mod n

Wend

Label1.Caption = n

End Sub


作者:Admin  
  • VB程序设计学习网站(赣南师范学院) © 2008 版权所有 All Rights Reserved.
  • 地址:江西省赣州市经济技术开发区 赣南师范学院数学与计算机科学学院 邮政编码:341000
    Email:ZQ188@163.com 技术支持QQ:87319633 移ICP备10086号
  • GnsySjxy! V2.4