成都网站建设设计

将想法与焦点和您一起共享

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

vb数组中颠倒数字顺序

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

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版本适用


分享名称:vb.net数组反转,vb字符串反转函数
标题来源:http://chengdu.cdxwcx.cn/article/dsiooec.html