modmain.bas

一个把VB原代码转换为VC原代码的软件代码。

Attribute VB_Name = "ModMain"
' -------------------------------------
' VB2Cpp - Visual Basic to C++ translator.
' Copyright (C) 2002-2003 Franck Charlet.
'
' VB2Cpp is free software; you can redistribute it and/or modify
' it under the terms of the GNU General Public License as published by
' the Free Software Foundation; either version 2, or (at your option)
' any later version.
'
' VB2Cpp is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.
'
' You should have received a copy of the GNU General Public License
' along with VB2Cpp; see the file Copying.txt.  If not, write to
' the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
' Boston, MA 02111-1307, USA.
' -------------------------------------
' Example 4
' Let's do some work with arrays.
' -------------------------------------

Option Explicit

Public Sub Main()
    Dim i As Long

    Dim DynArray() As String
    Dim StaticArray(10) As Long
    Dim StaticResult As String
    Dim DynArray2() As Long
    Dim DynArray3() As Single
    
    ReDim DynArray3(2)
    DynArray3(2) = True
    ReDim Preserve DynArray3(3)
    DynArray3(3) = 1.89 + DynArray3(2)

    ReDim DynArray(10)
    DynArray(0) = "abcdefghi"
    DynArray(2) = "jklmnqoprs"
    DynArray(10) = "tuvwxyz"
    DynArray(9) = DynArray(8 + 2)
    ReDim Preserve DynArray(9)
    DynArray(1) = DynArray(0) & " " & DynArray(2) & " " & DynArray(9)
    DynArray() = Split(DynArray(1), " ")
    MsgBox "Dynamic array with strings: " & vbCr & DynArray(0) & DynArray(1) & DynArray(2) & " " & DynArray3(3), vbInformation + vbOKOnly, "VBToLC6 Example 4"
    
    ReDim DynArray2(8)
    DynArray2(0) = 1
    DynArray2(1) = 2
    DynArray2(2) = 80
    DynArray2(0) = (DynArray2(2) ^ DynArray2(1)) + DynArray2(0)
    MsgBox "Dynamic array with long: " & vbCr & DynArray2(0) & vbCr & "UBound()/LBound(): " & vbCr & UBound(DynArray()) & " " & LBound(DynArray()) & vbCr & UBound(DynArray2()) & " " & LBound(DynArray2()), vbInformation + vbOKOnly, "VBToLC6 Example 4"

    DynArray2(0) = 0
    For i = 0 To 10 Step 1
        StaticArray(i) = DynArray2(0) * DynArray2(0)    ' DynArray2(0)^2
        DynArray2(0) = DynArray2(0) + 1
    Next
    For i = 0 To 10 Step 1
        StaticResult = StaticResult & CStr(StaticArray(i)) & vbCr
    Next
    MsgBox "Calculation inside arrays: " & vbCr & StaticResult, vbInformation + vbOKOnly, "VBToLC6 Example 4"
End Sub