运行下列程序，输入数据8、9、3、0后，窗体中显示结果是( )。

Prirate Sub．Form_click()

D．im sum As Integer,m As Integer

sum=0

D．o

m=inputBox(“输入m”)

sum=sum+m

Loop Until m=0

MsgBox sum

E．nd Sub

A．0

B．17

C．20

D．21

[单选题]下面程序运行时，若输入395，则输出结果是Prirate sub commandl_Click()D．im x％x=InputBox(“请输入一个3位整数”)Print x Mod 10，x＼100，(x Mod 100)＼10E．nd SubA．3 9 5B．5 3 9C．5 9 3D．3 5 9

[单选题]下面的程序运行时，单击窗体后，窗体上显示的结果是（ ）。A．9 8 7 6 3 2B．2 3 6 7 8 9C．9 8 7 6 3D．2 3 6 7 8

[单选题]执行下面的程序，单击窗体后在窗体上显示的结果是 ______。Private Sub form_ Click() Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1 = "e" for I = t To 2 Str2 = Ucase (Str1) Str1 = Str2 & Str1 Str3 = Str3 & Str1 str1 = Chr (Asc(Str1) + I) Next

[主观题]（11）运行下列程序，窗体中的显示结果是：x= (11) 。Option Compare DatabaseD．im x As IntegerPrivate Sub Form_Load()x=3E．nd SubPrivate Sub Command11_Click()Static a As IntegerD．im b As Integerb=x^2fun1 x,bfun1 x,bMsgBox "x="&xE．nd SubSub fun1(ByRef y As Integer,ByVal

[单选题]该程序运行后屏幕显示的结果是( )。 S=0 FOR X=2 TO 10 STEP 2 S=S+X ENDFOR ?S RETURNA．10B．20C．30D．40

[单选题]下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End SubA．3B．9C．5D．6

[单选题]下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End SubA．10B．12C．37D．22

[单选题]以下程序运行后，单击命令按钮，窗体显示的结果是 ______。 Private Function p1(x As Integer，y As Integel，z As Integer) p1=2*x+y+3*z End Function Private Function p2(x As Integer，y As Integer，z As Integer) p2=p1(2，y，x)+x End Function Private SubCommandl_Click() Dim a As Integer

[单选题]下列程序运行后屏幕显示的结果是（ ）。S=F．OR X=2 TO 10 STEP 2S=S+XE．NDFOR?SRETURNA．10B．20C．30D．40

[单选题]该程序运行后屏幕显示的结果是( )。S=0F．OR X=2 TO 10 STEP 2S=S+XE．NDFOR?SRETURNA．10B．20C．30D．40