【VB开源代码栏目提醒】:网学会员VB开源代码为您提供Ex4_3.frm参考，解决您在Ex4_3.frm学习中工作中的难题，参考学习。

    VERSION 5.00
    Begin VB.Form Ex4_3 
       Caption         =   "Form1"
       ClientHeight    =   3060
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4680
       LinkTopic       =   "Form1"
       ScaleHeight     =   3060
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
       Begin VB.CommandButton Command2 
          Caption         =   "交换"
          Height          =   375
          Left            =   2640
          TabIndex        =   4
          Top             =   1560
          Width           =   855
       End
       Begin VB.TextBox Text2 
          Height          =   615
          Left            =   240
          MultiLine       =   -1  'True
          TabIndex        =   2
          Top             =   2160
          Width           =   3975
       End
       Begin VB.CommandButton Command1 
          Caption         =   "计算"
          Height          =   375
          Left            =   840
          TabIndex        =   1
          Top             =   1560
          Width           =   855
       End
       Begin VB.TextBox Text1 
          Height          =   735
          Left            =   240
          MultiLine       =   -1  'True
          TabIndex        =   0
          Top             =   600
          Width           =   3975
       End
       Begin VB.Label Label1 
          Caption         =   "请输入数组元素，用逗号分隔"
          Height          =   255
          Left            =   360
          TabIndex        =   3
          Top             =   240
          Width           =   2535
       End
    End
    Attribute VB_Name = "Ex4_3"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Private Sub Command1_Click()
    Dim str() As String
    Dim num() As Integer
    Dim i, k, max, sum, n As Integer
    str() = Split(Text1.Text, ",") '为数组赋值
    n = UBound(str)
    ReDim num(n)
    For i = 0 To n
        num(i) = CInt(str(i))
    Next i
    max = num(0)
    sum = 0
    For i = 0 To n
        If num(i) > max Then
            max = num(i)
            k = i
        End If
        sum = sum + num(i)
    Next i
    Text2.Text = "最大元素为" & max & "，下标为" & k & "，各元素之和为" & sum
    End Sub
    
    Private Sub Command2_Click()
    Dim str1() As String
    Dim s, st As String
    Dim i, n As Integer
    str1() = Split(Text1.Text, ",") '为数组赋值
    n = UBound(str1)
    For i = 0 To n \ 2
             s = str1(i)
             str1(i) = str1(n - i)
            str1(n - i) = s
    Next i
    st = Join(str1, ",")
    Text2.Text = st
    End Sub
    
    

上一篇：Ex4_2.frm
下一篇：致享和威驰哪个好点?冲着安全和空间 推荐致享