UC知道VB 数组 满意追加100分
来源：百度知道 编辑：UC知道 时间：2024/05/27 17:53:36
添加2个按钮~按钮一：~随机从1-100中选取的10个数 要求不重复的 将其赋值给一个数组 然后打印出来~
按钮二 单击后显示上面这个数组的元素倒置
如 1 2 3 4 5 6 7 8 9 10 单击后变 10 9 8 7 6 5 4 3 2 1
1楼的你能不能让改下代码 从X数 内选Y个随机数 用INPUTBOX输入 最好能优化代码 多点备注
2楼的代码错误。改改 还有 排序怎么配合px过程可对数组进行升序或降序排列？？
3楼 你现在改好了~~能不能再为难一下~ 就是在同一个文本框内 输出这2次结果 好做对比啊~行的话 分全给你了~
4楼。。我要VB 你来PHP干吗。。郁闷~我搞软件 你搞网页。。
按钮二 单击后显示上面这个数组的元素倒置
如 1 2 3 4 5 6 7 8 9 10 单击后变 10 9 8 7 6 5 4 3 2 1
1楼的你能不能让改下代码 从X数 内选Y个随机数 用INPUTBOX输入 最好能优化代码 多点备注
2楼的代码错误。改改 还有 排序怎么配合px过程可对数组进行升序或降序排列？？
3楼 你现在改好了~~能不能再为难一下~ 就是在同一个文本框内 输出这2次结果 好做对比啊~行的话 分全给你了~
4楼。。我要VB 你来PHP干吗。。郁闷~我搞软件 你搞网页。。
哇!追加100分啊,我就是熬夜也给你写出来啦!
花了三十分钟,写好了,我尽量减少了代码,而且完全达到你的要求,还添加了说明,不知道满意吗?有啥不对的给我发消息. vb6+sp2测试
添加两个command 一个label
Private A(10) As Integer
Private Sub Command1_Click()
Dim i As Integer
Text1.Text = ""
Do '开始循环添加变量数组
i: '设置标签,让重复跳到这里换一个随机数
A(i) = Int(Rnd * 100) '开始赋予变量数组随机数
For j = 0 To i - 1 '循环检查是否重复
If A(j) = A(i) Then GoTo i: '如果重复就跳到设置标签,换一个随机数
Next j '退出循环
Text1.Text = Text1.Text & " " & A(i) '显示到text1.text,并且在中间添加个空格
i = i + 1 '让数组循环加1
If i = 10 Then Exit Do '如果有10个了就退出
Loop
End Sub
Private Sub Command2_Click()
Dim B As String, i As Integer
For i = 0 To 9 '循环从0到9
B = A(i) & " " & B '循环让A=第i个字符加A
Next i
Label1.Caption = Label1.Caption & Chr(13) & B
End Sub
代码好了,把text控件换成label(因为好像text不支持换行符chr(10),所以用label,下面我给你写了个用Print输出的),这次没问题了吧!还有啥需要