88问答网
所有问题
当前搜索:
vb产生n个随机数
vb中产生随机数
15个,并且求出最大数最小数还有平均值。
答:
Option Base 1 '数组下标从1开始Dim i As Integer '存放循环的次数Dim data(15) As Single '存放数值的数组Dim z As Integer '存放正
数个
数Dim f As Integer '存放负数个数Dim l As Integer '存放0的
个数
Private Sub Command1_Click()For i = 1 To 15 '用For循环来...
VB中
多次
生成
随即数的话,randomize写在什么位置呢
答:
语法 Randomize [number]可选的 number 参数是 Variant 或任何有效的数值表达式。说明 Randomize 用 number 将 Rnd 函数的
随机数生成
器初始化,该随机数生成器给 number 一个新的种子值。如果省略 number,则用系统计时器返回的值作为新的种子值。如果没有使用 Randomize,则(无参数的)Rnd 函数使用第...
VB编程
中,从1-100中
随机产生
一
个随机数
并判断它的奇偶性。跪求各位大...
答:
Dim s As Integer = Int(Rnd() * (100 + 1)) If s Mod 2 Then MsgBox("奇数: <" & s.ToString & ">") Else MsgBox("偶数: <" & s.ToString & ">") End If
vb中
,怎样在标签上
产生
10
个随机数
答:
dim i as integer for i=1 to 10 label1.caption=label1.caption & str(int(rnd*100))next
VB中随机
函数的公式是什么
答:
说明 Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd
生成随机数
的方式。对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在调用 Rnd 之前,先使用无参数的 Randomize语句初始化
随机数生成
器(若带参数,则
产生
由参数对应的...
VB
~单击
产生随机数
命令按钮,产生10个两位正整数,并显示到窗体上_百度...
答:
Private Sub Command1_Click()Dim i As Integer For i = 1 To 10 Print Int(Rnd() * 90) + 10;Next i Print End Sub Private Sub Form_Load()Command1.Caption = "
产生随机数
"End Sub
计算机
VB中
,利用随机函数
产生
10个10-100的
随机数
,并将其赋值给数组a...
答:
Private Sub Command1_Click() Dim a(10) As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd() * 91) + 10 Print a(i); s = s + a(i) Next i Print Print "平均值="; s / 10End Sub
VB
:
产生
30个1-100之间的
随机数
,统计并输出其中奇数和偶数的
个
数
答:
Private Sub Form_Click()Dim a(30) As Integer Dim i As Integer Randomize For i = 1 To 30 a(i) = Int(100 * Rnd)Next i For i = 1 To 30 If a(i) Mod 2 = 0 Then Text1 = Val(Text1) + 1 Text4 = Text4 & a(i) & vbCrLf Else Text2 = Text2 & a(i) & ...
vb随机生成
10
个数
并显示在一个文本框中, 并找出最大数,指出它的位置
答:
添加一个text1,输入以下代码,然后运行。单击窗体,十
个随机数
显示在text1中,弹出对话框,提示第
几个
为最大数,并将最大数选中。Private Sub form_Click()Dim a(1 To 10) As Integer, i As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Text1.Text = Text1....
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 ...
棣栭〉
<涓婁竴椤
5
6
7
8
10
11
12
9
13
14
涓嬩竴椤
灏鹃〉
其他人还搜