高校问答我是杨广:vb问题!!!!!!!!!!!!
来源：百度文库 编辑：高校问答 时间：2024/05/01 08:40:44
Private Sub Form_click()
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
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
End Sub
请大家来解答下!!!大家尽量说的详细点哦!!
最好有程序运行过程的说明!
这个程序是让人输入一些数字，然后打印出最大的和最小的数字。
显然需要一个条件让输入数字的循环结束，假如这个条件是输入0就结束，那么 Do while x<>0
当输入值x比最小值还小时，置最小值amax=x，所以第二个问题是 if x<amin