单项选择题

如下事件过程： 　　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
<上一题 目录 下一题>
热门 试题

单项选择题
设有如下通用过程：Public Function Fun(xStr As String)As StringDim tStr As String,strL As IntegerstrL=Len(xStr)Do While i<=strL／2tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1)i=i+1Loop在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click()Dim S1 As StringTextl.Text=UCase(Fun(S1))程序运行后,单击命令按钮,则Textl中显示的是【 】
A．ABCDEF
B．abcdef
C．AFBECD
D．DEFABC
单项选择题
对窗体编写如下事件过程：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． 12　1
B． 20　2
C． 18　5
D．24 12
相关试题