题目

在平面直角坐标系中，给定一组有序的点。从原点出发，依次用线段连接这些点，构成一条折线。要求编写一个“计算折线长度”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这条折线的长度，结果显示在Label1中。例如，三个点的坐标（5，10）、（8，12）、（6，17）输入格式如图所示。 （1） Cmd对象属于类（单选，填字母：A .Form/B .Label/C .TextBox/D .CommandButton）。 （2） 实现上述功能的VB程序如下，请在画线处填入合适的代码。 Private Sub Cmd_Click( ) Dim i As Integer, j As Integer, k As Integer Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single Dim d As Single, Totald As Single, v As Single, s As String s=    ①     x1=0：y1=0             ‘出发点为坐标原点 k=1：i=1：Totald=0 For i=1 To Len（s）   If Mid（s，i，1）="，"Then       v=Val（Mid（s，j，i-j））       ‘提取坐标值，保存在变量v中       j=i+1       If    ②      Then           x2=v       Else           y2=v           d=Sqr（（x2-x1）-2+（y2-y1）-2）           Totald=Totald +d           x1=x2：y1=y2       End If       k=k+1   End If Next i Label1.Caption=Str（Totald） End Sub ①②  （3） 运行该程序，输入数据如图所示，程序执行到循环结束时，变量k的值为。 答案： 【1】D 【1】Text1.Text【2】k Mod 2=1 【1】7

查看本题答案和解析