vb随机生成10个1+100数字
用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
编程题,输出10个1~100的随机数
public class Test{ public static void main(String[] args) { int[] num = new int[10];\/\/存储10个生成的数据 int i=0;\/\/计数器 指示当前要填加到的数组下标,并指示当前已经添加了几个数 boolean b;\/\/判断是否重复的辅助变量 while(i<10){ \/\/生成一个随机数 int j = (int)(Math....
VB产生10个[1,100]的随机数
文本框Text1 Text2 Text3 Text4 统计按钮Command1 窗体代码 Option Explicit Private Sub Command1_Click()Dim Vs() As Long, Ls() As String, fo As Long, Vc As Long Dim Max As Long, Min As Long, e As Double,t as long ReDim Vs(Len(Label1))Ls = Split(Label1, vbCrLf)For...
VB编程:随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出...
Dim i As IntegerDim S(10) As IntegerDim Max As IntegerFor i = 0 To 9 Randomize S(i) = Int(Rnd * 100) + 1 If i = 0 Then Max = S(i) ElseIf Max < S(i) Then Max = S(i) End If Debug.Print Max & " " & S(i)Next i 删除的我没有...
C语言如何srand和rand函数产生10个1-100内的随机数
电脑、C语言编译器。1、首先，打开C语言编译器，新建一个初始.cpp文件，例如：test.cpp。2、在test.cpp文件中，输入C语言代码：for (int i = 0; i < 10; i++)printf("%d ", rand() % 100 +1);3、编译器运行test.cpp文件，此时成功通过rand产生了10个1-100内的整数。
如何用C语言编写出 生成10个1到20不重复的随机数。直接完整程序就好了...
define N 10 void main(){ int a[20]={0},b[N],x,i,j,t;srand((unsigned int)time(NULL));for (i=0;i<N;i++){ while(a[x=rand()%(20-2) + 2]);{ b[i]=x;a[x]=1;\/\/printf("%d ",b[i]);} } for(i =0 ;i<N-1;i++){ for(j = i+1 ;j<N;j++){...
excel中从1-100中随机生成10个不重复的整数,重复十次后这一百个数据就...
1、选择B1:B100单元格，输入=RAND() 按Ctrl+Enter组合键，生成随机数；2、输入以下公式，然后向右向下填充至10列10行，即可生成10行10列不重复的随机整数 =RANK(OFFSET($B$1,(ROW(A1)-1)*10+COLUMN(A1)-1,),$B:$B)详见附图示例 ...
excel 如何随机生成不重复的10个数
先在A1:A10填充1～10的自然数列,在B1输入公式:=RAND()将B1向下填充至B10,再选中B、A两列,以B列排序,最后删除B列即为你要的结果。 bluelaser | 发布于2009-03-22 举报| 评论 3 2 呵呵,这个有难度啊,随机生成1-10的不难,但不重复不好弄啊,我也想知道,关注一下。 jackychen0 | 发布于2009-...
excel中如何在指定一列中随机产生总和为n的一些1或者0?
在 Excel 中，可以使用以下步骤在指定一列中随机产生总和为 n 的一些 1 或者 0：在 Excel 中，选中一个空列，用于存放随机生成的 1 或 0。在第一行输入 "1"，并在下一行输入 "0"。在第三行输入 "=RAND()"，并将其填充到需要生成随机数的所有单元格中。这会在每个单元格中生成一个介于 0...
java问题求教。 随即产生10个1-1000之间的整数,放在一个数组里,定义方...
return 最大值最小值 \/ public int[] maxMin(){ \/\/随机产生10个1-1000的整数放到数组nums中 int nums[] = new int[10];for(int j=0;j<nums.length;j++){ nums[j] = new Random().nextInt(1000)+1;System.out.println(nums[j]);} \/\/找出数组nums中最大值 int max = 0;for(...
镇康县健儿回答：[答案] private sub command1_click() dim a(1 to 10) as integer,i,j for i=1 to 10 a(i)=int(rnd*100)+1 print a(i); next print for i=1 to 10 for j=1 to i if a(i)
刘娜15178293153问： 用VB写出产生10个1到100的随机整数 - ？
镇康县健儿回答： dim a(10) as integer randomize for i=1 to 10a(i)=int(100*rnd)+1 next i
刘娜15178293153问： vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数 - ？
镇康县健儿回答：[答案] '声明变量dim Min_num as intdim Max_num as intdim Sum_num as intdim Arr_num(9) as int'赋予初始值Min_num=101Max_num=-1Sum_num=0'循环10次获得10个随机数for i=1 to 10 randomize Arr_num(i-1)=int(r...
刘娜15178293153问： Vb编写程序,随机生成 10 个[1,100]的整数,输出其平均值及大于平均值的数. - ？
镇康县健儿回答： Private Sub Command1_Click() '生成10-100间10个数字求平均值及大于平均值的数字 Me.Cls Dim a() As Integer, i As Integer, he As Integer Dim pj As Single ProduceShu 10, 100, 10, a() Print ＂生成的10个数字分别为:＂ & Space(2); For i = ...
刘娜15178293153问： vb随机生成10个数,在1到100之间,并且按照从大到小的顺序排成一行 - ？
镇康县健儿回答：[答案] Dim shuzu(1 To 10) As IntegerDim i As IntegerPrivate Sub Form_Load()Me.AutoRedraw = TrueRandomizei = 1For i = LBound(shuzu) To UBound(shuzu)shuzu(i) = 1 + Int(100 * Rnd())Print shuzu(i);NextPrintpaixu...
刘娜15178293153问： 用VB编写可连续生成十个0至100之间的随机整数 - ？
镇康县健儿回答： 建一个按钮,两个label控件: private sub command1_Click()dim i as integer dim rInt as integer dim s1 as string dim s2 as string s1=＂＂ s2=＂＂ for i= 1 to 10 Randomize rInt=int(rnd() * 100) s1=s1 & cstr(rInt) if rInt mod 2 =0 then s2=s2 & cstr(rInt) end if next i label1.caption=s1 label2.caption=s2end sub
刘娜15178293153问： VB题:随机产生10个1到100的数并输入文本框1,在文本框2中进行倒置,帮帮忙 ,谢啦 - ？
镇康县健儿回答： Option Explicit Dim i As Integer, 数组(10) As IntegerPrivate Sub Command1_Click() Text1.Text = ＂＂ Text2.Text = ＂＂ For i = 0 To 9 Text1.Text = Text1.Text & ＂ ＂ & 数组(i) Text2.Text = 数组(i) & ＂ ＂ & Text2.Text Next i End SubPrivate Sub Form_Load() Randomize For i = 0 To 9 数组(i) = Rnd * 99 + 1 Next i End Sub
刘娜15178293153问： 用VB编写 产生10个1到100的随机数 大于等于50的加和 小于50不加 大于90停止循环 - ？
镇康县健儿回答： Dim Num1%, Num2% Num1 = 0: Num2 = 0 Randomize For i = 1 To 12 Num2 = Int(Rnd * 101) + 1 If Num2 >= 50 Then Num1 = Num1 + Num2 If Num1 > 90 Then Exit For Next i MsgBox Num1以上代码 在循环中产生12个1~100的随机数,大于等于50的数将会相加,当相加的值大于90时立即停止计算并使用对话框显示最终值
刘娜15178293153问： VB新手,想知道如何编辑代码可以随机产生10个不重复的1 - 100的数 - ？
镇康县健儿回答： randomize dim a(9) as byte for i = 0 to 9 a(i) = int(rnd * 99 + 1) next
刘娜15178293153问： 怎样用VB做随机产生10个1 - 100以内的整型数,求出其的最大值,最小值,平均值 - ？
镇康县健儿回答： 这样才对 初始化应加在For 循环里 s要变为双精度(这样平均数才有小数点后几位)楼主试我这个:Private Sub Command1_Click() Dim i%, j%, max%, min%,s%For i = 1 To 10 Randomize j = Int(Rnd * 100 + 1) If i = 1 Then min = j If j > max Then max = j If j < min Then min = j s = s + j Print j; Next Print Print ＂最大值,最小值,平均数分别为:＂; max; min; Cdbl(s) / 10 End Sub
