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