中国海洋大学VB上机试题(总15页).docx

上传人:晟*** 文档编号:7883717 上传时间:2021-11-14 格式:DOCX 页数:15 大小:17.37KB
下载 相关 举报
中国海洋大学VB上机试题(总15页).docx_第1页
第1页 / 共15页
中国海洋大学VB上机试题(总15页).docx_第2页
第2页 / 共15页
中国海洋大学VB上机试题(总15页).docx_第3页
第3页 / 共15页
中国海洋大学VB上机试题(总15页).docx_第4页
第4页 / 共15页
中国海洋大学VB上机试题(总15页).docx_第5页
第5页 / 共15页
点击查看更多>>
资源描述

1某数组有20个元素,其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换,第2个数与第19个元素互换,第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。Option ExplicitDim a(1 To 20) As Integer, i As Integer, j As Integer, t As IntegerPrivate Sub Form_Load()me.ShowPrint 原始数组是:RandomizeFor i = 1 To 20 a(i) = Int(Rnd * 90+10) 10 to 99 Print a(i); If i Mod 10 = 0 Then PrintNext iPrintPrint 现在数组是:For i = 1 To 10 j = 21 - i t = a(i): a(i) = a(j): a(j) = tNext i For i = 1 To 20 Print a(

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 实用文档资料库 > 表格模板

Copyright © 2018-2021 Wenke99.com All rights reserved

工信部备案号浙ICP备20026746号-2  

公安局备案号:浙公网安备33038302330469号

本站为C2C交文档易平台,即用户上传的文档直接卖给下载用户,本站只是网络服务中间平台,所有原创文档下载所得归上传人所有,若您发现上传作品侵犯了您的权利,请立刻联系网站客服并提供证据,平台将在3个工作日内予以改正。