早教吧作业答案频道 -->其他-->
请问在VB里.字母和字母相加可以吗.我有两个或三个机器码,格式是:5VM35MLR和E04CC24AAF.这两个可以相加变成另一个机器码吗?
题目详情
请问在VB里.字母和字母相加可以吗.
我有两个或三个机器码,格式是:5VM35MLR和E04CC24AAF.这两个可以相加变成另一个机器码吗?
我有两个或三个机器码,格式是:5VM35MLR和E04CC24AAF.这两个可以相加变成另一个机器码吗?
▼优质解答
答案和解析
Private Function Str_Int(StrY As String) As Integer
Str_Int = Asc(StrY)
If Str_Int < 58 And Str_Int > 47 Then
Str_Int = Str_Int - 48
ElseIf Str_Int < 91 And Str_Int > 64 Then
Str_Int = Str_Int - 55
ElseIf Str_Int < 123 And Str_Int > 96 Then
Str_Int = Str_Int - 61
End If
End Function
Private Function Int_Str(IntY As Integer) As String
If IntY < 10 Then
IntY = IntY + 48
ElseIf IntY < 36 Then
IntY = IntY + 55
Else
IntY = IntY + 61
End If
Int_Str = Chr(IntY)
End Function
Private Sub Command1_Click()
Dim StrK As String, StrL As String
Dim K As Integer, L As Integer, M As Integer
Text3 = ""
If Len(Text1.Text) > Len(Text2.Text) Then
StrK = Text1.Text
StrL = Text2.Text
Else
StrK = Text2.Text
StrL = Text1.Text
End If
K = Len(StrK)
L = Len(StrL)
Label1.Caption = Command1.Caption
For i = K To 1 Step -1
If i > K - L Then
M = Str_Int(Mid(StrK, i, 1)) + Str_Int(Mid(StrL, i + L - K, 1))
Text3 = Int_Str(IIf(M > 61, M - 61, M)) & Text3
Else
Text3 = Int_Str(Str_Int(Mid(StrK, i, 1))) & Text3
End If
Next i
End Sub
Str_Int = Asc(StrY)
If Str_Int < 58 And Str_Int > 47 Then
Str_Int = Str_Int - 48
ElseIf Str_Int < 91 And Str_Int > 64 Then
Str_Int = Str_Int - 55
ElseIf Str_Int < 123 And Str_Int > 96 Then
Str_Int = Str_Int - 61
End If
End Function
Private Function Int_Str(IntY As Integer) As String
If IntY < 10 Then
IntY = IntY + 48
ElseIf IntY < 36 Then
IntY = IntY + 55
Else
IntY = IntY + 61
End If
Int_Str = Chr(IntY)
End Function
Private Sub Command1_Click()
Dim StrK As String, StrL As String
Dim K As Integer, L As Integer, M As Integer
Text3 = ""
If Len(Text1.Text) > Len(Text2.Text) Then
StrK = Text1.Text
StrL = Text2.Text
Else
StrK = Text2.Text
StrL = Text1.Text
End If
K = Len(StrK)
L = Len(StrL)
Label1.Caption = Command1.Caption
For i = K To 1 Step -1
If i > K - L Then
M = Str_Int(Mid(StrK, i, 1)) + Str_Int(Mid(StrL, i + L - K, 1))
Text3 = Int_Str(IIf(M > 61, M - 61, M)) & Text3
Else
Text3 = Int_Str(Str_Int(Mid(StrK, i, 1))) & Text3
End If
Next i
End Sub
看了 请问在VB里.字母和字母相加...的网友还看了以下:
正方体ABCD-A"B"C"D"中M是AB中点求B"M与异面直线AD所成角的余弦值我求出来得90度 2020-05-13 …
有这样一类题目将根号a加减2倍根号b化简,如果你能找到两个数mn,使m方+n方=a且mn=根号b则 2020-05-13 …
导出单位是由基本单位组合而成的,则下列说法中正确的是()A.加速度的单位是m/s2,是由m、s两个 2020-05-14 …
质量为M的长平板车放在光滑的倾角为α的斜面上,车上站着一个质量为m的人若要平板车静止在斜面上,车上 2020-05-17 …
形如根号M正负2根号N的化简,只要我们找出两个数A,B使a加b等于m,a乘以b等于n,使得(根号a 2020-06-06 …
已知M等于a加b减2次根号a加8是a加8的算术平方根,N等于2a减b加2次根号b减3是b减3的立方 2020-06-13 …
将a千克的白糖加水配制成b千克的糖水(b>a>0),则其浓度为,若再加入m千克的白糖(m>0),糖 2020-06-26 …
一道氧化还原的化学题将0.2molKMnO4在一定温度下加热后生成amolO2,将剩余固体与过量浓 2020-07-20 …
下列说法错误的是()A.任何正整数都是由若干个“1”组成的B.有理数包括整数与分数C.在自然数集中, 2020-11-16 …
写了个用Verilog描述的无符号加法器,用移位加实现,但是加法不能用Verilog的加号,只能用自 2020-12-05 …