VB程序设计-利用随机函数产生80个10～99之间的随机整数
以下是关键代码，其他的我就不打了
dim i as Integer
dim max as integer
dim min as integer
dim temp as integer
'定义变量，i为循环变量，max为最大数，min为最小数，temp为每一次生成数时使用的临时变量
temp=Int(90*rnd()+10)
max=temp
min=temp
'生成第一个数，并且第一个数既是最大数又是最小数
for i=2 to 10 step 1
temp=Int(90*rnd()+10)
if temp > max then max=temp
if temp < min then min=temp
next i
label1.caption=max
label2.caption=min
把上面的代码复制到一个button的click事件，在窗体上画两个label然后运行就可以了，label1显示最大数，label2显示最小数。
说明：由于并没有要求找出最大最小是第几个元素，所以不使用数组。
'只须在窗体内忝加一个command即可
Private Sub Command1_Click()
Cls
Dim a(1 To 20), b(1 To 19)
Randomize
Print "随机生成的这组数是："
For i = 1 To 20
a(i) = Int(Rnd * 90) + 10
Print a(i);
If i = 10 Then Print
Next
Print
Print
Print "这组数按从大到小的顺序排列每10人一行输出如下："
For i = 1 To 20
For j = i + 1 To 20
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next
Print a(i);
If i Mod 10 = 0 Then Print
Next
For i = 1 To 19
b(i) = a(i) - a(i + 1)
Next
x = b(1)
For i = 1 To 19
If x < b(i) Then x = b(i)
Next
Print
Print "相邻两个数的最大差值是：" & x
End Sub
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个随机数
Text1.Text = ""
Randomize
For I = 1 To 80
A(I) = Int(90 * Rnd) + 10
Text1.Text = Text1.Text & A(I) & " "
'每显示十个数字换行
If I Mod 10 = 0 Then Text1.Text = Text1.Text & Chr(13) & Chr(10)
Next I
'查找奇数并到新数组中
For I = 1 To 80
If A(I) Mod 2 = 1 Then
Nb = Nb + 1
ReDim Preserve B(Nb)
B(Nb) = A(I)
End If
Next I
'对奇数排序
For I = 1 To Nb - 1
For J = I + 1 To Nb
If B(I) > B(J) Then
T = B(I)
B(I) = B(J)
B(J) = T
End If
Next J
Next I
'输出奇数到文本框
Text2.Text = ""
For I = 1 To Nb
Text2.Text = Text2.Text & B(I) & " "
If I Mod 10 = 0 Then Text2.Text = Text2.Text & Chr(13) & Chr(10)
Next I
'查找输出素数
Text3.Text = ""
T = 0
For I = 1 To 80
If SuShu(A(I)) = True Then
T = T + 1
Text3.Text = Text3.Text & A(I) & " "
If T Mod 10 = 0 Then Text3.Text = Text3.Text & Chr(13) & Chr(10)
End If
Next I
End Sub
Private Function SuShu(N As Integer) As Boolean '判断某数是否素数
Dim I As Integer, P As Integer
P = Int(Sqr(N))
For I = 2 To P
If N Mod I = 0 Then Exit For
Next I
If I > P Then SuShu = True
End Function
窗体上放TEXT1,TEXT2,TEXT3,COMMAND1，文本框要设置换行和滚动条
dim a(1 to 80)
randomize
for i =1 to 80
a(i)=int(rnd*80)+10
print a(i)
next i
程序设计:编写程序,输入三个整数,利用三目运算符(条件表达式)输出最...
include <stdio.h> int main(){ int a,b,c;scanf("%d%d%d",&a,&b,&c);printf("%d\\n",a<b?(a<c?a:c):(b<c?b:c));return 0;}
vc程序设计(遗传算法)
b[i]=(4*(random(10001)\/10000.0)+1)*2.0*pi\/fxmax; c[i]=2.0*pi*(random(10001)\/10000.0...2011-01-23 求用VC++编程旋转风车的程序设计报告!! 2012-05-13 求利用遗传算法实现矩形件排样 的
急!关于VB,简单的程序设计
所以设计递归过程时,一定要考虑过程中有终止的条件和终止时的值或某种操作,而且每递归调用一次,其中的参数要向终止方向收敛,否则就会产生栈溢出。六、常用控件常见错误和难点分析1.遗漏对象名称在VB程序设计时,初学者常犯的一个错误是遗漏对象名称,特别是在使用列表框时。例如,如果要引用列表框(List1)中当前选定的...
vb程序设计题,请高手解答
为了使大量的数据在输出时看得清楚，我们在运行窗体上设置了一个文本框，并把文本框的属性MultiLine设为True，Scorllbars设为2（带竖直滚动条）。Vb程序代码如下：Private Sub Form_Click()Dim a '定义了一个可变类型的数组 a = Array(1, 3, 5, 7, 9, 11)Dim b b = Array(2, 4, 6...
利用随机模拟方法可估计某无理数m的值,为此设计如图所示的程序框图,其 ...
执行此程序框图，输出结果P是：任取（0，1）上的两个数x，y，求y＜ 1 x+1 的概率．∵x∈（0，1），y∈（0，1）对应的平面区域面积为：1×1=1，而y＜ 1 x+1 对应的平面区域的面积为： ∫ 10 1 x+1 dx =ln2，故任取（0，1）上的两个数x，y...
设计一个程序,随机产生100个同学的成绩和相应的学号存入数组,输出100个...
import java.util.Random;public class StudentX { private static int[] score = new int[100]; private static int[] no = new int[100]; public static void main(String[] args) { ReadDat(); aort_1(); print_1(); } \/\/产生随机数 public static void...
2. 利用多线程设计一个程序,一个线程输出26个小写字母,另一个线程输...
{ e.printStackTrace();} } \/\/System.out.println(name + " 线程运行结束!");} public static void main(String[] args) { RunThread a=new RunThread("小写字母");RunThread b=new RunThread("大写字母");a.onStart();b.onStart();\/\/System.out.println(" 线程运行开始!");} } ...
设计一个程序,利用指针来计算两个浮点数的最大值,并利用指针来交换这两...
){ float n,m,*a,*b; scanf("%f%f",&n,&m); a=&n; b=&m; printf("max:%f\\n", (*a>*b)?*a:*b); swapf(a,b); printf("swapped:%f,%f\\n",*a,*b); return 0; } 程序及运行红果如图。其中，3.6，5.2是输入的两个浮点数 ...
程序设计中的指令是什么?有哪几种?
在CGI程序设计中常常会打开一个文件来读取数据,所以笔者会详加说明这一个函数的相关用法。这个Filehandle可把它看作在I(Inpnt)\/O(Output)间的一个桥梁,可以利用Filehandle来作出数据读入写出的动作。开始可用open这个函数来打开一个指定的文件,接下来可以使用<Filehandle>来读取所打开文件的数据内容,最后一定要用...
谁有matlab程序设计与应用(第二版)刘卫国主编的课后实验一到实验十五的...
B=sqrtm(A)C=sqrt(A) %sqrtm函数是以矩阵为单位进行计算,sqrt函数是以矩阵中的元素进行计算%实验三 选择程序结构设计%第一题程序一x=[-5.0,-3.0,...%程序二:利用绘图功能%分别绘制两个小孩所产生力矩随α变化的曲线,两曲线的交点即是跷跷板平衡时的αalpha=linspace(0,pi\/2,80000);m1=500*1.5*cos(...
尧枝咖啡： dim i,a,n as integer for i=1 to 80 n=n+1 a=int(rnd*90+10) randomize print a; '这里加分号才可以在一行输出10个数的 next i if n mod 10 =0 then print '这是换行的代码
琅琊区15583305029： vb利用rnd函数产生30到80的随机整数 - ？
尧枝咖啡： 包含copy30和80:2113 x = Int(Rnd * 51) + 30 不包5261含410230和80:x = Int(Rnd * 49) + 31 包含30,但1653不包含80:x = Int(Rnd * 50) + 30 包含80,但不包含30:x = Int(Rnd * 50) + 31
琅琊区15583305029： vb编写一个程序,利用随机函数生成15个80~99之间的随机整数,输出其中的最大值与最小值 - ？
尧枝咖啡： private sub command1_click() for i=1 to 15 randomize a=int(Rnd*20)+80 if i=1 then max=a:min=a if max<a then max=a if min>a then min=a print a; if i=7 or i=15 then print next print ＂最大值:＂; max print ＂最小值:＂; min end sub
琅琊区15583305029： vb问题利用随机函数产生80个10~99之间的随机整数, - ？
尧枝咖啡： 我已经上机验证过了,正确. 思路: 产生80个随机数,把这80个随机数由小到大排序,然后从第1个到第80个的顺序挑选偶数,赋值给字符串s1,够10个换行 .再从第80个到第1个的顺序挑选奇数,赋值给字符串s2,同上.有一点很重要:...
琅琊区15583305029： vb随机数问题？
尧枝咖啡： Private Sub Command1_Click()Dim i, j, s, nb, nc, nd, nn, a(80), b(80), c(80), d(8) As IntegerFor i = 1 To 80 a(i) = 99 - Int(Rnd * (99 - 10))NextPrint ＂随机产生的80个10~99之间的整数:＂For i = 1 To 80 Step 10 For j = 0 To 9 If i + j > 80 Then Exit ...
琅琊区15583305029： 在vb中,利用随机函数产生10个30 - 80之间的正整数,求所有奇数之和 - ？
尧枝咖啡： private sub command1_click() dim i, j, s, nb, nc, a(80), b(80), c(80) as integer for i = 1 to 80 a(i) = 99 - int(rnd * (99 - 10)) next print ＂随机产生的80个10~99之间的整数:＂ for i = 1 to 80 step 10 for j = 0 to 9 if i + j > 80 then exit for print a(i + j), next ...
琅琊区15583305029： VB利用随机函数产生80个10~99之间的随机整数,将其中的奇数按由小到大的顺序排列并输出;在产生的80个随机整数中,找出其中的素数.？
尧枝咖啡： 愁 你们咋么都问这个问题.?去看看 http://wenwen.soso.com/z/q194985481.htm Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer, m As Integer Dim a(1 To 80) As Integer, b(1 To 80) As Integer, c(1 To 80) As Integer Dim ...
琅琊区15583305029： 程序设计(VB)实验？
尧枝咖啡： Option Explicit Function Prime(N As Integer) As Boolean Dim I As Integer If N < 2 Then Prime = False: Exit Function For I = 2 To N - 1 If N Mod I = 0 Then Prime = False: Exit Function Next Prime = True End Function Private Sub Form_Load() Dim X...
琅琊区15583305029： vb如何运用随机数 - ？
尧枝咖啡： 1.int(rnd()*80)+202.把这几句话放入数组,然后随机产生数组的下标,在对话框中显示相应数组的值.
