动态给a标签赋值_VB数组赋值、求最大值、元素交换问题解决

在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 k

End Sub

正在学VB的你赶快实际运行一下吧~

VB学习中有遇到问题或者需要VB视频教程可添加下图小编微信，学习问题在线答疑。

点分享 点点赞 点在看