第9课for循环实验六.doc

循环结构
一、实验目的
掌握FOR循环的使用；
二、实验内容
1． 输出1－100之间的所有偶数，程序运行效果如图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
2. 打印图形，如下：

*
***
*****
*******
*********
程序：
Private Sub Form1_Activate()
Form1.FontSize = 30
for i=1 to 5
Print Tab(10 - i); String(2 * i - 1, "*")
Next i
End Sub

3 编写一个评分程序，接受用户输入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