当前位置: 高中信息技术 / 综合题
  • 1. (2019高三下·浙江月考) 设计一个算法,从一串数字中找出所有数字之间绝对值的最大差值。具体程序功能如下:在文本框输入数字串(数据间用逗号分隔,以数字结尾),单击按钮,在标签框输出结果。例如在Text1中输入“13,-5,20,3,-1”,单击“计算”按钮“Command1”,在标签框“shuchu”输出“25”。实现算法的VB程序如下,界面如图所示,回答下列问题:

    Private Sub Command1_Click()

        Dim i As Integer, j As Integer, t1 As Integer, t2 As Integer

        Dim s As String, c As String, st1 As Integer, st2 As Integer, max As Integer

        s = Text1.Text: max = 0: st1 = 1

        For i = 1 To Len(s) - 1

            c = Mid(s, i, 1)

            If c = "," Then

                t1 = Val(Mid(s, st1, i - st1))

                   ①    

                st2 = st1

                For j = i + 1 To Len(s)

                       ②   

                    If c = "," Then

                        t2 = Val(Mid(s, st2, j - st2))

                        st2 = j + 1

                       

                    End If

                Next j

            End If

            If j>0 Then t2 = Val(Mid(s, st2, j - st2))

            If Abs(t1 - t2) > max Then max = Abs(t1 - t2)

        Next i

        shuchu.Caption = "所有数之间绝对值相差最大为:" + Str(max)

    End Sub

    1. (1) 为实现该程序,在窗体中使用了多个对象,如图所示,不包括窗体,该程序使用了类对象。
    2. (2) 根据算法要求,请在划线处填入合适代码,使程序完整。

       ② 

    3. (3) 若删除程序中加框处语句,则计算出的最大差值为:

微信扫码预览、分享更方便