以下程序段：

Private Sub Form_Load( )

D．im Nop As Integer, Op As String * 1

Num1 = 3

Num2 = 2

Nop = val(Inputbox("请输入1-4之间的整数"))

Select Case Nop

C．ase 1

Op = "+"

Result = Num1 + Num2

C．ase 2

Op = "-"

Result = Num1 - Num2

C．ase 3

Op = "×"

Result = Num1 * Num2

C．ase 4

Op = "÷"

Result = Num1 / Num2

E．nd Select

Label1= Num1 & Op & Num2 & "=" & Result

E．nd Sub

窗体运行后，输入1，则label1的标题显示结果为()

A．3+2=5

B．3-2=1

C．3×2=6

D．3÷2=1.5

[单选题]程序如下：Private Sub form_ Activate() Dim a As Integer for i=4 To 5 a=fun(i) Print a, Next iEnd SubPrivate Function fun(n)As Integer if n ＞0 then fun =n* fun(n-1) Else fun=1 End ifEnd Function 程序最后打印结果是______。A．4 5B．12 120C．24 120D．24 60

[单选题]以下过程是（）事件。Prviate Sub Form_Load( )……End SubA . 命令按钮的单击B . 命令按钮的装载C . 窗体的装载D . 窗体的单击

[单选题]运行下列程序：Private Sub Form_Click( )D．im a As Integera = 1F．or i = 1 To 5C．all fun1(a)Next iPrint aE．nd SubPrivate Sub fun1(x)y = 2D．ox = x + yLoop Until x > 10E．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．5B．1 2 3 4 5C．19D．7

[单选题]下面程序： Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。A．0B．12C．Str(z)D．显示错误信息

[单选题]运行下列程序:Private Sub form_Click( )Dim xx = 0Do While x < 10x = x £« 3LoopMsgBox x运行下列程序：Private Sub form_Click( )D．im xx = 0D．o While x < 10x = x + 3LoopMsgBox xE．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．0B．3C．10D．12

[单选题]运行下列程序：Private Sub Form_Click()D．im sum As IntegerD．im i As Integersum = 0F．or i =12.4 To3.1 Step -3.8sum = sum + iNext iD．ebug.Print sumE．nd Sub单击窗体后，则在立即窗口上输出结果是()。A．15B．- 0.7C．24D．0

[单选题]运行下列程序：Private Sub Form_Click()D．im sum As Double, i As IntegerF．or i = 1 To 20If i Mod 5 = 0 Thensum = sum + iE．nd IfNext iPrint sumE．nd Sub单击窗体后，则在窗体上显示的结果是()。A．50B．100C．4D．5050

[单选题]运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = &qu运行下列程序：Private Sub Form_Click( )D．im x As Integer, y As String, z As Stringy = "12345"F．or x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zE．nd Sub单击窗体后，则在窗体

[单选题]运行下列程序:Private Sub form_Click( )Dim sl As String, s2 As Strings1 = "1234&quo运行下列程序：Private Sub form_Click( )D．im sl As String, s2 As Strings1 = "1234"m = 0F．or i = 3 To 1 Step -1m = m + 1s2 = fun1(s1, m)D．ebug.Print s2;Next iE．nd SubPrivat

[单选题]运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x运行下列程序：Private Sub Form_Click( )D．im y As Integer, x As IntegerD．o Until x > 20x = x + 10y = y + xIf x > 20 Then Exit DoLoopPrint x, yE．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．1