-3

这是上面提到的数字图表,我想在下面为我的查询编写代码:

我拥有的控件textbox1, label1, label2, button1.

我有一个textbox1生成随机数,即 402045。

我想在label1下面的文本框中文本显示为:40,20,45。

并且Label2它将显示上面提到的图表中逗号分隔数字的值,即:该label2值将是:PFr。

示例代码:

For i As Integer = 0 To TextBox1.Text.Length
    ListBox1.Items.Add(i)
    Label1.Text = TextBox1.Text.Substring(0, 2) & "-"
Next i
4

1 回答 1

0

尝试这个 :

Dim sChars '--> contain your chars
Dim s as String = Textbox1.text 
Dim s1,s2,s3 as String

sChars = "+-* ..."   ' --> fill this
s1 = mid(s,1,2)
s2 = mid(s,3,2)
s3 = mid(s,5)

Label1.text = s1 & "," & s2 & "," & s3
Label2.text = mid(sChars,val(s1),1) & mid(sChars,val(s2),1) & mid(sChars,val(s3),1) 

但我认为,在这种情况下,不需要 Label1.text !

于 2013-04-29T15:26:31.170 回答