VB一維數組編程

① Vb中生成一個一維數組

Dim fileName As String Dim startnumber%,endnumber% Const MyFile = 1 Dim i% Dim T() Open fileName For Input As #MyFile '打開文件 Input #MyFile,startnumber ,endnumber '讀文件 Redim T(endnumber-startnumber) For i = startnumber To endnumber Input #MyFile, T(i) Next i Close #MyFile '關文件

② VB編程：使用一維數組編寫程序，隨機產生10個0~100的整數，求出最大值、最小值和平均值。

Dima(1To10)AsInteger
PrivateSubCommand1_Click()
Randomize
Fori=1To10
a(i)=Int(Rnd*101)
Printa(i);
Nexti
Print
EndSub
PrivateSubCommand2_Click()
DimmaxAsInteger,minAsInteger
max=0
min=100
Fori=1To10
Ifmax<a(i)Thenmax=a(i)
Ifmin>a(i)Thenmin=a(i)
Nexti
Print"max";max;"min";min
EndSub
PrivateSubCommand3_Click()
DimaveAsDouble
Fori=1To10
ave=ave+a(i)
Nexti
Print"ave";ave/10
EndSub

③ 求vb編程題編程實現一維數組 A(10)中數組元素循環向右移動一

Private Sub Command1_Click()

Dim a(10) As Integer

For i = 1 To 10

a(i) = i

Print a(i);

Next i

Print

Print "要移動的位數：";

n = CInt(InputBox("要移動的位數："))

Print n

For i = 1 To n

t = a(10)

For j = 10 To 2 Step -1

a(j) = a(j - 1)

Next j

a(1) = t

Next i

Print

Print "移動以後的數組："

For i = 1 To 10

Print a(i);

Next i

Print

End Sub

④ Vb一維數組，賦值、求和、求平均值,如何編程啊

下面是數據一個簡單的例子，賦值、求和、求平均值都包括了：
Dim a(4) As Long '定義數組a(4)
Private Sub Command1_Click()
Dim i As Long, x As Long, y As Double
For i = 0 To 4
a(i) = i '給數組賦值
Print "a(" & i & ")=" & a(i)
x = x + a(i)'計算數組和
Next
Print "數組和是：" & x
y = x / (UBound(a) + 1)'平均數
Print "數組平均數是：" & y
End Sub

⑤ vb一維數組初始化編程

dim a
a=array（1,2,3,4,5,6,7,8）

⑥ vb編程輸入10個整數存入一維數組,再按逆序重新存放後再輸出

Private Sub Command1_Click()

Dim a(10) As Integer

Print "初始的數："

For i = 1 To 10

a(i) = InputBox("請輸入第" & i & "個數：")

Print a(i);

Next i

Print

For i = 1 To 5

t = a(i)

a(i) = a(11 - i)

a(11 - i) = t

Next i

Print "逆序重新存放後的數："

For i = 1 To 10

Print a(i);

Next i

Print: Print

End Sub

⑦ VB 如何定義一個一維數組

用一個帶括弧的變數名來定義一維數組和多維數組
如dim
a(5)
as
integer
'定義了1個1維、6個元素數組
dim
a(5,5)
as
integer
'定義了1個2維、36個元素的數組

⑧ 一維動態數組的vb程序

本代碼中使用了控制項數組,將三個按鈕控制項的NAME屬性都都設置為Command1,將INDEX屬性分別設置為0,1,2.本代碼已在VB6.0中測試通過.文件解壓之後才能正確執行,否則不能載入到VB程序中

完整代碼如下:

Dimaa()AsDouble

PrivateSubCommand1_Click(IndexAsInteger)

Cls

IfCommand1(Index).Caption="輸入"Then

ReDimaa(1To10)AsDouble'定義一個有10個元素(雙精度)的一維數組.

Text1=""

Fori=1To10

aa(i)=InputBox("請輸入數字!")'用輸入框接受元素的寫入.

Next

Fori=1To10

Text1=Text1&aa(i)&""

Next

ElseIfCommand1(Index).Caption="插入"Then

Text2="":Text3=""

b=InputBox("請輸入數字!")'用輸入框接受元素的寫入.

Text2=b

ReDimPreserveaa(1To11)AsDouble'定義一個有11個元素(雙精度)的一維數組.

aa(11)=b

Fori=11To2Step-1'處層循環逆序處理到第2項(再次檢查作用),處理到第2項是因為第1項沒有上浮的空間了.

Forj=1Toi-1'內層循環順序處理到第10項,因為第11項沒有下沉的空間了.

Ifaa(j)>aa(j+1)Then

tem=aa(j)

aa(j)=aa(j+1)

aa(j+1)=tem

EndIf

Next

Next

Fori=1To11

Text3=Text3&aa(i)&""

Next

ElseIfCommand1(Index).Caption="清空"Then

Text1=""

Text2=""

Text3=""

EndIf

EndSub

PrivateSubForm_Load()

Command1(0).Caption="輸入"

Command1(1).Caption="插入"

Command1(2).Caption="清空"

EndSub