运行下列程序，输入如下两行： Hi， I amhere． 弹出的窗体中的显示结果是（ ）。Private Sub Commandll_Click()Dim abeAs String,sum As Stringsum Ⅰ””Doabc=InputBox(”输入abc”)If Right(abc，1)=”．”Then Exit Dosum=sum+abcLoopMsgBoxsumEnd Sub Hi。 I。 am。 here。
假设有一组数据：工资为800元，职称为“讲师”，性别为“男”，在下列逻辑表达式中 结果为“假”的是（ ）。 工资>800 AND职称=”助教”OR职称=”讲师”。 性别=”女”()R NOT职称=”助教”。 工资=800 AND(职称=”讲师”OR性别=”女”)。 工资7>800 AND(职称=”讲师”OR性别=”男”)。
有如下事件程序，运行该程序后输出结果是（ ）。 PrivateSub Command33_click()Dim x AsInteger，Y AsIntegerx=1：y=0Do Untily<=25y=y+x*xx=x+1LoopMsgBox”x=＆x＆”，y="&YEnd Sub x=1，y=0。 x=4，y=25。 x=5，y=30。 输出其他结果 。
运行下列过程，当输入一组数据：l0，20，50，80，40，30，90，100，60，70，输出的结果应该是（ ）。Sub pl()Dim i，j，arr(11)AsIntegerx=1Whilek<=10arr(k)=VaI(InputBox(”请输入第”&k&”个数：”，”输入窗口”))k=k+1WendFor i=1T09J=i+1Ifarr(i)>arr(j)Thentemp=arr(i)arr(i)=art(j)arr(j)=tempEndIfDebu9．Printarr(i)NextiEnd Sub 无序数列。 升序数列。 降序数列。 原输入数列 。
用来测试当前读写位置是否达到文件末尾的函数是（ ）。 EOF 。 FileLen。 Len。 LOF。
下列程序的功能是：输入l0个整数。‘Private sub Command2_Click()
Dim i，j，k，temp，arr(11)As Integer
Dimresult As String
For k=1T0 10
arr(k)=Val(InputBox(
“请输入第”&k&”个数：”，”数据输入窗口”))
Next k
i=1
J=10
Do
Temp=arr(i)
arr(i)=arr(j)
arr(j)=tempi=i+1
j=__________LoopWhileresule=””For k=1 To 10
result=result&arr(k)&Chr(13)Nextk
MsgBoxresult
End Sub
横线处应填写的内容是（ ）。
