ＶＢでＶＣ＋＋の処理速さを実現する

質問

ふと疑問に思ったので質問します。

あくまでも一般論ですが、ＶＢはＶＣ＋より簡単だけどデメリットは処理速度が遅いことだそうです。

でもどちらも最終的には機械語？に訳されるんでしょ？

じゃあ人間にとって作りやすいＶＢで作っても、最終的にはコンパイラがＶＣ＋＋と同じ機械語にしてくれたら良いと思うのですが。

どうしてそういう都合の良いことは出来ないのですか？

回答No.8

tsukasa-12r

ちょっと遅くなりました。
結論を先に言うと、私としては予想以上に差が出たという気がします。
要素数 10000 の 32 bit 整数配列のソート（クイックソート）を 1000 回繰り返したときの所要時間は
VC++ : 3 sec
VB : 61 sec
でした。( Pentium (3) 730MHz + Memory 384MB + WindowsXP )

ちなみにソースは
=== C ===
#include <stdio.h>
#include <stdlib.h>
#include <time.h>

void qsort( int *piData, int iStart, int iEnd );

int main( int iArgc, char *pstrArgv[] )
{
　　if( iArgc < 2 ) {
　　　　printf( "Usage : QuickSort FileName NumberOfData" );
　　　　return( -1 );
　　}

　　FILE *fp = fopen( pstrArgv[1], "r" );
　　if( NULL == fp ) {
　　　　printf( "%s が見つかりません.\n", pstrArgv[1] );
　　　　return( -1 );
　　}

　　int iNumberOfData;
　　int *piData;
　　int *piWork;
　　char strBuffer[100];
　　char *p;
　　int i;
　　time_t tStart;
　　time_t tEnd;
　　int iRepeat;

　　iNumberOfData = atoi( pstrArgv[2] );
　　iRepeat = atoi( pstrArgv[3] );
　　piData = new int[iNumberOfData];
　　i = 0;
　　do {
　　　　p = fgets( strBuffer, 100, fp );
　　　　if( NULL != p ) {
　　　　　　piData[ i ] = atoi( strBuffer );
　　　　　　i++;
　　　　　　if( iNumberOfData <= i ) {
　　　　　　　　break;
　　　　　　}
　　　　}
　　} while ( *p );
　　fclose( fp );

　　piWork = new int[iNumberOfData];
　　tStart = time(NULL);
　　for( i = 0; i < iRepeat; i++ ) {
　　　　for( int j = 0; j < iNumberOfData; j++ ) {
　　　　　　piWork[ j ] = piData[ j ];
　　　　}
　　　　qsort( piWork, 0, iNumberOfData - 1 );
　　}
　　tEnd = time(NULL);
　　printf( "%d [s]\n", tEnd - tStart );

　　fp = fopen( pstrArgv[3], "w" );
　　if( NULL == fp ) {
　　　　return( -1 );
　　}
　　for( i = 0; i < iNumberOfData; i++ ) {
　　　　fprintf( fp, "%6d\n", piWork[ i ] );
　　}
　　fclose( fp );

　　return( 0 );
}

void qsort( int *piData, int iStart, int iEnd )
{
　　int iForward;
　　int iBackward;
　　int iTemp;

　　if( iEnd <= iStart ) {
　　　　return;
　　}

　　iForward = iStart + 1;
　　iBackward = iEnd;

　　while( iForward <= iBackward ) {
　　　　while( iForward <= iBackward ) {
　　　　　　if( piData[ iStart ] < piData[ iForward ] ) {
　　　　　　　　break;
　　　　　　}
　　　　　　iForward++;
　　　　}

　　　　while( iForward <= iBackward ) {
　　　　　　if( piData[ iBackward ] < piData[ iStart ] ) {
　　　　　　　　break;
　　　　　　}
　　　　　　iBackward--;
　　　　}

　　　　if( iBackward <= iForward ) {
　　　　　　break;
　　　　}

　　　　iTemp = piData[ iBackward ];
　　　　piData[ iBackward ] = piData[ iForward ];
　　　　piData[ iForward ] = iTemp;

　　　　iForward++;
　　　　iBackward--;
　　}

　　iTemp = piData[ iBackward ];
　　piData[ iBackward ] = piData[ iStart ];
　　piData[ iStart ] = iTemp;

　　qsort( piData, iStart, iBackward - 1 );
　　qsort( piData, iBackward + 1, iEnd );
}

=== VB ===
Private Sub Command1_Click()

　　Dim iFileNo As Integer
　　Dim lngData() As Long
　　Dim lngWork() As Long
　　Dim dtStart As Date
　　Dim dtEnd As Date
　　Dim i As Integer
　　Dim iNumberOfData As Long
　　Dim iRepeat As Integer
　　Dim strCommand() As String

　　strCommand = Split(Command(), ",")
　　iNumberOfData = CInt(strCommand(0))
　　iRepeat = CInt(strCommand(2))

　　iFileNo = FreeFile
　　Open strCommand(1) For Input Access Read As #iFileNo
　　ReDim lngData(iNumberOfData)
　　For i = 0 To iNumberOfData - 1
　　　　Input #iFileNo, lngData(i)
　　Next i
　　Close #iFileNo

　　dtStart = Now
　　For i = 1 To iRepeat
　　　　lngWork = lngData
　　　　QuickSort lngWork, 0, 9999
　　Next i
　　dtEnd = Now
　　MsgBox DateDiff("s", dtStart, dtEnd), vbInformation

End Sub

Private Sub QuickSort(ByRef strData() As String, ByVal lngStartIndex As Long, ByVal lngEndIndex As Long)
　　Dim strWork As String
　　Dim i As Long
　　Dim j As Long

　　If lngStartIndex >= lngEndIndex Then Exit Sub

　　i = lngStartIndex + 1
　　j = lngEndIndex
　　Do While i <= j
　　　　Do While i <= j
　　　　　　If strData(i) > strData(lngStartIndex) Then
　　　　　　　　Exit Do
　　　　　　End If
　　　　　　i = i + 1
　　　　Loop
　　　　Do While i <= j
　　　　　　If strData(j) < strData(lngStartIndex) Then
　　　　　　　　Exit Do
　　　　　　End If
　　　　　　j = j - 1
　　　　Loop

　　　　If i >= j Then Exit Do

　　　　strWork = strData(j)
　　　　strData(j) = strData(i)
　　　　strData(i) = strWork

　　　　i = i + 1
　　　　j = j - 1
　　Loop

　　strWork = strData(j)
　　strData(j) = strData(lngStartIndex)
　　strData(lngStartIndex) = strWork

　　Call QuickSort(strData, lngStartIndex, j - 1)
　　Call QuickSort(strData, j + 1, lngEndIndex)
End Sub

という感じです。

お礼

回答ありがとうございます。

凄い差ですね。