Question

vb中将text里面输入一串数字，每个输入后按回车，十个结束，依次讲他放在一个数组里面，求最简写法？

如题

Answer 1

形成把一个文本控件，然后在里面输入号码，按Enter键，输入一个数字，然后按Enter

，酒楼，我作为整数

暗淡到达（10）只要
a>

私人：子Text1_KeyPress（KeyAscii作为整数）

如果KeyAscii > 13然后退出小组

I = I + 1

Me.Caption =“输入第一个”+ CStr的第（i + 1）+“数字”

如果I <10然后

到达（I + 1）= INT（Text1.Text）

其他

= 0

当x = 1至10

当y = 2到X

如果（ARR（X）<ARR（Y））

编曲（0） =到达（x）的

到达（倍）=到达（Y）

到达（Y）=房租（0）

结束如果

>

Me.Caption =“输入第一个”+ CSTR（+ 1）+“数字”

打印“大到小：”

m = 1到10

打印ARR（米）

下

结束如果
结束小组

Answer 2

回车在VB里用符号常量 VBCrLf表示，这样你就可以用VB的Split()函数来实现了。
Dim d() As String
d = Split(Text1.text,VbCrLf)