第八课 循环结构——For循环 知识点题库

（1） 在上面的程序中，以下分别列出圆的坐标和直径：

第一个圆的坐标和直径（100，100，100，100）

第二个圆的坐标和直径（110，110，80，80）

第三个圆的坐标和直径（，，，）

……

最后一个圆的坐标和直径（，，，）

（2） 在以上程序中，计算x坐标变化的语句是：

计算Y坐标变化的语句是：

画圆的语句为：

计算直径变化的语句为：

判断循环结束与否的语句是：

（1） 根据算法描述，上述示例中，字符“N”的相乘结果（即图中（★）处）为。

（2） 请在划线处填入合适代码。

Private Sub Command1_Click()

    Dim a(1 To 100)As Integer       '存储字符串，长度不超过100个字符

    Dim b(1 To 100)As Integer       '存储转置矩阵，长度不超过10*10

    Dim c(1 To 100)As Long

    Dim s As String, tmp As String

    Dim k As Integer, t As Integer, i As Integer, j As Integer

    Dim n As Integer, m As Integer, lens As Integer

    s=Text1. Text               '在Text1中输入原始字符串

    k=Val(Text 2.Text)          '在Text2中输入区块大小K

    Randomize

For i=1 To k^2

        b(i)=Int(Rnd*9)＋1

        tmp=tmp+Str(b(i))

        If i Mod k=0 Then

            List 2. AddItem tmp

            tmp="" 

        End If

    Next i

    lens=Len(s):n=lens

    For i=1 To n

        tmp=Mid(s,i,1)

        

        List1. AddItem Str(a(i))

    Next i

    Do While n Mod k＜＞0

        n=n+1

        a(n)=0

        List1. AddItem Str(a(n))

    Loop

    For i=1 To n

        m=(i-1) Mod k+1

        t=1

        For j=

            c(i)=a(j) * b((m-1) * k+t)+c(i)

            t=t＋1

        Next j

    Next i

    For i=1 To n

        List3. AddItem Str(c(i))

    Next i

    s=″″

    For i=1 To lens

        

        s=s+Chr(t+64)}

    Next i

    Text 3.Text=s               '在Text 3中输出转置后的字符串

End Sub

（1） 请使用python3.x版本，利用海龟绘图函数库编写一个程序绘制一个正方形，边长100单位。

（2） 难度提升，实现输入多边形边的数量，自动根据输入的边数绘制多边形，多边形的边长随意。

提示：让海龟前进10单位，turtle.forward(10)

让海龟左转45度，turtle.left(45)

让海龟右转90度，turtle.right(90)