观察超市收银机是如何结账的，写一个结账程序。 （提示：用do while，键盘输入商品价格，然后求和，输入0结束，最后提示输入付款钱数和找零钱数。）

以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在【 】和【 】处填入适当的内容，将程序补充完整。 Private Sub Form_Click( ) Dim x As Single，amax As Single，amin As Single x=Input Box("Enter a score") amax=X amin=x Do While【 】 If x＞ama x Then Ama x=x End lf If【 】Then amin=X End lf x=Input Box("Enter a score") Loop Print”Max="；amax，"Min="；amin End Sub

以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。 Private Sub Form_click() Dim x, y As Single Dim z As Integer x=InputBox("Enter a score") Do while【 】 y=y+x z=z+1 x=InputBox("Enter a score") Loop If z=0 Then z=1 End If y=【 】 Print y End Sub

以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输 入负数时结束输入，输出结果。请补充完整下列程序段。 Dim x，amax,amin As Single x=InputBox("Enter a score") amax=x amin=x Do While【 】 If x>amax Then amax=x End If If【 】Then amin=x End If x=InputBox("enter a score") Loop Print"max="；amax，"min="；amin

以下程序的功能是，从键盘上输入若干数据，统计并输出最大值和最小值，当输入负数时结束输入，请填空。 Dim amax As Single，amin As Single x=InputBox("请输入数据") amax=x amin=x Do While【 】 If x＞amax Then amax=x End If If【 】Then amin=x End If x=InputBox("请输入数据") Loop Print "Max="；amax；"Min="；amin End Sub

以下程序的功能是，从键盘上输入若干学生的成绩，统计并输出最高分数和最低分数，当输入负数时结束输入，请填空。

Private Sub Command1_C1iek()

Dim x As Single

Dim amax As Single,amln As Single

x=InputBox("请输入分数")

amax=x

amin＝x

Do While【 】

If x＞amax Then

amax=x

End If

If【 】Then

amin=x

End If

x＝InputBox("请输入分数")

Loop

Print amax,amin

End Sub

在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在。到100分之间，则要求重新输入：如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下： Private Sub run35_Click() Dim flag As Boolean result=0 flag＝True Do While flag result=Val(InputBox("请输入学生成绩：","输入")) If result＞=0 And result＜=100 Then ______ Else MsgBox"成绩输入错误，请重新输入" End If Loop Rem 成绩输入正确后的程序代码略 End Sub 程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是______。

A．flag=False

B．flag=Not flag

C．flag=True

D．Exit Do

在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在。到100分之间，则要求重新输入：如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下： Private Sub run35_Click() Dim flag As Boolean result=0 flag＝True Do While flag result=Val(InputBox("请输入学生成绩：","输入")) If result＞=0 And result＜=100 Then ______ Else MsgBox"成绩输入错误，请重新输入" End If Loop Rem 成绩输入正确后的程序代码略 End Sub 程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是______。

A．flag=False

B．flag=Not flag

C．flag=True

D．Exit Do

在窗体中有一个名称为run1的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0～100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run1命令按钮的Click的事件代码如下： Private Sub run1_Click() Dim flag As Boolcan result=0 flag=True Do While flag result=Val(InputBox("请输入学生成绩："，"输入")) If result＞=0 And result＜=100 Then ( )( ) Else MsgBox “成绩输入错误，请重新输入” End If Loop Rein '成绩输入正确后的程序代码略 End Sub 程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是( )。

A．flag=False

B．flag=Not flag

C．flag=True

D．Exit Do

翻在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0～100分，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下。 Private Sub run35_Click（ ） Dim flag As Boolcanresult=0flag=TrueDo While flagresult=Val（InputBox（"请输入学生成绩："，"输入"））Ifresult>；=0 And result<；=100 ThenElseMsgBox”成绩输入错误，请重新输入”EndIfLoopRem。成绩输入正确后的程序代码略 End Sub程序中有一空白处，需要填人一条语句使程序完成其功能。下列选项中错误的语句是（ ）。【考点4 VBA流程控制语句】

A.flag=False

B.flag=Not flag

C.flag=True

D.Exit Do