请问在VB里.字母和字母相加可以吗.
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/17 17:03:59
请问在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 Su
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 Su
请问在VB里.字母和字母相加可以吗.
谁谁知道这个词里应该是什么字母 girls 请问在P和Y中间可以填几个字母 什么字母
在含有字母的式子里,数学和字母中间的乘号可以( ),但应当把( )写在( )前面.
在VB大小写字母转换的题里,KeyAscii - 32是什么意思
有什么字母组合在单词里可以发G和s的音?
请问 s 这个字母在单词里的发音...
在所有含有字母的式子里,字母都可以代表任何数.这句话对不对
在vb中,字母后面加一个$是什么意思
在一个含有字母式子里,数与字母、字母与字母相….可以…并且…要写在…前面.举例
在26个字母中,()和()两个字母可以独立成词,分别表示"()"和"()".
在两个数相加后在乘字母要加乘号吗
在含有字母和数字的式子里,乘号用“×”表示,字母在前还是数字在前?