给出两个TEXT控件 在TEXT1内输入一串整数,TEXT2内自动显示出TEXT1内数字+一个特定整数 且运算方式为16进制
如020441f6+02834=02046A2A 020441f6为TEXT1内输入的整数 02834为特定的整数 02046A2A就是TEXT2显示出的运算结果
望知道的朋友给出详细代码 谢谢
Option Explicit
Dim a As String
Dim b As String
Dim c As Double
VBç16è¿å¶è®¡ç®å¯ç±VALå½æ°å10è¿å¶å¼å计ç®,ç¶ååå°ç»æç¨HEXå½æ°è½¬åä¼16è¿å¶æ¾ç¤º:
Private Sub Command1_Click()
a = "&H" & Text1: b = "&H" & Text2
c = Val(a) - Val(b)
Text3 = Hex(c)
End Sub
Private Sub Form_Load()
Text1 = "": Text2 = "": Text3 = ""
End Sub
Dim a As String
Dim b As String
Dim c As Double
VBç16è¿å¶è®¡ç®å¯ç±VALå½æ°å10è¿å¶å¼å计ç®,ç¶ååå°ç»æç¨HEXå½æ°è½¬åä¼16è¿å¶æ¾ç¤º:
Private Sub Command1_Click()
a = "&H" & Text1: b = "&H" & Text2
c = Val(a) - Val(b)
Text3 = Hex(c)
End Sub
Private Sub Form_Load()
Text1 = "": Text2 = "": Text3 = ""
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2019-02-14
我有两种,一种是象卖的计算器一样自己操作。
另一种是,输入表达式:2-3*(6-8).输出结果。
请问你要哪种。
另一种是,输入表达式:2-3*(6-8).输出结果。
请问你要哪种。