Dim min As Single ,  d2 As Double , abc As String

则变量min的类型是({#blank#}1{#/blank#}) ，变量d2的类型是({#blank#}2{#/blank#}) ，变量abc的类型是({#blank#}3{#/blank#})。

A.可变类型   B.单精度型   C.双精度型   D.字符串型

Private Sub Command1_Click()

        Dim  N  As  Integer

        Dim  S  As  Integer

        N = val(Text1.Text)    

        S = 0

          For i = 1 To N

             S = S +  i * (i + 1)

          Next i

        Text2.Text = str(S)

End Sub

Dim M(10) as integer

For i = 0 To 10

M(i) = 2*i

Next i

Print M(M(3))

Dim a(1 To 10) As Integer

a(1)=2: a(2)=18: a(3)=10: a(4)=34: a(5)=16

a(6)=7: a(7)=37: a(8)=6: a(9)=15: a(10)=15

c=0: x=0: t= 1

For i=1 To 10

    a(i)=a(i)*t

    c=c+a(i)

    If c>0 Then x=x+1

    t=-t

Next i

Text1.Text=Str(x)

则程序运行后Text1中显示（  ）