※ 引述《cwc322 ( 直線的恐懼)》之銘言:
: 有兩個問題想問大家:
: 一個是:輸入16進位的數字,轉換成為10進位的結果
: 用select case
: 另外一個是:輸入兩個數字,求其最大公因數...
: 請各位大家幫幫忙吧....謝謝!
Dim val1 , lent1 , ans As Integer
lent1 = Len(TextBox1.Text)
For i = 1 To lent1
If Not IsNumeric(Mid(TextBox1.Text, lent1 - i + 1, 1)) Then
Select Case Mid(TextBox1.Text, lent1 - i + 1, 1)
Case "a" : val1 = 10
Case "b" : val1 = 11
Case "c" : val1 = 12
Case "d" : val1 = 13
Case "e" : val1 = 14
Case "f" : val1 = 15
End Select
Else
val1 = Mid(TextBox1.Text, lent1 - i + 1, 1)
End If
ans = ans + val1 * 16 ^ (i - 1)
Next
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.134.210.1