充值活动已开启,快来参与吧 关闭充值活动
当前位置: 高中信息技术 / 算法与程序设计 / 算法及程序语言基础 / 类、对象、属性、方法、事件和事件处理的概念及应用
  • 1. 在平面坐标系中,给定一组有序的点。从原点出发,依次用线段连接这些点,构成一条折线。要求编写一个“计算折线长度”的程序,功能如下:在文本框Textl中依次输入这些点的坐标值(数据都用逗号分隔并以逗号结尾),单击“计算”按钮Cmd后,程序计算这条折线的长度,结果显示在Label1中。例如,三个点的坐标为(5,10),(8,12),(6,17),输入格式如图所示。


    1. (1) Cmd对象属于类(单选,填字母:A .Form / B .Label/C .TextBox/D .CommandButton).
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适的代码。

      Private Sub Cmd_Click()

      Dim i As Integer,j As lnteger,k As Integer

      Dim x1 As Single,yl 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:j=1:Totald=0

      For i=1 To Len(s)

        If Mid(s,i,1)="," Then

          v=Val(Mid(s,j,i-j))'提取坐标值,保存在变量ν中

          j=i+1

          lf    ②    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. (3) 运行该程序,输入题干中的数据,程序执行到循环结束时,变量k为