用vb编写程序实现排序
用vb编写程序实现排序,详细要求见附件,请各位朋友帮忙,在线等!
DimX(30)AsInteger'放数组DimNAsInteger'随机产生的个数DimiAsIntegerDimsAsIntegerDimjAsIntegerDimsumAsInteger'求和PrivateSubForm_Load()Text1。
Text=""Text2。Text=""Text3。Text=""Text4。Text=""Text5。Text=""Text6。Text=""EndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then'判断是不是右键PopupMenuForm1。
rightEndIfEndSubPrivateSubshengcheng_Click()'生成随机数事件Text1。Text=""Text2。Text=""Text3。Text=""Text4。Text=""Text5。Text=""RandomizeN=Int(Rnd*(30-5+1)+5)'随机产生N个数,N为5~30之间的数Text6。
Text=NFori=1 (Rnd*(99-10+1)+10)'随机产生N个10~99之间的数Ifjudge(s)=FalseThen'判断数字是否重复X(i)=s'不重复就赋值Else'如果重复,则回到re重新生成新的机数GoToreEndIfNextiFori=1ToNText1。
Text=Text1。Text&X(i)&vbCrLf'text1里显示出来NextiEndSubPrivateFunctionjudge(sAsInteger)AsBoolean'判断是否重复DimiAsIntegerFori=1ToNIfX(i)=sThenjudge=TrueExitFor'这里要退出循环,不然后面出现不同的就覆盖了ElseIfX(i)<>sThenjudge=FalseEndIfNextiEndFunctionPrivateSubtongji_Click()'右键统计事件Text2。
Text=""Fori=1ToN-1'冒泡排序Forj=i+1ToNIfX(i)>X(j)ThenTemp=X(i)X(i)=X(j)X(j)=TempEndIfNextjNextiFori=1ToNText2。Text=Text2。Text&X(i)&vbCrLf'输出排序后结果NextiText3。
Text=X(N)'最大值Text4。Text=X(1)'最小值sum=0Fori=1ToNsum=sum+X(i)NextiText5。Text=sum/N'输出平均值EndSubPrivateSubquit_Click()'退出命令EndEndSub大概写了下,具体的你看下我传上来的附件。
Private Sub Command1_Click() Randomize ReDim a(10) For i = 1 To 10 a(i) = Int(Rnd(3) * 100) Text1。Text = Text1。
Text & Str(a(i)) Next i End Sub Private Sub Command2_Click() Dim temp As Integer 'ReDim a(10) For i = 0 To 9 'a(i) = Int(Rnd * 51) 'For t = 1 To n - 1 For j = i To 9 If a(i) > a(j) Then temp = a(i) a(i) = a(j) a(j) = temp End If Next j Next i 'Next t For i = 0 To 9 Text2。
Text = Text2。Text & Str(a(i)) & vbCrLf Next i ' Next i End Sub 。
vb入门程序,太简单了,不想写。 你小子肯定是在应付作业或者考试了。 我记得当年选修VB的时候,考试中出过这道题。 2楼的思路基本正确。不过重复工作过多,可以优化。 另外最好不要用GOTO,用DO。
我没有专门写你的代码,你可以参考下面的代码格式: 菜单可以用下面的代码: 用菜单编辑器工具选添加菜单,再设为“可见”勾去掉。 PopupMenu [菜单名] '在相关事件中写入弹出该菜单命令 下面是引用,楼主可以参考一下: 。。。
。。。。。。。。。。 VB生成随机数,并排序2007-11-18 19:59Dim a() Private Sub Command1_Click() Randomize ReDim a(10) For i = 1 To 10 a(i) = Int(Rnd(3) * 100) Text1。
Text = Text1。Text & Str(a(i)) Next i End Sub Private Sub Command2_Click() Dim temp As Integer 'ReDim a(10) For i = 0 To 9 'a(i) = Int(Rnd * 51) 'For t = 1 To n - 1 For j = i To 9 If a(i) > a(j) Then temp = a(i) a(i) = a(j) a(j) = temp End If Next j Next i 'Next t For i = 0 To 9 Text2。
Text = Text2。Text & Str(a(i)) & vbCrLf Next i ' Next i End Sub 。
答:请往窗体上添加一个Command先. 1. '比较简单 日期有效性验证未做 Dim month(1 To 12) As Integer Private Sub ...详情>>
答:我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛,你可以自己注册一个用户进去看看,你可以和他们交流也可以寻求他们的帮助,我想没有你解决不了的问题,...详情>>
答:格式化文本区域的段落标记,用于规定文本和层的属性和位置等。比如: 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>