81Do循环 心设计一个小程序,能够实现 开始 接收若干的专家的考评打分,[总考评分清零ota10 输入-1表示打分结束,最后考评分个数清零Nm0 的丶八 Private Sub Form Click o Dim Total As Single, mark As Single, average As Single Dim Num as integer Total= 0: num=0 mark=Val( inpuTbox("'请输入第"&Num+1&"个专家评分(1表示结束输入):") Do While mark Total= Total+ mark Num= Num+ 1 mark=Val( InputBox("请输入第"&Num+1&"个专家评分(-表示结束输入):") Loop average= Total/Num MSgB0xNm&"个专家的平均分为:"& average End Sub (结束8.1 Do 循环 ❖ 设计一个小程序，能够实现 接收若干的专家的考评打分， 输入-1表示打分结束，最后 计算出平均考评分 界面设计 ： ▪ 由于要接收的数据无 法预知其个数，所以 不适合利用文本框来 接收数据，所以采用 输入函数InputBox， 结合循环实现 ▪ 利用窗体的单击事件 完成最大公约数的计 算，并在窗体上而显 示结果 输入一个专家打分Mark 总分累加Total = Total + Mark 输出平均考评分Average 开始 结束 False True 总考评分清零Total=0 Mark<>-1 输入下一个专家打分Mark Average= Total / Num 考评分个数清零Num=0 考评分个数累加Num = Num + 1 Private Sub Form_Click () Dim Total As Single, mark As Single, average As Single Dim Num As Integer Total = 0: Num = 0 mark = Val(InputBox("请输入第" & Num + 1 & "个专家评分(-1表示结束输入):")) Do While mark <> -1 Total = Total + mark Num = Num + 1 mark = Val(InputBox("请输入第" & Num+1 & "个专家评分(-1表示结束输入):")) Loop average = Total / Num MsgBox Num & "个专家的平均分为：" & average End Sub