用VB編寫數制轉換的程序

編程環境下，Ctrl+E,菜單編輯器，按代碼寫入

標題：進制轉換 名稱：Menu（選擇“顯示菜單列表”）然後按那個“->”標誌的按鈕

標題：二進制 名稱：Tran2

標題：八進制 名稱：Tran8

標題：十六進制 名稱：Tran16

標題：退出 名稱：Quit(選擇“顯示菜單列表”）

Option Base 1

Dim arr() As Variant

Private Sub Form_Load()

Label2.Caption = "轉換數值："

Text1.FontSize = 14

End Sub

Private Sub Quit_Click()

Unload Me

End Sub

Private Sub Tran16_Click()

If Text1.Text <> "" Then

Label1.Caption = "轉換後的十六進制數值為：" + "X" + Hex(Val(Text1.Text))

Else

Beep

MsgBox "請輸入整數"

End If

End Sub

Private Sub Tran2_Click()

Dim var As Integer

Label1.Caption = "轉換後的八進制數值為："

var = Val(Text1.Text)

i = 0

Do

i = i + 1

ReDim Preserve arr(i)

x = var Mod 2

arr(i) = x

var = var / 2

Loop While var > 0

For j = i To 1 Step -1

Label1.Caption = Label1.Caption & arr(j)

Next j

End Sub

Private Sub Tran8_Click()

If Text1.Text <> "" Then

Label1.Caption = "轉換後的八進制數值為：" + "O" + Oct(Val(Text1.Text))

Else

Beep

MsgBox "請輸入整數"

End If

End Sub

網太卡 圖片無法上傳 不知道語言妳是否能夠理解？

上一篇:寶馬3系carplay連接中斷是怎麽回事？

下一篇:松下伺服該怎麽選型，要註意哪些問題？