Private Sub Command1_Click()

Dim r As Single, s As Single            '①

r="10米"                     '②

s=3.14159*r*r            '③

Text2.Text ="某个半径为"+ Str(r)+"米的圆,其面积为"+ Str(s)+"平方米."             '④

End Sub

则程序中出错的语句是（   ）

a（1）=68：a（2）=88：a（3）=76：a（4）=60：a（5）=98

a（6）=100：a（7）=64：a（8）=85：a（9）=99：a（10）=59

For i=1 to 9

    b（i）=Abs（a（i +1）-a（i））

    c（b（i）\10）=c（b（i）\10）+1

Next i

For i = 0 To 10

    If c（i）> 0 Then Label1. Caption = Label1. Caption + " "+Str（c（i））

Next i

数组c各元素初值为0，执行该程序段，标签Label1上显示的内容是（   ）

from microbit import *

while True:

    if button_a.is_pressed():

        display.show(Image.HAPPY)

    elif button_b.is_pressed():

        break

    else:

        display.show(Image.SAD)

sleep(1000)

在micro:bit硬件支持下，以下说法正确的是 （    ）

flag=False:s="ShanShui2020！"

For i=1 To Len（s）

    ch=Mid（s，i，1）

    If Not（ch〉="0"And ch<="9"）And Not flag Then

        t=ch+t

    End If

    flag=Not flag

Next i

Text1.Text=t

执行完以上程序段后，文本框text1中的内容为（      ）

#求0～50的所有偶数的和

s＝{#blank#}1{#/blank#}

for i in range（0, {#blank#}2{#/blank#} , {#blank#}3{#/blank#}）：

   s＝s＋{#blank#}4{#/blank#}

print（"0～50所有偶数的和为", {#blank#}5{#/blank#}）