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

CloudCone:$14/年KVM-512MB/10GB/3TB/洛杉矶机房

CloudCone发布了2021年的闪售活动,提供了几款年付VPS套餐,基于KVM架构,采用Intel® Xeon® Silver 4214 or Xeon® E5s CPU及SSD硬盘组RAID10,最低每年14.02美元起,支持PayPal或者支付宝付款。这是一家成立于2017年的国外VPS主机商,提供VPS和独立服务器租用,数据中心为美国洛杉矶MC机房。下面列出几款年付套餐配置信息。CPU:...

ucloud香港服务器优惠活动:香港2核4G云服务器低至358元/年,968元/3年

ucloud香港服务器优惠降价活动开始了!此前,ucloud官方全球云大促活动的香港云服务器一度上涨至2核4G配置752元/年,2031元/3年。让很多想购买ucloud香港云服务器的新用户望而却步!不过,目前,ucloud官方下调了香港服务器价格,此前2核4G香港云服务器752元/年,现在降至358元/年,968元/3年,价格降了快一半了!UCloud活动路子和阿里云、腾讯云不同,活动一步到位,...

统计一下racknerd正在卖的超便宜VPS,值得推荐的便宜美国VPS

racknerd从成立到现在发展是相当迅速,用最低的价格霸占了大部分低端便宜vps市场,虽然VPS价格便宜,但是VPS的质量和服务一点儿都不拉跨,服务器稳定、性能给力,尤其是售后方面时间短技术解决能力强,估计这也是racknerd这个品牌能如此成功的原因吧! 官方网站:https://www.racknerd.com 多种加密数字货币、信用卡、PayPal、支付宝、银联、webmoney,可...

vb 数组为你推荐
字符串常量以下正确的字符串常量是什么?A.""选项A是怎么回事商品管理什么是商品管理与经营?移动开发做移动软件开发的工程师工资一般有多少余额宝收益走势图余额宝七日年化收益率走势图,哪个网站天天更新?直接能看到?现在网现在网上买东西安全吗,2021年武汉发的货安全吗?网络营销讲师哪位网络营销讲师培训师的上课风格最好?网站数据分析报告网站要怎么去做分析报告?封包是什么这个七月半封包怎么填软件更新不可用手机软件突然更新不了怎么办反恐精英维护到几点反恐精英OL要从几点维护到几点?
哈尔滨域名注册 免费cn域名 liquidweb mediafire下载工具 申请个人网页 嘉洲服务器 河南服务器 web服务器架设 hostker 怎么测试下载速度 中国电信测速网 如何安装服务器系统 中国电信宽带测速器 服务器维护 个人免费邮箱 中国电信宽带测速 锐速 腾讯服务器 htaccess forwarder 更多