动态给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

47014eb2a53459a8a3d7b6600f8530b0.png

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

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

ab2470ece9d0dc911dcbe11f745a46e0.png

e6a42399f562f3ccc1432333a3d85dcd.png点分享 cbbae6838e8f46ea7320922f35f73ed6.png点点赞 097e25c067700b47fc15e3adea9802e8.png点在看
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值