vb 数组关于VB的数组问题

vb 数组  时间:2022-02-28  阅读:()

关于VB的数组问题

Private Sub Form_Load() Dim a(1 To 10) As Double, temp As Double Dim i%, j% Dim b$ Rem 用InputBox输入10格数到数组a For i% = 1 To 10 a(i%) = InputBox("a(" & i% & ")=", "输入") Next i% Rem 用冒泡法对数组a从大到小排序 For i% = 1 To 9 For j% = i% + 1 To 10 If a(i%) < a(j%) Then temp = a(i%) a(i%) = a(j%) a(j%) = temp End If Next j% Next i% Rem 用a(1)到a(5),每两个数之间用两个空格隔开,组成字符串b$ b$ = a(1) For i% = 2 To 5 b$ = b$ & " " & a(i%) Next i% Rem 用text1显示b$ Text1.Text = b$ Rem 用a(6)到a(10),每两个数之间用两个空格隔开,组成字符串b$ b$ = a(6) For i% = 7 To 10 b$ = b$ & " " & a(i%) Next i% Rem 用text2显示b$ Text2.Text = b$ End Sub

RackNerd美国大硬盘服务器促销:120G SSD+192TB HDD,1Gbps大带宽,月付$599,促销美国月付$服务器促销带宽

racknerd怎么样?racknerd最近发布了一些便宜美国服务器促销,包括大硬盘服务器,提供120G SSD+192TB HDD,有AMD和Intel两个选择,默认32G内存,1Gbps带宽,每个月100TB流量,5个IP地址,月付$599。价格非常便宜,需要存储服务器的朋友可以关注一下。RackNerd主要经营美国圣何塞、洛杉矶、达拉斯、芝加哥、亚特兰大、新泽西机房基于KVM虚拟化的VPS、...

CUBECLOUD:香港服务器、洛杉矶服务器、全场88折,69元/月

CUBECLOUD(魔方云)成立于2016年,亚太互联网络信息中心(APNIC)会员,全线产品均为完全自营,专业数据灾备冗余,全部产品均为SSD阵列,精品网络CN2(GIA) CU(10099VIP)接入,与当今主流云计算解决方案保持同步,为企业以及开发者用户实现灵活弹性自动化的基础设施。【夏日特促】全场产品88折优惠码:Summer_2021时间:2021年8月1日 — 2021年8月8日香港C...

香港云服务器 1核 1G 29元/月 快云科技

快云科技: 12.12特惠推出全场VPS 7折购 续费同价 年付仅不到五折公司介绍:快云科技是成立于2020年的新进主机商,持有IDC/ICP等证件资质齐全主营产品有:香港弹性云服务器,美国vps和日本vps,香港物理机,国内高防物理机以及美国日本高防物理机产品特色:全配置均20M带宽,架构采用KVM虚拟化技术,全盘SSD硬盘,RAID10阵列, 国内回程三网CN2 GIA,平均延迟50ms以下。...

vb 数组为你推荐
公告格式通知的格式及范文。公告格式通告格式及有关文字人才培养目标到2020年,我国人才发展的总体目标是什么程序设计模式设计模式是做什么的网不易作文:《网络利弊谈》现在网现在网上买东西安全吗,2021年武汉发的货安全吗?360网络收藏夹360网络收藏夹如何添加到本地收藏支付宝安全证书下载在网吧可以下载支付宝安全证书?网通玩电信游戏卡怎么办网通怎么在电信玩游戏不卡反恐精英维护到几点反恐精英几点维护完
域名注册网 网站域名 edis cloudstack 双11抢红包攻略 国内php空间 免空 工信部icp备案号 tna官网 空间合租 免费测手机号 如何用qq邮箱发邮件 中国电信宽带测速网 如何注册阿里云邮箱 服务器硬件防火墙 google台湾 cdn网站加速 杭州电信宽带 umax 好看的空间 更多