VB随机产生10个数字
用vb怎样生成10个不重复的(1到10)随机数? -
vb生成10个不重复的随机数代码：Private Sub Command1_Click()Dim a(9) As Integer For i = 0 To 9 GoTo way1 End If Next p End If Print a(i)Next i End Sub
xian_100103 采纳数：555 获赞数：553 LV10 擅长：VB 其他编程语言数据库DB 参与团队：vb解答团 向TA提问私信TA 展开全部 创建一个数组，A(50),把数字1~50,存在相应的数组中，让后根据随机数的值，交换对应下标的数组存放的值，最后把数组的前10个数保存，或是输出即可，这样就不会出现重复值，也可简化还有呢？
vb生成10个不重复的随机数代码：Private Sub Command1_Click()Dim a(9) As Integer For i = 0 To 9 GoTo way1 End If Next p End If Print a(i)Next i End Sub
xian_100103 采纳数：555 获赞数：553 LV10 擅长：VB 其他编程语言数据库DB 参与团队：vb解答团 向TA提问私信TA 展开全部 创建一个数组，A(50),把数字1~50,存在相应的数组中，让后根据随机数的值，交换对应下标的数组存放的值，最后把数组的前10个数保存，或是输出即可，这样就不会出现重复值，也可简化还有呢？
新建一个form1添加command1添加label1label1高度设的稍高一点，以显示数据。form代码视图中加入以下语句.Private Sub Command1_Click() '定义变量Dim a(9) As Integer Dim i As Integer Dim r As Integer Dim t As Integer '产生随机数Randomize For i = 0 To 9 a(i) = CInt(Rnd(说完了。
Dim y As String For i = 0 To 9 Randomize a(i) = Int(Rnd(1) * 101)x = x + a(i)Next i Print "元素和=" & x Print "平均值=" & x / 10 For i = 0 To 9 If a(i) > (x / 10) Then j = j + 1: y = y & CStr(a(i)) & " "Next i Print "大于说完了。
怎么用vb设计 随机产生10个100到200之间的数,求出最大值与最小值_百 ...
1、首先需要启动VB6.0，新建一个标准exe工程。2、打开VB6.0之后，在窗体上绘制一个命令按钮。3、接下来需要双击命令按钮进入代码窗口。4、接下来开始编辑按钮的单击事件。5、最后就可以按F5运行测试。求出最大值与最小值。
这是我之前写的代码，是随机产生8个1000内的整数，然后从大到小排列，你要随机产生10个整数，然后求出最大值应该是差不多的，可以参考Dim a(10) '‘定义a数组为窗体变量，且最大下标为10 Private Sub Command1_Click()Randomize '‘随机播种语句For i = 1 To 8 '‘随机产生8个100是什么。
vb编写程序,利用随机函数产生并显示10 个1~100 之间的随机整数并找出这...
Private Sub Command1_Click() Dim a(10) As Integer Randomize Max = 1 For i = 1 To 10 a(i) = 1 + Int(Rnd * 100) Print a(i); If a(i) > a(Max) Then Max = i Next i Print Print "a("; Max; ")="; a(Max)End Sub 到此结束了？。
为您推荐： vb语言 vb编程设计例题100例 vb 整数 vb整数代码 vb判断整数 vb表示整数 vb随机整数 vb整数型是什么 vb & vb随机生成数字其他类似问题2012-05-06 vb,产生10个两位随机整数，用冒泡排序法对10个数升序排列9 2012-05-23 VB随机产生10个两位数整数(正整数),要求分别用选择排序法等会说。.
vb产生10个不同随机数 -
用数组来保存产生的随机数，每产生一个随机数就跟已经产生的随机数进行比较，如果跟已经产生的随机数中的一个相同的话就重新产生一个随机数，直到跟已经产生的所有随机数都不相同为止。Private Sub Command1_Click()Dim a(1 To 10) As Integer Dim i As Integer Dim j As Integer Me.Cls Randomiz还有呢？
dim Max_num as int dim Sum_num as int dim Arr_num(9) as int '赋予初始值Min_num=101 Max_num=-1 Sum_num=0 '循环10次获得10个随机数for i=1 to 10 randomize Arr_num(i-1)=int(rnd*100)+1 '判断后赋值最小值if Arr_num(i-1)<Min_num then Min_num=Arr_num(i-1后面会介绍。