77问答网
所有问题
当前搜索:
vb随机生成十个数
vb生成10个随机数
,且在1~50之间
答:
Private Function Repeat(a() As Integer, Num As Integer, Index As Integer) As Boolean '参数:a()表示要判断的数组,Num表示被重复的
数字
,index表示判断到几号就不看了 Dim j As Integer For j = LBound(a) To Index '如果有重复则返回True If Num = a(j) Then Repeat = True: Exit Function Nex...
VB中
,
随机产生10个
0~100之间的
随机数
,按从小到大的顺序排列怎么做...
答:
新建一个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(...
用
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
用
vb
代码表示
随机产生10个
整数,并求出最大值
答:
Dim a(
10
) '‘定义a数组为窗体变量,且最大下标为10 Private Sub Command1_Click()Randomize '‘随机播种语句 For i = 1 To 8 '‘
随机产生
8个1000之内的正整数,赋予数组a的各个变量 a(i) = Fix(Rnd * 1000) + 1 Next i For i = 0 To 7 Label2(i) = a(i + 1)Next ...
用
vb
“
随机产生10个
整数存入一维数组中,求其最大数及所在的下标”语句及...
答:
For i = 1 To
10
a(i) = Int(Rnd * 100) '
随机生成
0到99的整数 Print a(i);Next i Print maxnum = a(1) '初始最大值为
随机数
的第一
个数
For i = 1 To 10 If maxnum < a(i) Then flag = i '标记最大值的下标 maxnum = a(i) '标志最大值 End If Next...
用
VB编程
:
随机产生10个
0~100之间的随机整数,存放在一个数组中,然后求个...
答:
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 "大于平均值的元素
个数
=" & j Print "大于平均值的元素:" & y Me.Refresh End Sub ...
vb随机生成10个数
,在1到100之间,并且按照从大到小的顺序排成一行_百度...
答:
Private Sub Form_Load()Me.AutoRedraw = True Randomize i = 1 For i = LBound(shuzu) To UBound(shuzu)shuzu(i) = 1 + Int(100 * Rnd())Print shuzu(i);Next Print paixu shuzu For i = LBound(shuzu) To UBound(shuzu)Print shuzu(i);Next End Sub Sub paixu(shuzu() As ...
vb产生10个
不同
随机数
答:
用数组来保存
产生
的
随机数
,每产生一个随机数就跟已经产生的随机数进行比较,如果跟已经产生的随机数中的一个相同的话就重新产生一个随机数,直到跟已经产生的所有随机数都不相同为止。Private Sub Command1_Click()Dim a(1 To
10
) As Integer Dim i As Integer Dim j As Integer Me.Cls Randomiz...
用
VB
编写程序,
随机生成10个
10~99互不相同的整数,将它们按由小到大的...
答:
Print "
产生
的
随机数
为:"For i = 1 To UBound(a)Print a(i);Next i Print For i = 1 To UBound(a) - 1 For j = UBound(a) To i + 1 Step -1 If a(i) > a(j) Then b = a(i): a(i) = a(j): a(j) = b Next j Next i Print "排序后的数为:"For i = ...
用
VB
语言,怎么编写以下这个程序:
随机生成10个
100到200之间的整数,并...
答:
Console.WriteLine("
随机生成
的
10个
100到200之间的整数是:")For i As Integer=0 To 9 a(i)=r.[Next](100,201)For j=0 To i-1 If a(j)=a(i) Then Exit For End If Next If j>=i Then n=CInt(Math.Sqrt(a(i)))For k=2 To n If 0=a(i) Mod k Then Exit For End ...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb随机生成10个不同的随机数
vb随机生成1到100随机数
vb随机生成一个数
vb随机生成10个1~100数字
vb随机生成一个四位整数
如何生成随机数vb
生成随机数vb
vb随机生成两位数
vb生成随机数的代码