Question

VB中如何定义这种类型的变量

VB 中有没有如下的语句 实现的功能为

假设：a="1234"为变量，是一组数值，为1234或1235或1236....
然后，对应变量

C1234=111
C1235=222
C1236=333
......

其中C后面的"1234"，"1235"，"1236"为变量a的值，

Answer 1

代码如下：
Dim a As Integer, b As Integer
Private Sub Command1_Click()
a = 1234
If Val(Mid(Text1.Text, 2, Len(Text1.Text) - 1)) <> 0 Then
b = Val(Mid(Text1.Text, 2, Len(Text1.Text) - 1))
If b = a Then
Text2.Text = "111"
Else
b = Val(Mid(Text1.Text, 2, Len(Text1.Text) - 1)) - a + 1
Text2.Text = b & b & b
End If
End If
End Sub
通过以上处理基本实现您的需要，可以在此基础上修改！

Answer 2

定义a可以用：a除1234的余数分别加上0，1，2，3…… 也就是说1234的整数倍加上1，2，3……

对应等号后面的数可以是 111的整数倍

思路如上，具体代码不好意思，好久没有接触VB，你可以自己写一下