VB 数、数组

VB 数、数组


www = "C:\1.ini"

'【判断文件不存在就结束程序】
If Dir(www) = "" Then
End
End If

Dim numa(999) As String
Dim temp As String
Dim i As Integer

i = 0
Open www For Input As #1
Do While Not EOF(1)
Line Input #1, temp
numa(i) = temp
i = i + 1
Loop
Close #1


Text1 = numa(0) & vbCrLf & numa(1)


-------------------------------------------
Randomize :初始化，放在随机函数之前【作用:每次都是随机的】
随机输出：
x = Int(Rnd * 6)   随机输出  0到5
x = Int(Rnd * 5)+1 随机输出  1到5
============================================
在VB的工程-部件里，增加：
Microsoft Script Control 1.0
放一个到窗体。
【显示控件内容的计算结果】
Text1 = ScriptControl1.Eval(Text1)
============================================
LBound() :数组开始指标数【数组个数是从0开始数的】
UBound() :数组结束指标数【数组个数-1】
Array()  :数组函数
===========================================
’数组里的元素除了数字其它要加""不加就默认为变量
'下面的aa没加""就是变量
Dim a()
aa = "123"  
a() = Array(aa, "文字", 3) '赋值，数组a有1,2,3【3个元素】
Text1 = a(0) 'Text1=a 【数组个数是从0开始数的】
===============================
m = 2   '删除，数组a里的第m个元素         
For i = m To UBound(a) - 1   
a(i) = a(i + 1)
Next i

===============================

Dim a(1 To 10)
a(0) = 0  '赋值
a(2) = 4  '赋值
Text1 = a(2) 'fuz


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/