vb.net数组反转,vb字符串反转函数

vb数组中颠倒数字顺序

for i = 0 to 4

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

VB.net 如何将bytes（）字节数组转换到short型数组？

for一下，将bytes中的字节转为short，for中就可以将要使用的short进行处理了

刚刚学VB 向高手求救 将数组元素倒序，输出

'给个万能的,想输入多少数据都可以,程序以调试可用

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

程序已调试,有问题再联系....

vb 将数组元素倒序，并输出

'楼上的程序在输入奇数个整数时可能会出错

'给分万能的,想输入多少数据都可以,程序以调试可用

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

VB.NET中字符串倒序的问题

好象有个StrReverse函数是直接反转字符串的吧..

我平时用的是VB6.但是.NET中应该也是可以用MID的

你注意看FOR 是从len-1到0的..而mid中是不允许出现0的..

你看看MID运行不了时,是不是返回I是0的时间

改成:

For i = Len(sstr) To 1 Step -1

试试了?

vb 如何颠倒数组中的数字

你可以使用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版本适用