VB十六进制问题

来源：百度知道 编辑：UC知道 时间：2024/07/01 08:17:10
有text1、text2、combo1、command1.
text1中一定是个16进制数(例如：E67E7)，text2中是个十进制的数（例如：10），
那么我要求的是command1_click()时，combo1中显示E67E7的递增的值，也就是：E67E7,E67E8,E67E9,E67EA,E67EB,E67EC,E67ED,E67EE,E67EF,E67F0.
下面是代码，但不能够显示。

Dim datastart As String
Dim countit As Integer
Private Sub Command1_Click()
For countit = 0 To Trim(Text2)
Combo1.AddItem (datastart)
datastart = datastart + 1
Next countit
End Sub

Private Sub Form_Load()
datastart = Hex(Val("&H" & Text1.Text))
End Sub

Private Sub command1_click()
Dim datastart As Long
Dim i As Integer
datastart = CLng("&H" & Text1.Text)
For i = 0 To Val(Text2.Text)
datastart = datastart + 1
Combo1.AddItem Hex(datastart)
Next
End Sub

Dim datastart As String
Dim countit As Integer
Private Sub Command1_Click()
For countit = 0 To Trim(Text2)
Combo1.AddItem (datastart)
datastart = Hex(Val(datastart)+1)
Next countit
End Sub

Private Sub Form_Load()
datastart = "&H" & Text1.Text
End Sub

Dim datastart As Long
Dim countit As Integer
Private Sub Form_Load()
datastart = CLng("&H" & Text1.Text)
End Sub

Private Sub Command1_Click()
For countit = 0 To CInt(Text2)
Combo1.AddItem Hex(datastart)
datastart = datastart + 1
Next countit
End Sub

Dim b As Long
Private Sub Command1_Click()
b = CLng("&H&quo