vb.net数组逆序 vba逆序数程序

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

相关问答

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

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

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

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

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

改成:

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

试试了?

Q2: vb.net数组逆序的程序

参考

#includestdio.h

int main()

{int n,i,j,t,a[200];

printf("数组中数的个数：");

scanf("%d",n);

printf("数组中的数：\n");

for(i=0;in;i++)

{

a[i]=i+1;

printf("%d ",a[i]);

}

for(i=0,j=n-1;ij;i++,j--)

{t=a[i];a[i]=a[j];a[j]=t;}

printf("\n逆序后的数组：\n");

for(i=0;in;i++)

printf("%d ",a[i]);

printf("\n");

getch();

return 0;

}

Q3: 如何用VB里的print方法输出一个数的逆序？

用VB里的print方法输出一个数的逆序，可以采用数组的办法，也可以采用递归的办法，还可以采用普通的循环的办法。

Private Sub Command1_Click()

x = CLng(InputBox("请输入一个正整数："))

Print "输入的数是："; x

y = ""

While x 0

  y = y x Mod 10

  x = x \ 10

Wend

Print "逆序数是："; y

End Sub

Q4: 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

Q5: vb中将一个长度固定的数组逆序储存是什么意思？

以一个10个元素的数组，而且存储数据依次为1,2,3,4,5,6,7,8,9,10

将一个长度固定的数组逆序储存，就是在原来的这个数组中，将数据的存储改成依次为：

10,9,8,7,6,5,4,3,2,1

关于vb.net数组逆序和vba逆序数程序的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。