Dim i As Integer, j As Integer, k As string, n As Integer

n = 3

List1.Clear

For i=1 To n

k =″″

For j=1 To i

k = k+″*″

Next j

List1.AddItem k

Next i

该程序运行后, 在列表框List中显示的是（   ）

程序代码中,语句加框处有错，请改正。

Private Sub Command1_Click()

Dim s As String, sum As Integer

Dim i As Integer, j As Integer

List1.Clear

s = Text1.Text

n = len(s)

                               ’（1）

For i = 1 To n

  For j = 1 To n-i+1

     List1.AddItem        ’（2）

     sum = sum + 1

  Next j

Next i

List1.AddItem "总共有" + Str(sum)  + "个子串"

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

s = "2019.06 Visual Basic 6.0": n = 0 For i = 1 To Len(s)

    ch = Mid(s, i, 1)

    If ch >= "0" And ch <= "9" Then

        m = Asc(ch) - Asc("0") + 1

        a(m) = a(m) + 1

    End If

 Next i

 For i = 1 To 10

    If a(i) > 1 Then n = n + i

 Next i

数组 a 各元素的初始值都为0，执行该程序段后，则变量n的值为（  ）

Dim a(1 To 6) As Integer

Randomize

a=n Mod k

n=n\k,k=k+1,s=s+a

a(1) = Int(11 * Rnd) + 2

For i = 2 To 6

a(i) = Int(11 * Rnd) + 2

If i Mod 2 = 1 And Not prime(a(i)) Then i = i - 1

ElseIf Not prime(a(i)) Then a(i) = a(i) + a(i - 1)

End If

Next i

'自定义函数 prime()用于判断参数是否为质数，prime(n) = True 则说明 n 为质数，否则为合数，定义函数代码略执行该程序后，a(1)～a(6)的值不．可．能．为（  ）

输入a，b两个整数，如果a为大数，则进行交换，然后分别输出大数、小数的值。

a＝int（input（"请输入a："））

b＝int（input（"请输入b："））

if {#blank#}1{#/blank#}：                  #如果a为大数

a, b＝b, a

print（"大数是"，{#blank#}2{#/blank#} ，"小数是"，{#blank#}3{#/blank#}）