试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

浙江省高中信息技术——VB基础知识

在平面坐标系中,给定一组有序的点。从原点出发,依次用线段连接这些点,构成一条折线。要求编写一个“计算折线长度”的程序,功能如下:在文本框Text1中依次输入这些点的坐标值(数据都用逗号分隔并以逗号结尾),单击“计算”按钮Cmd后,程序计算这条折线的长度,结果显示在 Label1中。例如,三个点的坐标(5,10)、(8,12)、(6,17)输入格式如图所示。

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

Private Sub Cmd_Click( )

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

Dim As Single, yl As Single,x2 As Single, y2 As Single

Dim 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))       ‘提取坐标值,保存在变量v中

    j=1+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的值为
举一反三
返回首页

试题篮