题型：综合题 题类：常考题 难易度：困难
浙江省嘉兴市第一中学2017-2018学年高二上学期信息技术期中考试试卷
Private sub command1_click()
Dim a(0 to 9) as integer ‘数组元素a(i)中存放数字i的个数
Dim s as string , ch as string
Dim t as integer
For i=0 to 9
a(i)=0
next i
s=text1.text
for i=1 to len(s)
if ch>=”0”and ch<=”9” then
t=
a(t)= a(t)+1
end if
next i
list1.clear
for i=1 to 9
if a(i)<>0 then
list1.additem ”数字：”+str(i)+ ”，共有”+ str(a(i))+ ”个”
end if
next i
end sub
请输入多边形的边的数量：4 请输入多边形顶点的横坐标：0 请输入多边形顶点的纵坐标：0 请输入多边形顶点的横坐标：2 请输入多边形顶点的纵坐标：4 请输入多边形顶点的横坐标：3 请输入多边形顶点的纵坐标：5 请输入多边形顶点的横坐标：6 请输入多边形顶点的纵坐标：6 {1: [0, 0], 2: [2, 4], 3: [3, 5], 4: [6, 6]} 多边形的周长为： 17.533908551779625 |
d={} s=0
n=int(input("请输入多边形的边的数量："))
for i in range(1, ① ):
x=int(input("请输入多边形顶点的横坐标："))
y=int(input("请输入多边形顶点的纵坐标："))
d[i]=[x,y] print(d)
j=n
while j>1:
x1=d[j][0]-d[j-1][0]
y1= ①
s=s+(x1**2+y1**2)**0.5
②
s=s+((d[n][0]-d[1][0])**2+(d[n][1]-d[1][1])**2)**0.5
print("多边形的周长为：",s)
试题篮
