vb数组的基本操作,vb数组的用法
本节课程,我们学习数组的基本操作。数组的基本操作包含:数组元素的输入输出、插入和删除元素、查询等。
Dim Student(1 To 3) as StringA(1)="张三"A(2)="李四"A(3)="王五"
Dim Grade()Grade=Array(76,88,65,92)
Array函数语法格式如下:语法:Array(arglist)作用:返回一个包含数组的 Variant。
Dim A%(1 To 9,1 To 9)Dim i%,j%For i=1 To 9 For j=1 To 9 A(i,j)=100*rnd()+1 Next jNext i
For i=1 To 9 For j=1 To 9 Print "第" & i & "-" & j & "个数组元素为:"& A(i,j) Next jNext i
例:Option ExplicitPrivate Sub Command1_Click() Dim A(), i% '为数组赋值 A = Array(1, 2, 3, 4) '打印插入前的数组 For i = 0 To 3 Print "A(" & i & ")=" & A(i) & " "; Next i '重新定义数组,增加1个元素 ReDim pserve A(4) '将数组元素重新赋值 A(4) = A(3) A(3) = A(2) A(2) = A(1) A(1) = 6 Print '换行 '打印插入后的数组 For i = 0 To 4 Print "A(" & i & ")=" & A(i) & " "; Next i End Sub
删除数组元素
程序代码如下:
Option ExplicitOption Base 1 '声明数组下标从1开始Dim Student$(9, 2) '定义二维数组Private Sub Form_Load() Dim i% '输入学生姓名 Student(1, 1) = "孙悟空": Student(2, 1) = "猪八戒": Student(3, 1) = "达摩" Student(4, 1) = "韩信": Student(5, 1) = "刘邦": Student(6, 1) = "项羽" Student(7, 1) = "李白": Student(8, 1) = "小乔": Student(9, 1) = "大乔" '为每个学生随机一个成绩 For i = 1 To 9 Randomize Student(i, 2) = Int(50 * Rnd + 50) Next i End SubPrivate Sub Command1_Click() Dim i% Text2.Text = "" '遍历法查找学生姓名 For i = 1 To 9 If Student(i, 1) = Text1.Text Then Text2.Text = Student(i, 2) '找到后将其成绩赋值给Text2文本 Exit For '退出循环 End If Next i '如果Text2文本框为空,说明没有找到该学生 If Text2.Text = "" Then MsgBox "无此学生" End IfEnd Sub
程序代码截图如下:
本文地址:百科问答频道 https://www.neebe.cn/wenda/927495.html,易企推百科一个免费的知识分享平台,本站部分文章来网络分享,本着互联网分享的精神,如有涉及到您的权益,请联系我们删除,谢谢!