单项选择题

如下事件过程：　　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．1234
B． foo～～bar
C． virtual
D． 34var

<上一题目录下一题>

热门试题

单项选择题

有如下程序：Private Sub Form_Click() Dim Check, Counter Check = True Counter = 0 Do Do While Counter < 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop Loop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为______。

A．15 0
B．20 -1
C．10 True
D．10 False

单项选择题

对窗体编写如下事件过程：Option Base 1Private Sub Form_KeyPress (KeyAScii AS Integer)arr=Array(12，15，18，20，24)m1=arr(1)m2=1If fKeyAscii=12 ThenFor i=2 To 5If arr(i)＞m1 Thenm1=arr(i)m2=iEnd IfNext iEnd IfPrint m1Print m2End Sub程序运行之后按回车键，输出结果为( )。

A． N=0　　Do　　　N=N+1　　Loop Until N＞=100
B． N=0　　Do　　　N=N+1　　Loop While n＜100
C． N=0　　N=N+1　　Do　　Loop Until N＜100
D． N=0　　Do While n＜100　　　　N=N+1　　Loop

相关试题