vb数组逆序重新存放vb输出

来源：蜘蛛抓取(WebSpider) 时间：2018-06-01 13:07 标签： vb随机生成二维数组
Private&Sub&Command5_Click()&Dim&n&As&Integer&Dim&MyData(),&MyTemp&n&=&1&Do&n&=&n&+&1&MyTemp&=&InputBox(“请输入第“&&&n&&&“个数据“)&If&MyTemp&=&““&Then&Exit&Do&ReDim&Preserve&MyData(n)&MyData(n)&=&MyTemp&Loop&Dim&K&As&Long,&j&As&Long,&X&As&Long&For&K&=&1&To&n&-&1&For&j&=&K&To&n&-&1&If&Val(MyData(j))&&&Val(MyData(K))&Then&X&=&MyData(j):&MyData(j)&=&MyData(K):&MyData(K)&=&X&End&If&Next&j&Next&K&For&I&=&2&To&n&-&1&Text1.Text&=&Text1.Text&&&“第“&&&CStr(I&-&1)&&&“数:“&&&CStr(MyData(I))&&&““&&&Chr(13)&&&Chr(10)&&&““&Next&&&&&&Text1.Text&=&Text1.Text&&&“最小值:“&&&CStr(MyData(2))&&&““&&&Chr(13)&&&Chr(10)&&&““&&&&&Text1.Text&=&Text1.Text&&&“最大值:“&&&CStr(MyData(n&-&1))&&&““End&Sub
其它3条答案
附近的朋友等待您的帮助
包打听移动版【图文】VB数组(经典程序讲解)_百度文库
赠送免券下载特权
10W篇文档免费专享
部分付费文档8折起
每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB数组(经典程序讲解)
&&VB数组(经典程序讲解)
阅读已结束，下载本文到电脑
想免费下载本文？
登录百度文库，专享文档复制特权，积分每天免费拿！
你可能喜欢正文 vb.net 数据排序倒序代码
vb.net 数据排序倒序代码
发布时间： & 编辑：www.jquerycn.cn
jquery中文网为您提供vb.net 数据排序倒序代码等资源，欢迎您收藏本站，我们将为您提供最新的vb.net 数据排序倒序代码资源向高手求救 将数组元素倒序，输出_百度知道
向高手求救 将数组元素倒序，输出
（提示：从键盘上输入十个数，并放入一个一维数组中，即第一个和第十个互换
我有更好的答案
答案如下：Option Base 1Private Sub cmdInput_Click()
Dim data(1 To 10)
As Integer
Dim lint_Index
As Integer
Dim lstr_Value
'Input 10 numbers
For lint_Index = 1 To 10
lstr_Value = InputBox(&Please input a valid number:&, &Message&)
If IsNumeric(lstr_Value) Then
data(lint_Index) = Val(lstr_Value)
Next lint_Index
Output data
End Sub'output these 10 numbers from 10 to 1Private Sub Output(ByRef data() As Integer)
Dim lint_Index
As Integer
For lint_Index = 10 To 1 Step -1
Print data(lint_Index)
采纳率：52%
Dim a(1 To 10)Private Sub Command1_Click()For i = 1 To 10a(i) = Val(InputBox(&&))Next iDim a(1 To 10)Private Sub Command1_Click()For i = 1 To 10a(i) = Val(InputBox(&&))Next iFor i = 1 To 5
a(i) = a(11 - i)
a(11 - i) = knext ifor i = 1 to 10 print a(i);next i试试
本回答被网友采纳
数组编号a1-a10令a(intenge）=a1a1=a10a10=a就可以了 楼上的好快= =
'给个万能的,想输入多少数据都可以,程序以调试可用
Dim i As Integer, n As Integer
If TextBox0.Text = && Then
MsgBox(&请输入您想输入数字的个数&)
n = CInt(TextBox0.Text)
Dim ar(n) As Integer
For i = 0 To n - 1
MsgBox(&请输入第& & Str(i + 1) & &个数字&)
ar(i) = Val(InputBox(&请输入&)) '将输入的数据转换为数值型并赋值给数组
Dim str1 As String, str2 As String
For i = 0 To n - 1
If str1 = && Then
str1 = ar(i)
str1 = str1 & & & & ar(i)
For i = 0 To n - 1
If str2 = && Then
str2 = ar(n - 1 - i)
str2 = str2 & & & & ar(n - 1 - i)
TextBox1.Text = str1
TextBox2.Text = str2程序已调试,有问题再联系....
其他1条回答
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。在VB中，如何将一个数组中的值按逆序重新存放。例如：原来8、6、5、4、1，要求改为1、4、5、6、8._百度知道
在VB中，如何将一个数组中的值按逆序重新存放。例如：原来8、6、5、4、1，要求改为1、4、5、6、8.
要求：1.数组中的元素由用户输入
2.单击窗体时，弹出【输入】对话框，输入结束后，在窗体中显示交换前后的数组元素
我有更好的答案
Dim a(1 To 5)Private Sub Command1_Click()For i = 1 To 5a(i) = Val(InputBox(&a(& + Str(i) + &)=&))Next iFor i = 1 To 5/2n = a(i)a(i) = a(6 - i)a(6 - i) = nNext iFor i = 1 To 5Print a(i);Next iEnd Sub
采纳率：7%
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 vb随机生成二维数组 的文章

 

随机推荐