VisualBasicVisualStudio2008を使用し、ウィンドウ内の左のテキストボックスに文字を入力し、右のテキストボックスに文字整列ソート後の結果を表示するシステムである。ウィンドウ内にSort文字整列ボタンとEndボタンがある。本発明は、翻訳システムを作成しようと思って、副次的に作成られたものである。本発明は、コンピュータ上から実行する形態である。図1は左のテキストボックスにbedacを入力しSortボタンを押すと右のテキストボックスにabcdeを出力する。ファイル名:Form1vbPublicClassForm1DimimaxAsInteger入力文字の最大値ConstalphabetmaxAsInteger26アルファベットの最大文字数DiminputAsString入力用の配列DimoutputAsString出力用の配列DimalphabettableAsStringabcdefghijklmnopqrstuvwxyzアルファベットを数字に変換するためのテーブルDimalphabettranstableAsString123456789101112131415161718192021222324252699アルファベットの数字の順番に対応する文字のテーブルPrivateSubForm1LoadHandlesMyBaseLoadEndSubPrivateSubTextBox1TextChangedHandlesTextBox1TextChangedinputTextBox1TextimaxinputLengthEndSubPrivateSubButton1ClickHandlesButton1ClickDiminputtransAsString入力用した文字を数字に変換した配列DimoutputtransAsString出力用する文字に変換する数字の配列DimsorttempAsStringソート用の配列DimiAsIntegerループ用の変数DimjAsIntegerループ用の変数DimkAsIntegerソート用の変数outputの初期化outputtextboxに入力したデータをアルファベットの順番の数字に変換Fori0Toimax1Forj0ToalphabetmaxIfinputCharsalphabettableTheninputtransalphabettablejalphabetmaxEndIfNextNext入力したアルファベットをソートk0Forj0ToalphabetmaxFori0Toimax1IfinputtransalphabettableThensorttempalphabettranstablekk1EndIfNextNextソートしたデータをtextbox2の出力用のデータに変換Fori0Toimax1Forj0ToalphabetmaxIfsorttempalphabettranstableThenoutputtransalphabettablejalphabetmaxEndIfNextNext出力用の変数に出力するFori0Toimax1outputoutputoutputtransNextテキストボックスに出力TextBox2TextoutputEndSubPrivateSubTextBox2TextChangedHandlesTextBox2TextChangedEndSubPrivateSubButton2ClickHandlesButton2ClickEndEndSubEndClassファイル名:Form1designervbPartialClassForm1InheritsSystemWindowsFormsFormフォームがコンポーネントの一覧をクリーンアップするためにdisposeをオーバーライドします。ProtectedOverridesSubDisposeTryIfdisposingAndAlsocomponentsIsNotNothingThencomponentsDisposeEndIfFinallyMyBaseDisposeEndTryEndSubWindowsフォームデザイナで必要です。PrivatecomponentsAsSystemComponentModelIContainerメモ以下のプロシージャはWindowsフォームデザイナで必要です。Windowsフォームデザイナを使用して変更できます。コードエディタを使って変更しないでください。PrivateSubInitializeComponentMeTextBox1NewSystemWindowsFormsTextBoxMeTextBox2NewSystemWindowsFormsTextBoxMeButton1NewSystemWindowsFormsButtonMeButton2NewSystemWindowsFormsButtonMeSuspendLayoutTextBox1MeTextBox1LocationNewSystemDrawingPointMeTextBox1NameTextBox1MeTextBox1SizeNewSystemDrawingSizeMeTextBox1TabIndex0TextBox2MeTextBox2LocationNewSystemDrawingPointMeTextBox2NameTextBox2MeTextBox2SizeNewSystemDrawingSizeMeTextBox2TabIndex1Button1MeButton1LocationNewSystemDrawingPointMeButton1NameButton1MeButton1SizeNewSystemDrawingSizeMeButton1TabIndex2MeButton1TextSortMeButton1UseVisualStyleBackColorTrueButton2MeButton2LocationNewSystemDrawingPointMeButton2NameButton2MeButton2SizeNewSystemDrawingSizeMeButton2TabIndex4MeButton2TextEndMeButton2UseVisualStyleBackColorTrueForm1MeAutoScaleDimensionsNewSystemDrawingSizeFMeAutoScaleModeSystemWindowsFormsAutoScaleModeFontMeClientSizeNewSystemDrawingSizeMeControlsAddMeControlsAddMeControlsAddMeControlsAddMeNameForm1MeTextForm1MeResumeLayoutMePerformLayoutEndSubFriendWithEventsTextBox1AsSystemWindowsFormsTextBoxFriendWithEventsTextBox2AsSystemWindowsFormsTextBoxFriendWithEventsButton1AsSystemWindowsFormsButtonFriendWithEventsButton2AsSystemWindowsFormsButtonEndClass図2は左のテキストボックスにedcbaを入力しSortボタンを押すと右のテキストボックスにabcdeを出力する