循环结构一、实验目的掌握FOR循环的使用；二、实验内容1．输出1－100之间的所有偶数，程序运行效果如图21所示：图21程序运行效果[提示]1.新建工程文件“实验6.1.vbp”，在其中新建窗体form1，并在上面添加一个按钮控件，其caption属性设为“打印偶数”。界面如图22所示：图22程序界面2.在单击按钮相应的事件过程中添加代码。PrivateSubCommand1_Click()DimIAsIntegerDimkAsIntegerk=0ForI=1To100IfIMod2=0Thenk=k+1Print(I);EndIfIfk=10ThenPrintk=0EndIfNextIEndSub2.打印图形，如下：*************************程序：PrivateSubForm1_Activate()Form1.FontSize=30fori=1to5PrintTab(10-i);String(2*i-1,"*")NextiEndSub3编写一个评分程序，接受用户输入5个选手的得分(0-10分)，然后去掉一个最高分和一个最低分，求出某选手的最后得分(平均分)。[提示]1.新建工程文件“实验6.2.vbp”，在其中新建窗体form1，并在上面添加一个按钮控件，其caption属性设为“输入并计算最后成绩”，再添加一个用于显示结果的标签label1。界面如图23所示：图23程序界面2.在单击按钮相应的事件过程中添加代码。PrivateSubCommand1_Click()Max=0Min=10Sum=0score=0Fori=1To5score=Val(InputBox("请输入第"&i&"个成绩","输入"))Ifscore>MaxThenMax=scoreEndIf‘把输入的最高分记录下来Ifscore
