11问答网
所有问题
当前搜索:
vb产生10到100的随机数
VB中
,Rnd[(N)]是干嘛用的?
答:
number 的值决定了Rnd
生成随机数
的方式。对最初给定的种子都会生成相同的数列,因为每一次调用Rnd 函 数都用数列中的前一个数作为下一个数的种子。在调用Rnd 之前,先使用无参数的Randomize 语句初始化随机数 生成器,该生成器具有根据系统计时器得到的种子。为了生成某个范围内
的随机
整数,可使用以下...
vb随机
函数
答:
例如:你要随即
产生10到
96之间的整数 int(rnd*87 +10)假设产生a到b之间的整数 则这个范围应该是b-a,由于rnd
随机产生的数
小于1且大于等于0,则 应该将rnd()乘以(b-a+1),则int(rnd*(b-a+1))就产生0到b-a之间的整数 再加上a以后就是a到b之间的整数,即int(rnd*(b-a+1)+a)...
请教
VB
大神 猜数游戏
答:
'两个文字列表框,一个文本框,两个按钮Dim k As BooleanPrivate Sub Command1_Click() '产生一个随机数 Text1 = "" Label1 = "" Label2 = "请在框中输入数字,按回车键猜数" k = False Do While k = False Label1 = Int(
100
* Rnd()) '
产生的随机数
到L1 DoEvents...
VB编程
题:利用
随机
子函数
产生
30个不同三位正整数
答:
'建议Form的AutoRedraw属性设为True '祝你学习愉快 Private Sub Command1_Click()Dim num(29) As Integer '定义含30个整型的一维数组 Randomize Timer '初始化随机种子 For i = 0 To 29 num(i) = Int(Rnd * 900 +
100
) '
生成随机数
Print num(i); '打印随机数 If i > 0 Then For j...
vb
题:输出任意
10
个数中负数的个数,偶数的个数,奇树的和
答:
2011-06-27 输出任意10个数中负数的个数、偶数的个数、奇书的个数 一个编... 2 2007-06-08 VB 怎样分别计算并输出正数及负数的和 2008-06-10 VB:
产生
30个1-
100
之间
的随机数
,统计并输出其中奇数和... 7 2008-12-23
VB中
怎么输出100到500的偶数 2014-12-10 VB问题。请问输出的100个数怎么用...
VB的
题目 急!!!关于
随机数
及比较大小值
答:
Private Sub Form_Click()Dim i As Integer, n As Integer, s As Integer s = 0 For i = 1 To 20 n = Int(Rnd * 81 + 20)Print n;If i Mod
10
= 0 Then Print If i = 1 Then Max = n: Min = n ElseIf n > Max Then Max = n ElseIf n < Min Then Min = n End...
vb
通过
随机
函数
产生
两个两位正整数,求这两个数之和及差并显示出来_百度...
答:
Private Sub Form_Click() '点击窗体运行Dim a As Integer, b As IntegerRandomizea = Int(Rnd * 90) +
10
Print "第1个数:"; ab = Int(Rnd * 90) + 10Print "第2个数:"; bPrint "两数之和:"; a + bPrint "两数之差:"; Abs(a - b)End Sub ...
VB
数组 满意追加
100
分
答:
添加两个command 一个label Private A(10) As Integer Private Sub Command1_Click()Dim i As Integer Text1.Text = ""Do '开始循环添加变量数组 i: '设置标签,让重复跳到这里换一个
随机数
A(i) = Int(Rnd *
100
) '开始赋予变量数组随机数 For j = 0 To i - 1 '循环检查是否重复 I...
vb
练习题
答:
A = Val (Text1 . Text ) ‘从文本框Text1接收第1个数 B = Val (Text2 . Text ) ‘从文本框Text2接收第2个数 IF A < B THEN MIN=B ELSE MIN=A END IF Text3 . Text =MIN ‘用文本框Text3输出最终结果 End Sub 2、按照从大到小的顺序输出
100
以内能被6整除的正整数 Private ...
高分求下面4道
VB
题目的解答
答:
Dim ab(10) As Integer Private Sub Command1_Click()Label1.Caption = "十个数:"Label2.Caption = "
生成数
:"Dim i As Integer For i = 0 To 9 ab(i) = i /*如果要
随机生成十
个字,请把这里的=i替换 成 int(rnd*
100
+1)*/ Label1.Caption = Label1.Caption & " " & ab(i)...
棣栭〉
<涓婁竴椤
32
33
34
35
37
38
39
40
41
涓嬩竴椤
灏鹃〉
36
其他人还搜