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

VoLLcloud:超便宜香港CMI大带宽vps-三网CMI直连-年付四免服务-低至4刀/月-奈飞

vollcloud LLC创立于2020年,是一家以互联网基础业务服务为主的 技术型企业,运营全球数据中心业务。致力于全球服务器租用、托管及云计算、DDOS安 全防护、数据实时存储、 高防服务器加速、域名、智能高防服务器、网络安全服务解决方案等领域的智 能化、规范化的体验服务。所有购买年付产品免费更换香港原生IP(支持解锁奈飞),商家承诺,支持3天内无条件退款(原路退回)!点击进入:vollclo...

UCloud新人优惠中国香港/日本/美国云服务器低至4元

UCloud优刻得商家这几年应该已经被我们不少的个人站长用户认知,且确实在当下阿里云、腾讯云服务商不断的只促销服务于新用户活动,给我们很多老用户折扣的空间不多。于是,我们可以通过拓展选择其他同类服务商享受新人的福利,这里其中之一就选择UCloud商家。UCloud服务商2020年创业板上市的,实际上很早就有认识到,那时候价格高的离谱,谁让他们只服务有钱的企业用户呢。这里希望融入到我们大众消费者,你...

木木云35元/月,美国vps服务器优惠,1核1G/500M带宽/1T硬盘/4T流量

木木云怎么样?木木云品牌成立于18年,此为贵州木木云科技有限公司旗下新运营高端的服务器的平台,目前已上线美国中部大盘鸡,母鸡采用E5-267X系列,硬盘全部组成阵列。目前,木木云美国vps进行了优惠促销,1核1G/500M带宽/1T硬盘/4T流量,仅35元/月。点击进入:木木云官方网站地址木木云优惠码:提供了一个您专用的优惠码: yuntue目前我们有如下产品套餐:DV型 1H 1G 500M带宽...

vb 数组为你推荐
移动开发做移动软件开发的工程师工资一般有多少卖源码淘宝上卖的网站源码可靠吗互联网接入无线路由器怎样接入互联网开发管理房地产开发与管理学的是什么色空间相机、PS里色彩空间该怎样设置?java教程pdf求Java程序设计教程实验手册(翻译版) PDF版通话宝谁用过4G电话宝,这个软件怎么样啊?网通玩电信游戏卡怎么办我的网是网通,我玩电信区的游戏,总是卡,怎么办呢查看加密空间好友QQ空间有限制访问,怎么查看加密的QQ空间?网络黑科技什么防封软件,都是假的,没有一个是真的,大家不要受骗!
万网免费域名 新秒杀 fastdomain 国外php主机 gg广告 web服务器架设 建立邮箱 域名转接 老左来了 免费全能主机 web服务器安全 流媒体加速 ca187 google台湾 服务器论坛 atom处理器 摩尔庄园注册 网页加速 xuni ipower 更多