【(1/2)用VB程序编程：从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换...】-突袭网
12:46:07【 转载互联网】 作者： &&|&责编：李强
&&& &为了解决用户可能碰到关于"(1/2)用VB程序编程：从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换..."相关的问题，突袭网经过收集整理为用户提供相关的解决办法，请注意，解决办法仅供参考，不代表本网同意其意见,如有任何问题请与本网联系。"(1/2)用VB程序编程：从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换..."相关的详细问题如下:RT,我想知道:(1/2)用VB程序编程：从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换...===========突袭网收集的解决方案如下===========
解决方案1：
Private Sub Command1_Click() Dim tmp As String, tmp1 As String, a() As String Me.Cls tmp = Text1.Text If Not IsNumeric(tmp) Then GoTo OutErr a = Split(tmp, &,&) If UBound(a) && 9 Then MsgBox &请输入十个整数！&, vbInformation, &提示&: Exit Sub For i = 0 To 4 tmp1 = a(i) a(i) = a(9 - i) a(9 - i) = tmp1 Next i For i = 0 To 9 If Int(Val(a(i))) = Val(a(i)) Then Me.Print a(i) & &,&; Else Me.Print a(i) & &(不是整数)&; End If Next i Exit SubOutErr: a = Split(tmp, &,&) For i = 0 To UBound(a) If Not IsNumeric(a(i)) Then Me.Print vbCrLf & a(i) & &不是整数& Next iEnd SubPrivate Sub Text1_Change()Dim a() As Stringa = Split(Text1.Text, &,&)If a(UBound(a)) && && Then Label1.Caption = &共输入：& & UBound(a) + 1 & &个数&End Sub
解决方案2：Option Base 1Private Sub Form_Click()Dim a%(10)For i = 1 To 10 a(i) = InputBox(&输入第& & i & &个元素值：&) Print a(i);Next iPrintFor i = 1 To 5 temp = a(i): a(i) = a(11 - i): a(11 - i) = tempNext iFor i = 1 To 10Print a(i);Next iEnd Sub
================可能对您有帮助================
答：国务院规定的公务文件结构层次序数只有四个层级：第一层为“一、”，第二层为“（一）”，第三层为“1.”，第四层为“（1）”。 最新补充：按照公文规范，一般是尽量避免出现第五层、第六层，特别是不能出现第六层。如果不可避免一定要出现，那可以用“第...===========================================答：您好： (1-1/2^2)(1-1/3^2)(*1-1/4^2)...(1-1/2013^2) =（1-1/2）（1+1/2）(1-1/3)(1+1/3)....(1-1//2013) =1/2x3/2x2/3x4/3x....x14/x = 不明白，可以追问如有帮助，记得采纳， 谢谢 祝学习进...===========================================答：您好： (1-1/2^2)(1-1/3^2)(*1-1/4^2)...(1-1/2013^2) =（1-1/2）（1+1/2）(1-1/3)(1+1/3)....(1-1//2013) =1/2x3/2x2/3x4/3x....x14/x = 不明白，可以追问如有帮助，记得采纳， 谢谢 祝学习进...===========================================答：history是你浏览过的网页的url（简单的说就是网址）的集合，也就是你的浏览器里的那个历史记录。它在js里是一个内置对象，就跟documen...===========================================答：{1,0}表示一个数组中有两个元素，一个是1，另一个是0。 1在条件判断中表示TRUE，0表示FALSE。 在“IF({1,0}”中，根据两...===========================================答：楼主的问题提的不是非常明确，我只能根据自己对你意思的理解来解释一下。如果是“一”或“1”那么后面需要后辍一个“、”号，如果用“（一）”或“（1）”则后面无须有“、”号，如果是单纯的“一、二、三、”或“1、2、3、”则称为编号，若在前述的编号下面还有...===========================================答：（1-1/2^2）(1-1/3^2)……（1-1/1999^2）(1-1/2000^2) =(1-1/2)(1+1/2)(1-1/3)(1+1/3)......(1-1////2000) =1/2*3/2*2/3*4/3*......*00/00* =1*2*/(2²*;) =2...===========================================答：用平方差 =(1-1/2)(1+1/2)(1-1/3)(1+1/3)……(1-1//2013) =(1/2)(3/2)(2/3)(4/3)……()() 中间约分 =(1/2)() ============================================问：V_COUNT := 0; SELECT COUNT(1) INTO V_COUNT FROM CUST WHERE CUST_ID ...答：count(1)，其实就是计算一共有多少符合条件的行。 1并不是表示第一个字段，而是表示一个固定值。 其实就可以想成表中有这么一个字段，这个字段就是固定值1，count(1)，就是计算一共有多少个1. 同理，count(2)，也可以，得到的值完全一样，count(...===========================================
12345678910小弟我想取出数组中最大的前6个数 - VB当前位置:& &&&小弟我想取出数组中最大的前6个数小弟我想取出数组中最大的前6个数&&网友分享于：&&浏览：18次我想取出数组中最大的前6个数？我想取出数组中最大的前6个数，不知道该怎么写，请帮帮忙。------解决方案--------------------排序一下就OK了
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有君，已阅读到文档的结尾了呢~~
精品：求数组元素个数 php 求数..
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
VB实验-求数组中最大的元素
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口共有1204位成员 　 人气指数 - 　 最新排名 -
【话题】VB数组中的最大值问题！
17:05:43　来自:zaqq120 浏览数：117次
'一级数据中极大值和极小值的基本程序
Sub maxmin(x() As Single, ByVal maxnumber As Single, ByVal minnumber As Single)
& & 'x()待处理的一组数据
& & 'maxnumber　为极大值
& & 'minnumber　为极小值
& & Dim n1 As Integer, n2 As Integer
& & Dim i As Integer
& & n1 = UBound(x)
& & n2 = LBound(x)
& & maxnumber = x(n1)
& & minnumber = x(n2)
& & For i = n2 + 1 To n1
& & & & If x(i) & minnumber Then
maxnumber = x(i)
& & & & ElseIf x(i)
& minnumber Then
minnumber = x(i)
& & & & End If
& & Next i
这段代码有问题吗？为什么我程序里找出来最大值和最小值都是显示的0呢，哪儿写错了？
shijie8168回复于30日18点21分　
函数修改了一下，如下：
Sub maxmin(x() As Single, ByRef maxnumber As Single, ByRef minnumber As Single)
'x()待处理的一组数据
'maxnumber　为极大值
'minnumber　为极小值
Dim n1 As Integer, n2 As Integer
Dim i As Integer
n1 = UBound(x)
n2 = LBound(x)
maxnumber = x(n2)
minnumber = x(n2)
For i = n2 To n1
If x(i) & maxnumber Then
maxnumber = x(i)
ElseIf x(i) & minnumber Then
minnumber = x(i)
和反应速度回复于30日19点44分　
For i = n2 + 1 To n1
If x(i) & maxnumber Then
maxnumber = x(i)
If x(i) & minnumber Then
minnumber = x(i)
chunyanli008回复于30日21点08分　
你可以用replace替换所有空格或者其它可以标志为分隔符的字符为逗号,这样就可以了...
xiaotianlin回复于30日22点32分　
我是把数据放在text文本框里，自己写了一个标准模块！写数据的时候用，或者空格分开！
雾中花回复于30日23点53分　
如果你分隔符就是空格,直接:
tmp=split(datum,chr(32))
cocoamail回复于01日04点10分　
'一级数据中极大值和极小值的基本程序
Sub maxmin(x() As Single, ByVal maxnumber As Single, ByVal minnumber As Single)
& & 'x()待处理的一组数据
& & 'maxnumber　为极大值
& & 'minnumber　为极小值
& & Dim n1 As Integer, n2 As Integer
& & Dim i As Integer
& & n1 = UBound(x)
& & n2 = LBound(x)
& & maxnumber = x(n1)
& & minnumber = x(n2)
& & For i = n2 + 1 To n1
& & & & If x(i) & maxnumber Then
maxnumber = x(i)
& & & & ElseIf x(i)
& minnumber Then
minnumber = x(i)
& & & & End If
& & Next i
前面写错了应该是这段代码，帮看看哪里有错误！
shla08801回复于01日05点39分　
Sub GotData(datum As String, xx() As Single)
& & Dim tmp
& & Dim i As Long
& & tmp = Replace(datum, Chr(32), &,&)
& & tmp = Split(tmp, &,&)
& & ReDim xx(UBound(tmp))
& & For i = 0 To UBound(tmp)
& & & & xx(i) = tmp(i)
丽小丫回复于01日07点07分　
好的，太感谢你了！全部解决！
helen1969回复于01日08点27分　
Private Function maxmin(x() As Single)
'x()待处理的一组数据
'maxnumber　为极大值
'minnumber　为极小值
Dim n1 As Integer, n2 As Integer
Dim i As Integer
n1 = UBound(x)
n2 = LBound(x)
maxnumber = x(n1)
minnumber = x(n2)
For i = n2 + 1 To n1
If x(i) & minnumber Then
maxnumber = x(i)
ElseIf x(i) & minnumber Then
minnumber = x(i)
maxmin = &最大值为& & maxnumber & &,最小值为& & minnumber
End Function
Private Sub Form_Load()
Dim arr(5) As Single
arr(0) = 32
arr(1) = 26
arr(2) = 94
arr(3) = 78
arr(4) = 107
arr(5) = 653
Msg = maxmin(arr)
MsgBox Msg
王海霞回复于01日09点55分　
代碼沒有問題,不知道你是在哪里取值的?
zhiqiu回复于01日11点13分　
谢谢楼上的，你给你的代码数据之间只能用“，”分开的吧，我的还可以用空格，不过好像还有点问题了。
andyliu88回复于01日12点48分　
LZ的代码算法上没有问题,只是参数传值的byval和byref的问题...
haibobo655回复于01日14点14分　
我不能修改，只能重新发一下了。
'这是通过过程在Text文本框里输入数据
Rem　Gotdata()标准模块&
Sub GotData(datum As String, xx() As Single)
& Dim number As String
& Dim i As Integer, j As Integer
& number = & &
& For i = 1 To Len(datum)
& & If Mid(datmu, i, 1) = & & Or Mid(datum, i, 1) = &,& Then
&& & & Then
& & & & & ReDim Preserve xx(j)
& & & & & & xx(j) = Val(number)
& & & & & & number = & &
& & & & & & j = j + 1
& & & & End If
& & & & number = number + Mid(datum, i, 1)
& & End If
& & If i = Len(datum) And number
&& & & Then
& & & & ReDim Preserve xx(j)
& & & & xx(j) = Val(number)
& & End If
'一级数据中极大值和极小值的基本程序
Sub maxmin(x() As Single, ByVal maxnumber As Single, ByVal minnumber As Single)
& & 'x()待处理的一组数据
& & 'maxnumber　为极大值
& & 'minnumber　为极小值
& & Dim n1 As Integer, n2 As Integer
& & Dim i As Integer
& & n1 = UBound(x)
& & n2 = LBound(x)
& & maxnumber = x(n1)
& & minnumber = x(n2)
& & For i = n2 + 1 To n1
& & & & If x(i) & maxnumber Then
maxnumber = x(i)
& & & & ElseIf x(i)
& minnumber Then
minnumber = x(i)
& & & & End If
& & Next i
我在text1里输入数据 text2和text3分别显示最大和最小值
Private Sub Command1_Click()
Dim xx() As Single
Dim a As Single
Dim b As Single
Dim maxnumber As Single
Dim minnmuber As Single
GotData Text1.Text, xx()
maxmin xx(), maxnumber, minnumber
a = maxnumber
b = minnumber
Text2.Text = Str(a)
Text3.Text = Str(b)
结果显示的是零。。大家帮一下呀，
qdxgm回复于01日15点49分　
大概写了下，你再优化一下，功能能够实现筛选出数组中的最大值和最小值
Option Explicit
Private Sub Form_Load()
Dim a(5) As Single
Dim Max As Single
Dim Min As Single
maxmin a, Max, Min
Debug.Print Max
Debug.Print Min
Sub maxmin(x() As Single, ByRef maxnumber As Single, ByRef minnumber As Single)
'x()待处理的一组数据
'maxnumber　为极大值
'minnumber　为极小值
Dim n1 As Integer, n2 As Integer
Dim i As Integer
n1 = UBound(x)
n2 = LBound(x)
Dim Tmp As Single
maxnumber = x(n1)
minnumber = x(n2)
Tmp = x(n2)
For i = n2 To n1
If x(i) & Tmp Then
Tmp = x(i)
Debug.Print Tmp
maxnumber = Tmp
Tmp = x(n2)
For i = n2 To n1
If x(i) & Tmp Then
Tmp = x(i)
Debug.Print Tmp
minnumber = Tmp
冰玉百合回复于01日17点06分　
试了下没有弄成，只能用“，”分开，比较菜！
Sub GotData(datum As String, xx() As Single)
& & Dim tmp
& & Dim i As Long
& & datum1=replace(xx(),& &,&,&)
& & tmp = Split(datum1, &,&)
& & ReDim xx(UBound(tmp))
& & For i = 0 To UBound(tmp)
& & & & xx(i) = tmp(i)
郭芊惠回复于01日18点28分　
上面已经说的很清楚了,你的代码关健之处是maxmin中参数的传递方式不正确,不能byval要byref:
Sub maxmin(x() As Single, maxnumber As Single, minnumber As Single)
测试了一下你的代码,许多地方变量都不正确,建议你在代码项端加上Option Explicit,不改了这些错误,你依然得不到正确结果
还有你的GotData函数可以优化:
Sub GotData(datum As String, xx() As Single)
& & Dim tmp
& & Dim i As Long
& & tmp = Split(datum, &,&)
& & ReDim xx(UBound(tmp))
& & For i = 0 To UBound(tmp)
& & & & xx(i) = tmp(i)
飘渺京华客回复于01日19点40分　
你调用的方式有问题吧
如果你想用这个函数返回值,那肯定是0的,因为你传递的是值而不是引用
Sub maxmin(x() As Single, Byref maxnumber As Single, Byref minnumber As Single)
是你要的结果
xiaozheng回复于01日20点42分　
你和我写的应该是一样的吧，我试了一下，结果还是一样，不行呀，
李瀚洋回复于01日21点43分　
哦,LZ代码最大值计算上有点问题,改一下:
Sub maxmin(x() as Single, maxnumber As Single, minnumber As Single)
& & 'x()待处理的一组数据
& & 'maxnumber　为极大值
& & 'minnumber　为极小值
& & Dim n1 As Integer, n2 As Integer
& & Dim i As Integer
& & n1 = LBound(x)
& & n1 = n2
& & For i = n1 + 1 To UBound(x)
& & & & If x(i) & x(n1) Then n1 = i
& & & & If x(i)
& x(n2) Then n2 = i
& & Next i
& & maxnumber = x(n1)
& & minnumber = x(n2)
wangymei回复于01日22点38分　
Sub maxmin(x() as Single, maxnumber As Single, minnumber As Single)
'x()待处理的一组数据
'maxnumber　为极大值
'minnumber　为极小值
Dim n1 As Integer, n2 As Integer
Dim i As Integer
n1 = LBound(x)
For i = n1 + 1 To UBound(x)
If x(i) & x(n1) Then n1 = i
If x(i) & x(n2) Then n2 = i
maxnumber = x(n1)
minnumber = x(n2)
VB语言的其他话题...
热门脚本语言：}