for i = 0 to 4
成都创新互联公司欢迎咨询：18980820575，为您提供成都网站建设网页设计及定制高端网站建设服务，成都创新互联公司网页制作领域十年，包括成都航空箱等多个领域拥有多年的营销推广经验，选择成都创新互联公司，为网站保驾护航！
temp = A( 10 - i ) 'A( 10 - i ) 赋给中间变量 temp
A( 10 - i ) = A( 1 + i ) 'A( 10 - i ) 等于 A( 1 + i )
A( 1 + i ) = temp ' A( 1 + i ) 等于中间变量 temp
next
for一下，将bytes中的字节转为short，for中就可以将要使用的short进行处理了
'给个万能的,想输入多少数据都可以,程序以调试可用
Dim i As Integer, n As Integer
If TextBox0.Text = "" Then
MsgBox("请输入您想输入数字的个数")
Exit Sub
End If
n = CInt(TextBox0.Text)
Dim ar(n) As Integer
For i = 0 To n - 1
MsgBox("请输入第" Str(i + 1) "个数字")
ar(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型并赋值给数组
Next
Dim str1 As String, str2 As String
For i = 0 To n - 1
If str1 = "" Then
str1 = ar(i)
Else
str1 = str1 " " ar(i)
End If
Next
For i = 0 To n - 1
If str2 = "" Then
str2 = ar(n - 1 - i)
Else
str2 = str2 " " ar(n - 1 - i)
End If
Next
TextBox1.Text = str1
TextBox2.Text = str2
程序已调试,有问题再联系....
'楼上的程序在输入奇数个整数时可能会出错
'给分万能的,想输入多少数据都可以,程序以调试可用
Dim i As Integer, n As Integer
If TextBox0.Text = "" Then
MsgBox("请输入您想输入数字的个数")
Exit Sub
End If
n = CInt(TextBox0.Text)
Dim ar(n) As Integer
For i = 0 To n - 1
MsgBox("请输入第" Str(i + 1) "个数字")
ar(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型
Next
Dim str1 As String, str2 As String
For i = 0 To n - 1
If str1 = "" Then
str1 = ar(i)
Else
str1 = str1 " " ar(i)
End If
Next
For i = 0 To n - 1
If str2 = "" Then
str2 = ar(n - 1 - i)
Else
str2 = str2 " " ar(n - 1 - i)
End If
Next
TextBox1.Text = str1
TextBox2.Text = str2
好象有个StrReverse函数是直接反转字符串的吧..
我平时用的是VB6.但是.NET中应该也是可以用MID的
你注意看FOR 是从len-1到0的..而mid中是不允许出现0的..
你看看MID运行不了时,是不是返回I是0的时间
改成:
For i = Len(sstr) To 1 Step -1
试试了?
你可以使用Arraylist数组类，这个数组类存放元素可以动态添加和删除．而且可以存放任何类型的数据！
dim arr as New ArrayList() ’将变量arr定义为Arraylist类
以下是该类的常用方法：
arr.add() ’将括号内的数据添加到数组的末尾
arr.count '返回数组元素的总数目
arr.item（） ’设定或取得由索引所指的数组元素内容
arr.sort() ’将数组内所有元素以递增方式排序
arr.Reverse（） ’将数组类中的所有元素反转（颠倒顺序），配合sort方法可以实现降序排列
arr.insert(索引值，数据) ’在数组指定索引值的位置插入数据
arr.clear（） '清除所有数组元素
arr.indexof（） ’返回数组中第一个符合指定对象的索引值，未找到返回负值
arr.binaryserach（） ’在数组中寻找指定对象，找到返回该对象的索引，否则返回负值；此方法使用前，必须先将数组作升序排列．
以上VB2005版本适用
