在随机函数时,rand()%100/10+10 它的随机取值范围是多少?

Dim k%
Dim a%(1 To 10)
Private Sub Command1_Click()
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 100 + 1)
Next
Print "a数组:"
k = 1
For i = 1 To 10
Print a(i)
If a(i) > a(k) Then
k = i
End If
Next i
MsgBox "最大数： " & a(k) & "为数组中第: " & k & " 个数"
End Su

s=0
p=50
q=100
For i = 1 To 20
a=Int(Rnd*51+50)
Print a;
if a>=p then
p=a
end if
if a

Private Sub Form_click()
Dim n(1 To 20) As Integer
Dim i,j,ave,temp
Randomize
For i = 1 To 20
n(i) = Int((51 * Rnd) + 50)
Print n(i)
Next i
For j = 1 To 19
For i = j + 1 To 20
If n(i) >= n(j) Then
temp = n(i)
n(i) = n(j)
n(j) = temp
End If
Next
Next
ave = 0
For i = 1 To 20
ave = ave + n(i)
Next
ave = ave / 20
Print "最大值为："; n(1)
Print "最小值为："; n(20)
Print "平均值为："; ave
End Su

楼上好像没有看清楚题目,下面是我写的：
#include
#include
using namespace std;
int main()
{
int a[10];
int i;
srand(time(0));
for(i=0;i

您好，这样的：
a = round(100*rand(4,4)); %生成0-100的随机4*4矩阵
a(1,:) %输出第一行
...
a(:,1) %输出第一列
...
sum([a(1,:) a(2,1) a(2,4) a(3,1) a(3,4) a(4,:)]) %求最外圈元素的和。

1)如果是要整数,那么=int(RAND()*101-50)
2)如果不限定是整数：那么=RAND()*100-50

创建的控制台项目。你把代码复制到主函数里。Random r = new Random();int num = r.Next(1, 10...

P(x)=2/π*(e^x/(1+e^(2x))]
P(Y=1)=P(X>=0)=∫(0,+∞)2/π*(e^x/(1+e^(2x))]dx=2/π*arctane^x|(0,+∞)
=2/π(π/2-π/4)=1/2
P(Y=-1)=P(X>=0)=∫(-∞,0)2/π*(e^x/(1+e^(2x))]dx=2/π*arctane^x|(-∞,0)
=2/π(π/4-0)=1/2

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbcccccccccccccccccccccccccccccccccccccc

/* 75 91 61 67 92 75 83 78 84 96 84 87 98 95 71 78 75 94 76 74 97 70 70 76 97
75 75 84 78 97 91 83 87 75 70 61 78 98 94 70 67 84 95 76 76 92 96 71 74 97
Press any key to continue*/#include
#include
#include

#define M 5
#define N 5

int Transpose_Matrix(int a[][N],int m) {
int i,j,t;
if(m - N) return 0;
for(i = 0; i < m; ++i) {
for(j = i + 1; j < N; ++j) {
t = a[i][j];
a[i][j] = a[j][i];
a[j][i] = t;
}
}
return 1;
}


void Show(int a[][N], int m) {
int i,j;
for(i = 0; i < m; ++i) {
for(j = 0; j < N; ++j)
printf("%5d",a[i][j]);
printf("n");
}
printf("n");
}

int main() {
int a[M][N],i,j,res;
srand((unsigned)time(NULL));
for(i = 0; i < M; ++i)
for(j = 0; j < N; ++j)
a[i][j] = rand() % 40 + 61;
Show(a,M);
res = Transpose_Matrix(a,M);
if(res == 0) printf("方阵才可以转置。n");
else Show(a,M);
return 0;
}

Option Explicit
Private Sub Command1_Click()
Dim A(80) As Integer, B() As Integer, Nb As Integer
Dim I As Integer, J As Integer, T As Integer

'随机生成80个随机数
T...

很少有设备拥有随机电路,除非安全性要求很高,大部分随机发生函数采用线性同余产生0到p-1之间的均匀分布,通常用
随机种子s=(a*s+b) mod p进行迭代,函数输出为s^c mod p,其中a,b,c互质,p为质数,s由系统时间等方式初始化；由输出猜测随机种子是一个离散对数方程,很难解,因此安全性较好.
我只知道c是以秒为单位读取计算机内部时间 然后用srand()函数生成种子,在此种子下产生伪随机数,也就是只要种子不同,所产生的数据就不同,以此达到产生随机数的目的

Dim a%(1 To 6, 1 To 6), b%(1 To 6, 1 To 6)Private Sub Command1_Click()For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 90 + 10)
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
For i = 1 To 5
For j = 1 To 5
b(i, j) = Int(Rnd * 90 + 10)
Picture2.Print b(i, j);
Next j
Picture2.Print
Next i
End SubPrivate Sub Command2_Click()
Picture3.Cls
Dim c%(1 To 5, 1 To 5), m%, n%, s%
For i = 1 To 5
For j = 1 To 5
c(i, j) = a(i, j) + b(i, j)
If c(i, j) > s Then s = c(i, j): m = i: n = j
Picture3.Print c(i, j);
Next j
Picture3.Print
Next i
Picture3.Print "矩阵C中最大值为" & s & "下标为" & m & "," & n
End SubPrivate Sub Command3_Click()
Dim k%, l%
Picture3.Cls
Picture3.Print "矩阵A左上右下对角元素："
For i = 1 To 5
Picture3.Print Tab(4 * (i - 1)); a(i, i)
k = k + a(i, i)
Next i
Picture3.Print "元素之和=" & k
Picture3.Print
Picture3.Print "矩阵A右上左下对角元素："
For i = 1 To 5
Picture3.Print Tab(4 * (5 - i)); a(i, 6 - i)
l = l + a(i, 6 - i)
Next i
Picture3.Print "元素之和=" & l
End SubPrivate Sub Command4_Click()
Dim d%(1 To 25)
Picture3.Cls
For i = 1 To 5
For j = 1 To 5
d(5 * (i - 1) + j) = a(j, i)
Next j
Next i
For i = 1 To 25
Picture3.Print d(i)
Next i
End Sub

Line(1000,1000)-Step(2000,1500),vbRed,BF
画一条直线,前面括号里为起点坐标,后面括号里为终点点坐标,vbRed直线的颜色,BF表示画矩形.
For I=0 TO 10
A(I)=fix(rnd*400)+100
Next

所要求的程序如下：请采纳：Private Sub Command1_Click()s = 0RandomizePrint "25个数是："For i = 1 To 25 x = Int(90 * Rnd) + 10 Print x; If i Mod 10 = 0 Then Print s = s + xNext iPrintPrint "平均数="; Format(s / 25, "0.000")End Sub

int a[] = {2,5,22,666,33,234,6,7,88,55};
int c;
// for (int i=0;i

是2个硬币一起投是一次吗?那“两个正面”,“两个反面”各是25次,”,“一正一反”50次.随机函数模拟投币的话结果大致上就是这个结果.

Private Sub Command1_Click()
Dim i, sum1, sum2, n
List1.Clear
For i = 1 To 20
Randomize
n = Int(Rnd * 801) + 100
If n Mod 5 = 0 Then
List1.AddItem n
If n Mod 2 = 0 Then sum1 = sum1 + n Else sum2 = sum2 + 1
Else
i = i - 1
End If
Next
MsgBox "偶数之和：" & sum1 & vbNewLine & "奇数个数：" & sum2
End Su

由二项分布的期望和方差的公式E(X)=np,D(X)=np(1-p),且E(2X-1)=2E(X)-1=3得E(X)=2=10p,所以p=0.2,从而D(X)=np(1-p)=1.6

Private Sub Form_load()
Dim a(99), b(9), i As Integer
Randomize
For i = 0 To 99
a(i) = Int(Rnd * 100)
b(a(i) Mod 10) = b(a(i) Mod 10) + 1
Next
For i = 0 To 9
Print "个位数上数字为" & i & "的元素个数=" & b(i)
Next
End Su

Private Sub Command1_Click()
Dim a(29) As Integer,tmp As Integer
Dim i As Integer,j As Integer
Randomize Time
For i = 0 To 29
a(i) = Int(Rnd * 71) + 30
Next
For i = 0 To 29
For j = i To 29
If a(i) > a(j) Then
tmp = a(i)
a(i) = a(j)
a(j) = tmp
End If
Next
Next
For i = 0 To 29
Print a(i);
If i = 14 Then Print
Next
End Su

#include
#include
#include

/* rand(0, 1) */
int rand1(){
return rand()%2;
}

/* rand(0, 2) */
int rand2(){
int r;
do{
r = 2*rand1() + rand1();
}while(r >= 3);
return r;
}

int main(){
int i, A[3] = {0, 0, 0};

srand((unsigned)time(NULL));
for(i=0; i<10000; i++)
A[rand2()]++;
printf("%g %g %g", A[0]/10000., A[1]/10000., A[2]/10000.);
}参考自：
"http://stackoverflow.com/questions/137783/expand-a-random-range-from-15-to-17"

declare @count int=0
declare @numbers varchar(max)=''
while(@count

dim a,max,min,sum,average
sum=0
max=20
min=50
for i=1 to 20
a=(Rnd * 50) + 50
sum=sum+a
if amax then max=a
print a
next
print max
print min
average=sum/20
print average

#include
#include
#include
int main()
{
int i,a[10],m,t=0,s=0;
float n;
srand((unsigned)time( NULL ) );
for(i=0;i

把10个数分别减去平均值再用比较法得出差最小的那个就是最接近平均值的那个数了

Option ExplicitFunction getRandom(total As Integer, max As Integer, num As Integer) As Boolean 'total是最后要得到的总和,max是最大不能超过的数,num是产生多少个随机数 Dim ranNum As Single '随机...

将问题补充完全
Dim ab(10) As Integer
Dim i As Integer
For i = 1 To 1
ab(i) = Int(Rnd() * 100) + 1
Next
print "原数组值"
for i=1 to 10
print ab(i),
next i
for i=1 to 5
ab(i)=ab(11-i)
next i
print "逆 置后的数组值"
for i=1 to 10
print ab(i),
next

Private Sub Form_Click()
Randomize Timer
Dim a(1,1)
For i=1 To 100
n1=Int(Rnd*2)
n1=Int(Rnd*2)
a(n1,n2)=a(n1,n2)+1
Next i
Print "投币结果如下："
Print " 两个正面的次数为："; a(0,0)
Print "两个反面的次数为:"; a(1,l)
Print "一正一反的次数为:"; a(0,1) + a(1,0)
End Sub
“两个正面”,“两个反面”各是25次,”,“一正一反”50次

#include
#include
#include
using namespace std;
int main()
{
int a[20];
int SelectRand,i=0;
srand(time(NULL));

do
{
SelectRand=rand()/500;
a[i]=SelectRand;
i++;
}while(i

import java.util.ArrayList;
import java.util.List;
import java.util.Random;
public class Matrix {
private int i;
private int j;
private List rows;
public Matrix(int i,int j){
this.i = i;
this.j = j;
rows = new ArrayList();
for(int r = 0; r < i; r++){
List tempList = new ArrayList();
for(int c = 0; c < j; c++){
int temp = new Random().nextInt(100);
tempList.add(temp);
}
this.rows.add(tempList);
}
}
public void show(){
for(int r = 0; r < i; r++){
List row = (List)rows.get(r);
System.out.print('[');
int c = 0;
for(;c < j - 1; c++){
System.out.print( row.get(c) + "t");
}
System.out.println(row.get(c) + "]");
}
}
public int diagonal(){
if(i == j){
int result = 0;
for(int r = 0; r < i; r++){
result += rows.get(r).get(r);
}
return result;
}else{
return -1;
}
}
public int getMin(int rr){
int r = rr - 1;
List row = rows.get(r);
int min = row.get(0);
for(int c = 0; c < j; c++){
if(row.get(c) < min){
min = row.get(c);
}
}
return min;
}
public String getPos(int rr){
int r = rr - 1;
return "" + rr + "," + (rows.get(r).indexOf(getMin(rr)) + 1);
}
}
public class Test {
/**
* @param args
*/
public static void main(String[] args) {
Matrix m = new Matrix(5,7);//5行7列
m.show();//显示矩阵
System.out.println(m.getMin(1));//第1行最小值
System.out.println(m.getPos(1));//第一行最小值位置
}
}
[55 60 63 15 74 56 50]
[6 56 69 64 46 28 71]
[92 43 83 25 79 82 8]
[60 62 24 87 46 98 16]
[84 44 38 95 15 23 78]
15
1,4

若要生成 a 与 b 之间的随机实数,请使用：
RAND()*(b-a)+a
两位的随机正整数的话,a=10,b=99

因为归一性,在x,y取值范围内的积分(或者级数)必为1,因此无穷大的时候分布函数必须趋于0,不然积分(或者级数)不会收敛

dim a(99) as integer
dim i as integer
dim sums(9) as integer
dim index as integer
Randomize
for i=0 to 99
a(i)=int(100*rnd)
index=a(i) mod 10
sums(index)=sums(index) +1
next i
for i =0 to 9
print i "的个数是：" sums(i)
next

Private Sub Command1_Click()
Dim I As Integer,N As Integer,Max As Integer,Min As Integer
Min = 100
Randomize
For I = 1 To 20
N = Int(51 * Rnd) + 50
If N > Max Then Max = N
If N < Min Then Min = N
Next I
Print "最大值："; Max
Print "最小值："; Min
End Su

第一题：
Option base 1
Private Sub Form_Click()
Dim a(4,5) as integer ,i as integer ,j as integer ,s as integer
dim a_ave as single
randomize
for i=1 to 4
for j =1 to 5
a(i,j)=int(91*rnd+10)
print Format(a(i,j),"@@@@@@");
next j
print
next i
s=a(1,1)
For i=1 to 4
For j =1 to 5
if a (i,j)

(1)(2)如图所示，望采纳。。。。

解题思路：根据已知中CONRND（-1，1）是产生均匀随机数的函数，它能随机产生区间（-1，1）内的任何一个实数，及已知中的程序框图，我们可分析出程序的功能是利用随机模拟实验的方法求任取（-1，1）上的两个数x，y，求x²+y²＞1的数对（x，y）的个数，分别计算出满足x∈（-1，1），y∈（-1，1）和x²+y²≤1对应的平面区域的面积，代入几何概型公式，即可得到答案．

根据已知中的流程图我们可以得到
该程序的功能是利用随机模拟实验的方法求任取（-1，1）上的两个数A，B，求x²+y²＞1的数对（x，y）的个数，
∵x∈（-1，1），y∈（-1，1）对应的平面区域面积为：2×2=4
而x²+y²≤1对应的平面区域的面积为：π
故 [π/4]=[300−63/300]，
∴π≈[79/25]=3.16．
故答案为：3.16．

点评：
本题考点： 程序框图．

考点点评： 本题考查的知识点是程序框图，其中根据已知中的程序流程图分析出程序的功能，并将问题转化为几何概型问题是解答本题的关键．

int(a)是返回一个小于或等于a的整数.
rnd*90也就是产生0-90之间的数,不包括0和99.
rnd*90+10是产生10-100之间的数,不包括10和100.
int(rnd*90)是产生0-89之间的数,包括0和89.后面再加上10也就是10-99
int(rnd*90+10)也就是产生10-99之间的数,包括10和99.
所以效果是一样的

随机生成7.8.0的数
=round(rand()+7,n) 其中n表示小数位数,需要几位填几
如为1位小数=round(rand()+7,1)

=round(rand()*2+9,1)

RAND
返回大于等于 0 及小于 1 的均匀分布随机数,每次计算工作表时都将返回一个新的数值.
语法：
RAND( )
说明：
若要生成 a 与 b 之间的随机实数,请使用： RAND()*(b-a)+a
=RAND()*(-0.1-0.1)+0.1
这个式子中：
1、“=”是EXCEL进行计算的标志,即：等号后面的内容是一个计算式子；
2、RAND()是产生系统随机数的函数,如上所述；
3、(-0.1-0.1)+0.1就是“(b-a)+a”,即：a= + 0.1,b= - 0.1；
4、RAND()*(-0.1-0.1)+0.1的计算式子是产生数值从- 0.1到+ 0.1之间的随机数；

Private Sub Command1_Click()
Dim a(100) As Integer,x As Integer
For i = 1 To 100
If sushu(i) Then Print i;
If i Mod 10 = 0 Then Print
Next i
Print
Print "100个随机数:"
For i = 1 To 100
x = Int(Rnd() * 90 + 10)
Print x;
a(x) = a(x) + 1
If i Mod 10 = 0 Then Print
Next i
Print
Print "从小到大的奇数:"
k = 0
For i = 1 To 100
If i Mod 2 = 1 And a(i) > 0 Then
For j = 1 To a(i)
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
Next j
End If
Next i
Print
Print "其中的素数有:"
k = 0
For i = 1 To 100
If a(i) > 0 And sushu(i) Then
For j = 1 To a(i)
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
Next j
End If
Next i
End Sub
Function sushu(ByVal n As Integer) As Boolean
sushu = False
If n

题目表达清楚

要点时间，我这电脑没装VB，第4题简单些
dim e as simple
e=1
for i= 1 to 10
dim x as intiger
x=1
for j=1 to i
x=x*i
next j
e=e+1/x
next i
print e

Function of random number creation.
Function of getting the current frame.
Method
The usage of hit test
Make a cycling background
one object pass through the stage repeatedly.