1.编写程序，随机产生两个2位数，然后显示这两个数及其最小数。 2.编写程序，随机产生4个3位数
1.编写程序，随机产生两个2位数，然后显示这两个数及其最小数。
2.编写程序，随机产生4个3位数，然后显示这4个数及其最大数。
这三个代码错在哪？为什么用IE打开后啥都没有？
求详细解答
使用随机数函数 Randomize或者Rnd 实现
源代码如下：
Dim min,n1,n2 //定义两个变量为
Randomize n1 = Int(90 * Rnd+10)
n2 = Int(90 * Rnd+10)
if n1 > n2 then
min = n2
else
min = n1
end if
msgbox "第一个数是：" & n1 & " 第二个数是：" & n2 & " 最小的数是：" & min
运行代码效果如下：
实现随机产生四个三位数如上代码，只需要再定义两个变量n3，n4。
源代码如下
Dim max,n1,n2,n3,n4,arr
Randomize
n1 = Int(900 * Rnd+100)
n2 = Int(900 * Rnd+100)
n3 = Int(900 * Rnd+100)
n4 = Int(900 * Rnd+100)
arr = Array(n1,n2,n3,n4)
max = n1
for each x in arr
if max < x then max = x
next
msgbox"n1:" & n1 & " n2:" & n2 & " n3:" & n3 & " n4:" & n4 & " 最大的数是：" & max
效果如下：
扩展资料：
rand函数的由来
srand((unsigned)time(NULL))则使用系统定时/计数器的值作为随机种子。每个种子对应一组根据算法预先生成的随机数，所以，在相同的平台环境下，不同时间产生的随机数会是不同的，相应的，若将srand（unsigned）time(NULL)改为srand(TP)（TP为任一常量），则无论何时运行、运行多少次得到的“随机数”都会是一组固定的序列，因此srand生成的随机数是伪随机数。
参考资料来源：百度百科-rand函数
你好
很高兴为你解答
答案是：
确信你是用IE浏览器打开你设计的html页面，别的浏览器大都不支持VBScript
当IE浏览器提示要运行脚本时，你选择了允许
如果不是这些问题，请上传html文件，帮你验证。
满意请采纳，谢谢!
追问试过了 没有用
追答你把代码贴上来，不要用图
追问
V1
dim a (2)
dim i,n,min
randomize
for i = 1 to 2
a (i) = Int (Rnd * 90 + 10)
document.write(a (i)&"")
next
min = a (1)
for i = 1 To 2
if a (i)
next
document.write("最小的数是:" & min & n)
V2
dim a (4)
dim i,n,max
randomize
for i = 1 to 4
a(i) = Int (Rnd * 999 + 100)
document.write(a(i)&"")
next
min = a (1)
for i = 2 to 4
if a (i) > max then max = a(i) : n = i
next
document.write ("最大的数是:" & max & n)
好运行的，亲
注意，用IE打开时会弹出：
选允许
如果没有弹出这个，请设置IE选项为，默认级别
1.编写程序,随机产生两个2位数,然后显示这两个数及其最小数。 2...
min = n2 else min = n1 end if msgbox "第一个数是：" & n1 & " 第二个数是：" & n2 & " 最小的数是：" & min 运行代码效果如下：实现随机产生四个三位数如上代码，只需要再定义两个变量n3，n4。源代码如下 Dim max,n1,n2,n3,n4,arr Randomize n1 = Int(900 * Rnd+100)n2 ...
...程序编写一个循环五次的小游戏,每次随机产生两个数字让用户计算这两...
如果这是VB的程序，那么可以用如下的得到两个1~10的整数：x=Int(Rnd*10)+1。y=Int(Rnd*10)+1。再加上循环for i=1 to 5可以。include <stdio.h>。include <stdlib.h> bai\/* 随机库函数 *\/。include \/* 时间库函数 *\/。int count=0, ok=0; \/* count表示回答次数, ok表示回答正确...
Matlab中产生两个两位随机整数怎么写?
clear;clc;a=num2str(floor(rand(1)*90+10));b=num2str(floor(rand(1)*90+10));op=input('input the operator','s');disp([a op b '=' num2str(eval([a op b]))])如果您觉得回答有用，请给于好评，谢谢
VB 随机产生2个2位数 然后加减。。
'用到的控件 label1,label2,label3,text1,command1,commadn2 '加好控件后把下面代码复制到窗体里去.Dim a, b, c, d As Integer Private Sub Command1_Click()Open App.Path & "\\结果.txt" For Append As #1 Print #1, "---"Print #1, Label1.Caption & Text1 Close #1 '---判断...
三.编写程序,随机产生10个两位整数,求出其中最小的数分析:可以采用打擂 ...
\/\/[2]采用循环语句生成10个随机的两位整数，并在每次循环中将当前值与min_num比较。\/\/[3]如果当前值小于min_num，则更新min_num的值为当前值。\/\/[4]在循环结束后，min_num的值即为这10个随机数中的最小值。include <iostream> include <cstdlib> \/\/ 包含rand()和srand()函数 include <cti...
编写程序,使用函数random模块中的randint(a,b)函数产生两个整数,并求...
import random 使用 randint 函数产生两个整数 x = random.randint(a, b)y = random.randint(a, b)求和 sum = x + y print("x:", x)print("y:", y)print("sum:", sum)在这段代码中，a 和 b 是你希望产生的整数的范围。randint 函数会在这个范围内随机产生一个整数。然后，我们将...
编写一个猜数的游戏程序。(数字由机器随机产生,限制为1~100之间的整数...
static void Main(string[] args){ string i = null;do { Console.Write("请输入一个整数（范围为1~100）\\n如果要退出，请输入0！否则输入1！");i = Console.ReadLine();if (i.Trim().Equals("0")){ return;} } while (!i.Trim().Equals("1"));start:Random ra = new Random()...
编写程序,产生0~100之间的随机整数RND1和RND2,求这两个整数的最大公约...
int gcd(int a,int b){ if(a%b)return gcd(b,a%b);return b;} int lcm(int a,int b){ return a\/gcd(a,b)*b;} int main(){ int a,b;srand(time(NULL));a=rand()%100+1;b=rand()%100+1;printf("%d %d %d %d\\n",a,b,gcd(a,b),lcm(a,b));return 0;} ...
vba编程:随机产生10个2位数整数,并求出其中的偶数个数,用消息框显示
Next b = MsgBox("产生的这10个随机数是:" & X(1) & "," & X(2) & "," & X(3) & "," & X(4) & "," & X(5) & "," & X(6) & "," & X(7) & "," & X(8) & "," & X(9) & "," & X(10) & "." & "其中偶数有" & A & "个.要写入当前工作...
用python随机产生20个50以内的整数。显示其中的偶数,并把最大值放最后...
按照你的要求编写的程序如下(见图)
