vb數(shù)組中顛倒數(shù)字順序

for i = 0 to 4

成都創(chuàng)新互聯(lián)公司歡迎咨詢：18980820575，為您提供成都網(wǎng)站建設(shè)網(wǎng)頁設(shè)計及定制高端網(wǎng)站建設(shè)服務(wù)，成都創(chuàng)新互聯(lián)公司網(wǎng)頁制作領(lǐng)域十年，包括成都航空箱等多個領(lǐng)域擁有多年的營銷推廣經(jīng)驗，選擇成都創(chuàng)新互聯(lián)公司，為網(wǎng)站保駕護航！

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（）字節(jié)數(shù)組轉(zhuǎn)換到short型數(shù)組？

for一下，將bytes中的字節(jié)轉(zhuǎn)為short，for中就可以將要使用的short進行處理了

剛剛學VB 向高手求救 將數(shù)組元素倒序，輸出

'給個萬能的,想輸入多少數(shù)據(jù)都可以,程序以調(diào)試可用

Dim i As Integer, n As Integer

If TextBox0.Text = "" Then

MsgBox("請輸入您想輸入數(shù)字的個數(shù)")

Exit Sub

End If

n = CInt(TextBox0.Text)

Dim ar(n) As Integer

For i = 0 To n - 1

MsgBox("請輸入第" Str(i + 1) "個數(shù)字")

ar(i) = Val(InputBox("請輸入")) '將輸入的數(shù)據(jù)轉(zhuǎn)換為數(shù)值型并賦值給數(shù)組

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

程序已調(diào)試,有問題再聯(lián)系....

vb 將數(shù)組元素倒序，并輸出

'樓上的程序在輸入奇數(shù)個整數(shù)時可能會出錯

'給分萬能的,想輸入多少數(shù)據(jù)都可以,程序以調(diào)試可用

Dim i As Integer, n As Integer

If TextBox0.Text = "" Then

MsgBox("請輸入您想輸入數(shù)字的個數(shù)")

Exit Sub

End If

n = CInt(TextBox0.Text)

Dim ar(n) As Integer

For i = 0 To n - 1

MsgBox("請輸入第" Str(i + 1) "個數(shù)字")

ar(i) = Val(InputBox("請輸入")) '將輸入的數(shù)據(jù)轉(zhuǎn)換為數(shù)值型

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函數(shù)是直接反轉(zhuǎn)字符串的吧..

我平時用的是VB6.但是.NET中應該也是可以用MID的

你注意看FOR 是從len-1到0的..而mid中是不允許出現(xiàn)0的..

你看看MID運行不了時,是不是返回I是0的時間

改成:

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

試試了?

vb 如何顛倒數(shù)組中的數(shù)字

你可以使用Arraylist數(shù)組類，這個數(shù)組類存放元素可以動態(tài)添加和刪除．而且可以存放任何類型的數(shù)據(jù)！

dim arr as New ArrayList() ’將變量arr定義為Arraylist類

以下是該類的常用方法：

arr.add() ’將括號內(nèi)的數(shù)據(jù)添加到數(shù)組的末尾

arr.count '返回數(shù)組元素的總數(shù)目

arr.item（） ’設(shè)定或取得由索引所指的數(shù)組元素內(nèi)容

arr.sort() ’將數(shù)組內(nèi)所有元素以遞增方式排序

arr.Reverse（） ’將數(shù)組類中的所有元素反轉(zhuǎn)（顛倒順序），配合sort方法可以實現(xiàn)降序排列

arr.insert(索引值，數(shù)據(jù)) ’在數(shù)組指定索引值的位置插入數(shù)據(jù)

arr.clear（） '清除所有數(shù)組元素

arr.indexof（） ’返回數(shù)組中第一個符合指定對象的索引值，未找到返回負值

arr.binaryserach（） ’在數(shù)組中尋找指定對象，找到返回該對象的索引，否則返回負值；此方法使用前，必須先將數(shù)組作升序排列．

以上VB2005版本適用

網(wǎng)站名稱：vb.net數(shù)組反轉(zhuǎn),vb字符串反轉(zhuǎn)函數(shù)
標題來源：http://chinadenli.net/article42/dsiooec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應式網(wǎng)站、網(wǎng)站維護、定制開發(fā)、定制網(wǎng)站、網(wǎng)站建設(shè)、用戶體驗

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)