66问答网
所有问题
当前搜索:
vb随机生成十个数
怎么让
vb
在文本框上
随机产生
一个1-
10
的整数?
答:
随机数
的返回格式 用a表示下界,b表示上界,用一下的命令可以返回a~b之间的任意数 int(rnd()*(b-a+1))+a 你是要
产生
一个1~
10
之间的数,并显示与文本框上。假设这个文本框是Text1就可以这样 Text1.Text = Str(Int(Rnd()*10)+1)...
VB
编写一个数组,数组元素是
10个
0~100之间的
随机
整数用冒泡排序法对这1...
答:
Sub x() Dim arr(1 To
10
) As Integer, i, j, k '
产生随机数
For i = LBound(arr) To UBound(arr) arr(i) = Int(Rnd * 100) Next i MsgBox "
随机生成
的数据是:" & Join(arr, ",") '排序 For i = LBound(arr) To UBound(arr) - 1 k = ...
vb中
怎样将
随机产生
的数按
10个
一组输出?高手可留下联系方式我再请教...
答:
Private Sub Form_click()Randomize n = InputBox("请输入要
产生
的
随机个数
:")a = InputBox("请输入
随机数
[A,B]区间的A范围:")b = InputBox("请输入随机数[A,B]区间的B范围:")For i = 1 To n If i Mod
10
= 0 Then Print Else Print Int(Rnd * ((b - a + 1) + a));...
...如何对下标为偶数的数组求和?(这
十个数
是
随机生成
的)
答:
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产生随机数
1.【
10
到1000之间的整数(包含10和1000)】 2. 【一个两 ...
答:
1.Dim number Randomize Timer() '使每次产生的
数字
都不一样 number=Int((991*Rnd())+
10
) '
产生随机数
Rnd()产生的数>=0且<1 2.Dim number Randomize Timer() '使每次产生的数字都不一样 number=Int((90*Rnd())+10) '产生随机数 ...
...
产生
200个200~600之间的整数,每行输出
10个数
,找出这些整数中最大数...
答:
可参考。如有帮助请采纳!
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中随机产生
100个两位随机整数,按
十个数
为一行输入,并找出这组数中的...
答:
min As IntegerRandomizeFor i = 1 To 100 n = Int(Rnd * 90) +
10
Print n; If i Mod 10 = 0 Then Print If i = 1 Or max < n Then max = n If i = 1 Or min > n Then min =nNext iPrint "最大数:"; maxPrint "最小数:"; min ...
vb中产生
20个1-100的
随机数
,挑选其中的素数
答:
Dim a(19) As IntegerPrivate Sub Command1_Click()Print "
产生
20个
随机数
为:"Dim i As IntegerFor i = 0 To 19 a(i) = 1 + Int(Rnd * 100) Print a(i); If (i + 1) Mod 5 = 0 Then PrintNextEnd SubPrivate Sub Command2_Click()Print "其中素数为:"Dim i As Integer,...
VB编程
题,用数组实现
随机
输出
十个
小写英文字母
答:
Private Sub Command1_Click()Dim a(
10
) As String * 1 Randomize For i = 1 To 10 a(i) = Chr(Int(Rnd * 26) + 97)Next i For i = 1 To 10 Print a(i);Next i Print End Sub
棣栭〉
<涓婁竴椤
6
7
8
9
11
12
13
14
10
15
涓嬩竴椤
灏鹃〉
其他人还搜