VBS(VBScript)サポート&サンプルTOPへ

PR

関連書籍PR

カテゴリ

姉妹サイトリンク

VBS(VBScript)による10進数を2進数に変換するプログラムを紹介

10進数を2進数に変換

サンプルソース


Dim a,b,k

a = 65535   '10進数(16ビット以内):変換したい数字を入力
for i = 1 to 16   '16ビットなので
 b = a mod 2
 a = (a-b) / 2
 k = b & k
 if (a=0) then
  exit for
 end if
next

if (a>=1) then
 msgbox("16ビットを超えています。")
else
 msgbox(k)
end if



  

戻る




Copyright (C) VBS(VBScript)サポート&サンプル by wannko All Rights Reserved.
お問合せ先 ⇒ nachiko★wannko.net(★を@に変更して下さい。)