单项选择题

如下事件过程： 　　Function Feed(x) 　　　　If x ＜10 Then 　　　　　　Feed=X 　　　　Else 　　　　　　Feed=10+x 　　End If 　　End Function 　　Private Sub Command1_Click( ) 　　　　x=Val(Input Box(" "，0)) 　　　　pay=Feed(x) 　　　　Print pay 　　End Sub 　　运行时在输入框内输入变量x的值为15，输出结果为( )。

A．0
B．15
C．25
D．30
<上一题 目录 下一题>
热门 试题

填空题
以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输 入负数时结束输入，输出结果。请补充完整下列程序段。Dim x，amax,amin As Singlex=InputBox( Enter a score )amax=xamin=xDo While【 】 If x>amax Thenamax=xEnd IfIf【 】Thenamin=xEnd Ifx=InputBox( enter a score )LoopPrint max= ；amax， min= ；amin
填空题
如果存在如下过程：Private Function FMax(a( )As Integer)Dim First As Integer，Last As Integer，i As IntegerFirst=LBound(A) Last=UBound(A) Max=a(First)For i=First To LastIf a(i) ＞ Max Then Max=a(i)Next iFMax=MaxEnd Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1 Click( )ReDim m(1 To 4) As Integerm(1)=20：m(2)=30：m(3)=50：m(4)=100c=FMax(m)Print cEnd Sub单击命令按钮，其输出结果为【 】。
相关试题