在VB编程中,数组占据着非常重要的地位。
而数组的知识点又很多,让初学者非常容易混淆与难于掌握。比如数组的定义、数组的初始化、多维数组、动态数组、控件数组、数组排序、插入、交换等。
今天,从数组的定义、数组赋值、求最大值、交换的内容出发,帮助大家理解数组的实际应用。
有数组的地方,必会用到数组的定义与控制结构(多为循环和条件语句)知识的应用。
接下来是一个VB的实际应用题目,我们共同来学习如何解决、实现它。
实现功能1、首先定义一个包含10个元素的数组,通过随机数的方式为其中每个元素赋值,并且输出到窗体上;
2、得到数组中的最大值,并且输出;
3、将数组中的最大值与位置是10的元素值交换,并输出。
如何用vb编程实现此效果?
VB 代码实现Dim a(1 To 10) As Integer '定义数组
Dim max As Integer, xb As Integer '定义最大值、最大值对应下标
Private Sub Form_click()
Me.FontSize = 16Me.FontName = "楷体"Print Tab(2); "产生的数组元素值为:"max = 0For i = 1 To 10a(i) = Int(Rnd * 900 + 100)Me.FontSize = 12Me.ForeColor = vbRedPrint Tab(2); a(i)Next iFor j = 1 To 10If a(j) > max Then max = a(j): xb = jNext jMe.ForeColor = vbBlackPrint Tab(2); "数组元素最大值为:" & maxPrinthm = a(10)Print Tab(2); "顺序交换后数组元素值为:"For k = 1 To 10a(xb) = hma(10) = maxMe.FontSize = 12Me.ForeColor = vbBluePrint Tab(2); a(k)Next kEnd Sub
正在学VB的你赶快实际运行一下吧~
VB学习中有遇到问题或者需要VB视频教程可添加下图小编微信,学习问题在线答疑。
点分享 点点赞 点在看