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.把这几句话放入数组,然后随机产生数组的下标,在对话框中显示相应数组的值.