66问答网
所有问题
当前搜索:
vb随机生成十个数
求
VB
简单
随机数字生成
器代码?
答:
Private Sub Form_Load() '初始化
随机数
发生器 Randomize End Sub Private Sub Command1_Click() '
生成
6位随机数 Text1.Text = Int(Rnd * 900000) + 100000 End Sub Private Sub Command2_Click() '生成8位随机数 Text1.Text = Int(Rnd * 90000000) + 10000000 End Sub Private Sub ...
...如何对下标为偶数的数组求和?(这
十个数
是
随机生成
的)
答:
Private Sub Command1_Click() Dim a(
10
) As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) + 1 Print a(i); If i Mod 2 = 0 Then s = s + a(i) Next i Print Print "下标为偶数的元素之和="; sEnd Sub ...
用
VB编程
,
随机生成
30个0至80的数,并排序(选择法)
答:
Private Sub Form_Click()Dim i, j, t, a(1 To 30)Cls Randomize Print "30个
随机数
:"For i = 1 To 30 a(i) = Int(81 * Rnd)Print a(i);If i Mod
10
= 0 Then Print Next Rem 用选择法排序 For i = 1 To 29 For j = i + 1 To 30 If a(i) < a(j) Then t ...
vb编程 随机生成
20个【1,100】以内的整数,以每行五个输出其中的奇数,并...
答:
Private Sub Command1_Click()ClsDim a As LongDim b(20) As Long, c(20) As LongPrint "20个
随机数
:";For i = 1 To 20Randomizea = Int((Rnd * 100) + 1)b(i) = aPrint a;Next iPrintFor i = 1 To 20If b(i) Mod 2 = 1 Thenj = j + 1c(j) = b(i)End If...
vb编程
,用
随机
函数
产生
50个
10
~100之间的互不相同的整数存于一数组中...
答:
Private Sub Command1_Click()Dim x(90) As Integer '高效代码,
产生
无重复
随机数
For i =
10
To 100 x(i - 10) = i Next Randomize For i = 1 To 50 j = Int(Rnd * (91 - i)) + i t = x(i)x(i) = x(j)x(j) = t Next '排序 For i = 1 To 50 For j = 1 ...
VB
用
随机
函数
产生
50个【
10
-100】的随机整数,并按照从小到大的顺序打印...
答:
Dim A(50) As IntegerPrivate Sub Command1_Click()RandomizeFor i = 1 To 50A(i) = Int(Rnd * 90 +
10
)Next iPicture1.ClsPicture1.Print "排序前数据:"For i = 1 To 50Picture1.Print A(i);If i Mod 10 = 0 Then Picture1.PrintNextEnd SubPrivate Sub Command2_Click()For ...
VB
怎样
随机
提取
10个数
中的5个数存到数组中
答:
先将这
10个数字
放在一个数组a(10)中。然后通过
随机
函数的调用来随机抽取数字。每次抽取一个,若抽取到的数字已被抽取,则进行下一次抽取。这大概就是基本想法吧。通过代码实现:Dim a(10) As Integer '存放要抽取的数字。Dim Fir(5) As Integer '存放抽取到的5个数字的下标,最后改为存该下标的...
在
VB中
要
生成
一个
10
位的
随机数
,应该怎么做?
答:
实际只有9位数。0.001 只有8位数。0.0001 只有7位数。所以:Int(Rnd*9000000000)+1000000000 首先
产生
一个少于9000000000的数,介于0-89999999999之间,再上加1000000000,那么就可确保产生1000000000-9999999999之间的
随机数
啦。
VB
生成随机数
并把其中的素数进行排序
答:
这里有三个关键点:1、
产生随机数
,2、判断素数,3、排序!这里采用冒泡排序法。完整代码如下:Private Sub Command1_Click()Combo1.Clear Randomize For i = 1 To 50 rd(i) = Int(Rnd * 999) + 1 Combo1.AddItem Format(rd(i), "#000")Next Combo1.ListIndex = 0 End Sub '判断一个...
vb随机产生
100个自然数,将它们从大到小的排序。并输出
答:
Private Sub Form_Click()Form1.AutoRedraw = True Form1.Cls Dim A(100) As Integer Dim I As Integer, J As Integer, K As Integer Randomize Print "
随机产生
的100
个数
是:"For I = 1 To 100 A(I) = Int(Rnd * 999 + 1)Print A(I);If I Mod
10
= 0 Then Print Next For...
棣栭〉
<涓婁竴椤
7
8
9
10
12
13
14
15
16
11
涓嬩竴椤
灏鹃〉
其他人还搜