'求平均值点击事件 Private Sub Command1_Click() Dim pj%, i% '定义变量 i = 1 Do While i <= 3 pj = InputBox("请输入平均成绩：", "输入平均成绩") Select Case pj Case 0 To 59 Picture1.Print "平均成绩小于60，不能评定奖学金！" Case 60 To 69 Picture1.Print "平均成绩为" & pj & "可以评定四等奖学金！" Case 70 To 79 Picture1.Print "平均成绩为" & pj & "可以评定三等奖学金！" Case 80 To 89 Picture1.Print "平均成绩为" & pj & "可以评定二等奖学金！" Case Else Picture1.Print "平均成绩为" & pj & "可以评定一等奖学金！" End Select 'Picture1.Print i '打印i的值 i = i + 1 Loop Picture1.Print "i=" & i '打印i的值 End Sub

这段代码是一个基于 Visual Basic 的求平均值点击事件。代码的逻辑如下：

1. 声明了两个整型变量 pj 和 i。
2. 初始化变量 i 为 1。
3. 进入一个 Do While 循环，条件是 i 小于等于 3。
4. 在每次循环中，弹出一个输入框，要求输入平均成绩，并将输入的值赋给变量 pj。
5. 使用 Select Case 语句根据 pj 的值进行不同的判断和打印输出。根据不同的平均成绩范围，输出不同的评定结果。
6. 在每次循环结束后，将变量 i 的值加 1。
7. 循环继续，直到 i 大于 3。
8. 打印输出最后的 i 的值。

请注意，这段代码只是一个示例，实际应用中可能需要根据具体需求进行修改和完善。