これまでの検討で、VBで作成したプログラムとC＃言語で作成したプログラムの演算能力は変わらないのでは？そんな疑問がわきます。ではX86モードとX64モードではどの程度演算能力に差が生じるのだろうか？そんな疑問に64 ビット対応 .NET アプリケーションの開発 (VB)が答えてくれます。
参照元情報64 ビット対応 .NET アプリケーションの開発 は
「64 ビット対応 .NET アプリケーションの開発 」にジャンプする
が有効です。演算時間の評価に関しては、上記サンプルに若干の修正を加える必要があります。
VBでの演算能力の検証完成ファイルは下記からダウンロードできます。
ダウンロード後は解凍してから使用してください。
[VBでの演算能力の検証]をダウンロードする。解凍すると「42GetPeData」フォルダーがあります。
注（１）「42GetPeData」フォルダーの「GetPeData.sln」ファイルをダブルクリックすると「Microsoft Visual Basic 2010 Express」が起動します。
注（２）メニューの「ウインド」＿「ウインドレイアウトのリセット」で標準に戻ります。
注（３）「ソリューションエクスプローラ」ウインドウ内の「MainWindow.xaml」をダブルクリックすると「デザイン」と「XAML」が表示されます。
注（４）メニューの「表示」＿「コード」を選択するとコードが表示されます。
注（５）「42GetPeData」の動作確認は「デバッグ」＿「デバッグ開始」で実行します。デバッグ機能を用いて動作確認を行います。
42GetPeData.slnの実行（１）「Microsoft Visual Basic 2010 Express」のデバッグ機能を使用します。
（２）VBコードでDoubleの足し算、引き算、掛け算、割り算を1G回繰り返すように設定してあります。
（３）For文の繰り返し回数を少なめに設定してから実行願います。処理時間の様子をみて回数を変更します。
（４）「デバッグ」＿「デバッグ開始」を選択します。
（５）取得ボタンを押します。
（６）スタート時刻、終了時刻、解析結果が表示されます。
（７）クローズボックスで終了します。
プロジェクトの構成（１）Form1.vbとそのコードで構成されます。
XAMLの全コード
<Window x:Class="MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="MainWindow" Height="401" Width="522">
<Grid>
<Grid Name="Grid1" Margin="0,25,0,0">
<Ellipse Height="50" HorizontalAlignment="Left" Margin="65,91,0,0" Name="Ellipse1" Stroke="Black" VerticalAlignment="Top" Width="93" Fill="BlueViolet" />
<Label Content="Label" Height="28" HorizontalAlignment="Left" Margin="225,167,0,0" Name="Label1" VerticalAlignment="Top" />
<Rectangle Height="56" HorizontalAlignment="Left" Margin="264,85,0,0" Name="Rectangle1" Stroke="Black" VerticalAlignment="Top" Width="101" Fill="Magenta" />
</Grid>
<StackPanel Height="25" HorizontalAlignment="Left" Name="StackPanel1" VerticalAlignment="Top">
<Button Content="印刷" Height="23" Name="Button1" Width="75" />
</StackPanel>
</Grid>
</Window>
XAMLのポイント（１）一般的な記載のみです。
Class MainWindowクラスの全コード
Imports System.Reflection
Public Class Form1
Private Sub button1_Click(sender As System.Object, e As System.EventArgs) Handles button1.Click
' プラットフォームのポインタサイズを取得する
Dim str As String = vbNullString
str = str & "IntPtr.Size=" & System.IntPtr.Size.ToString() & vbCrLf
' 現在実行中のアセンブリを構成するモジュールコレクションを取得する
Dim moduleArray As System.Reflection.Module() = _
Assembly.GetExecutingAssembly().GetModules()
' モジュールを列挙する
For Each md As System.Reflection.Module In moduleArray
' モジュールのアセンブリ名を取得する
Dim myAssembly As Assembly = md.Assembly
str = str & "Asm=" & myAssembly.FullName & vbCrLf
' モジュール(EXE/DLL) がもつ属性を取得する
Dim pekind As PortableExecutableKinds = New PortableExecutableKinds()
Dim ifm As ImageFileMachine = New ImageFileMachine()
md.GetPEKind(pekind, ifm)
str = str & "pekind =" & pekind.ToString() & vbCrLf
str = str & "ImageFileMachine=" & ifm.ToString() & vbCrLf
textBox1.Text = str
Next
Dim i As Integer
Dim x As Double = Math.Sqrt(2)
Dim y As Double = Math.PI
Dim z As Double
Me.dateTimePicker1.Format = DateTimePickerFormat.Time
Me.dateTimePicker1.ShowUpDown = True
For i = 0 To 1000000000 Step 1
z = x + y
z = y - x
z = x * y
z = x / y
Next i
Me.dateTimePicker2.Format = DateTimePickerFormat.Time
Me.dateTimePicker2.ShowUpDown = True
End Sub
End Class
VBコードの解説（１）Imports System.ReflectionはAssemblyクラスで必要とします。
（２）System.IntPtr.Size.ToString()はシステムのポインターサイズを与えます。
（３）Assembly.GetExecutingAssembly().GetModules()は現在実行中のアセンブリを構成するモジュールコレクションを与えます。
（４）myAssembly.FullNameはモジュールのアセンブリ名を与えます。
（５）pekind.ToString()はPortableExecutableKindsの属性を与えます。
（６）ifm.ToString()はImageFileMachineの属性を与えます。
（７） Me.dateTimePicker1.Format = DateTimePickerFormat.Timeで開始時間を表示します。
（８）For i = 0 To 1000000000 Step 1で四則演算を指定回数繰り返します。
（９）Me.dateTimePicker2.Format = DateTimePickerFormat.Timeで終了時間を表示します。
評価条件Windows7 Home Premium
Intel(R) Pentium(R) CPU G630 @2.70GHz
RAM 4GB 命令セット64-bit
評価結果（１）x64リリースモード
実行時間8s
IntPtr.Size=8
Asm=GetPeData, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
pekind =ILOnly, PE32Plus
ImageFileMachine=AMD64
（２）x64ディバッグモード
実行時間8s
IntPtr.Size=8
Asm=GetPeData, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
pekind =ILOnly, PE32Plus
ImageFileMachine=AMD64
（３）ｘ86リリースモード
実行時間8s
IntPtr.Size=4
Asm=GetPeData, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
pekind =ILOnly, Required32Bit
ImageFileMachine=I386
（４）ｘ86ディバッグモード
実行時間8s
IntPtr.Size=4
Asm=GetPeData, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
pekind =ILOnly, Required32Bit
ImageFileMachine=I386
捕捉説明（１）PE32Plus：この実行可能ファイルには 64 ビット プラットフォームが必要です。
（２）Required32Bit：この実行可能ファイルは 32 ビット プラットフォーム、または 64 ビット
プラットフォーム上の 32 ビット WOW (Windows on Windows) 環境で実行できます。
（３）AMD64：64ビットの汎用レジスタを持ち、32ビットのx86より広い物理および仮想のアドレス空間をサポートするため、プログラムが大きいデータをより容易に操作する事が可能である。またx86-64は32ビットのプログラムコードと完全な後方互換性を持つ。全ての32ビットの命令セットが、エミュレーションを介在せずにハードウェア上に実装され続けているため、32ビットのx86実行ファイルは、互換性上あるいは性能上の損失なしに稼動できる。ただし、既存のアプリケーションソフトウェアが性能向上を可能にするプロセッサ設計上の新機能を使用するには、再コード化が必要である。
（４）I386：Intel 80386（またはi386）はインテルの32ビットマイクロプロセッサ(CPU)である。1985年10月に発表され、x86アーキテクチャを32ビットに拡張し、レジスタを強化した。
感想：
（１）VBにおいては全てのモードで四則演算の処理時間は同じとなった。デバッグモードとリリースモードで差がないのはなぜだろうか？X86モードとX64モードで差が無いのはなぜだろうか？
（２）VBとC#の差はあるのだろうか？これも気になる課題です。VBとC#のコード変換は簡単ですので試してみました。
（３）総合比較結果では、C#のX86モードのリリースモードが最も高速で、それ以外の処理時間は全て同じ結果となりました。（なぜだろうか？）
（４）四則演算を1G回も繰り返すことはまれであり、実用的には処理時間の差は気にならないと思います。
４３章：チュートリアル42:ＷＰＦでの印刷（４） (VB)に行く。