Private Sub Command1_Click()

Dim  a  As  String

Dim  b  As  String

Dim  c  As  String

a = Text1.Text

b = Text2.Text

c = a + b

Label1.capton = c

End Sub

程序运行时，单击命令按钮command1，弹出如图所示的出错信息提示，此时程序正执行的语句是（   ）

n = 0

For i = 1 To Len(Text1.Text)

    c = Mid(Text1.Text, i, 1)

    If c >= "0" And c <= "9" Then m = 1 Else m = 2

    a(m) = a(m) + 1

    If a(m) = 1 Then n = n + 1

Next i

数组a各元素的初始值都为0，文本框Textl的内容为“Luck2018”。执行程序后，变量n的值为{#blank#}1{#/blank#}

a = 3

b = 4

c = 5

If a > b Then a = b Else b = a

则程序运行后的a和b的值分别是：（   ）

Private Sub Command1_Click()

a = Text1

For i = 1 To Len(a)

    b = Mid(a, i, 1)

    c = Chr(Asc(b) )

    d = d + c

Next i

Text2 = d

End Sub

如果在文本框text1中输入字符"316100"，则文本框text2中显示的值是：（   ）

Private Sub Command1_Click()

Dim i As Integer, j As Integer, sum As Integer

Dim n As Integer, k As Integer, tmp As String

n = Val (Text1.Text)

sum = 0:List1.Clear

For i = 1 To n-1

 j=i

 Do While sum < n

  {#blank#}1{#/blank#}

 j = j + 1

 Loop

 If sum = n Then

  {#blank#}2{#/blank#}

  For k=i+1 To j-1

   tmp = tmp + “+” + Str(k)

  Next k

  List1.AddItem tmp +“=”+ Str(n)

  End If

  {#blank#}3{#/blank#}

 Next i

 End Sub