以下程序的功能是从键盘输入若干个学生的考试成绩 统计并输出最高分和最低分 当输 入负数时结束输入 输
以下程序的功能是从键盘输入若干个学生的考试成绩,统计并输出最高分和最低分,当输 入负数时结束输入,输出结果。请补充完整下列程序段。 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
请帮忙给出正确答案和分析,谢谢!
参考解答
正确答案:x>=0 x
本程序先定义了3个变量,x、amin、amax,它们分别用来接受从键盘输入的字符,最小值和最大值,先用InputBox函数从键盘接受一个整数并赋给x。然后将x的值赋给amin和amax,作为它们的初值,因为当输入的值为负数时结束循环,所以DoWhile的控制语句就是判断x的值是否大于等于“o”;当x大于等于“0”时,执行块形式条件语句,当x大于amax,将x的值赋给amax,显然当x的值小于amin时,就将x的值赋给amin;每循环一次,就要给x赋值一次,然后接着循环直到x的值是负数时就跳出循环,输出amax和amin的值。
相似问题
在文件对话框中 假定有一个名为'fcexe'的文件 它位于'd:/pp'目录下 则'FileName
在文件对话框中,假定有一个名为 "fcexe "的文件,它位于 "d: pp "目录下,则 "FileName "属性请帮忙给出正确答案和分析,谢谢!
假定有如下的Sub过程: Sub S(x As Single y As Single) t=x x=
假定有如下的Sub过程: Sub S(x As Single,y As Single) t=x x=t y y=t Mod y End Sub 在窗体上画一个命令按钮,然后编写如下事件过程:
以下是一个计算矩形面积的程序 调用过程计算矩形面积 请将程序补充完整。 Sub RecArea(L
以下是一个计算矩形面积的程序,调用过程计算矩形面积,请将程序补充完整。 Sub RecArea(L,W) Dim S As Double S=L*W MsgBox"Total Area is"&
假定一个文本框的Name属性为Text1 为了在该文本框中显示“Hello!” 所使用的语句为【 】
假定一个文本框的Name属性为Text1,为了在该文本框中显示“Hello!”,所使用的语句为【 】。请帮忙给出正确答案和分析,谢谢!
在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮 背景色变为红色;再单击
在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮,背景色变为红色;再单击,背景色变为绿色;再单击,背景色变为蓝色;再
