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