VB实验80个随机数

《VB实验80个随机数》由会员分享，可在线阅读，更多相关《VB实验80个随机数（9页珍藏版）》请在装配图网上搜索。

1、内蒙古工业大学信息工程学院实验报告课程名称： 高级语言程序设计（VB）I实验名称:选择、循环、数组和过程综合程序设计 实验类型：验证性口综合性M 设计性口 实验室名称：校计算中心班级： : 姓名： 成绩：实验日期：实验报告撰写要求一、实验前用预习报告纸撰写预习报告，预习报告包括以下内容1 实验目的2实验用仪器设备、器材或软件环境3实验原理、方案设计、程序框图、预编程序等4实验过程中需要记录的实验数据表格二、实验过程中，要认真观察，仔细记录三、完成实验后用实验报告纸撰写实验报告，包括以下内容1仪器设备型号及编号2实验器材或软件环境3实验步骤、程序调试方法4实验数据处理及结果分析5 实验中存在的问

2、题6体会及思考题四、报告撰写时，要求格式规范、书写整齐预习报告成绩：指导教师审核（签名）： 年 月 日预习报告实验一 选择、循环和数组综合程序设计一）实验目的 学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。（二）实验内容利用随机函数产生80个1099之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇 数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。（三）实验要求1将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。 2偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。3.用Sub子过程

3、或Function函数过程判断随机整数是否为素数。 4将素数按每行10个数在窗体或文本框中输出。5. 将素数的个数及求和结果输出到窗体或文本框中。6. 界面由学生自行设计。创立界面，4 个标签，5 个文本框，3 个命令按钮。控件名称属性属性值FormlcaptionFormlLabellcaption偶数从小到大Label2caption奇数从大到小Label3caption素数Label4caption素数之和TextltextText2textText3textT e x 14TextTex t 5Tex tCommandlcaption随机80个数，分出偶数奇数Command2capti

4、on找出素数，并求素数之和Command3caption谢谢观赏|_冠 For*l阳机帥亍数.分出偶数奇數找出素数.并菠秦数之和偶数从小到大二二；m 二二二；奇数从大到小二二二二二二二二代码Dim a(1 To 80) As Integer, b(1 To 80) As Integer, c(1 To 80) As Integer Private Sub Command1_Click()RandomizeFor i = 1 To 80a(i) = Int(90 * Rnd + 10)Text1.Text = Text1.Text + Str(a(i)If i Mod 10 = 0 ThenTe

5、xt1.Text = Text1.Text + (Chr(13) + Chr(10)End IfIf a(i) Mod 2 = 0 ThenText2.Text = Text2.Text + Str(a(i)k=k+1b(k) = a(i)End IfIf a(i) Mod 2 0 ThenText3.Text = Text3.Text + Str(a(i) s=s+1c (s) = a (i)E n d I fN e xt iP rin t 偶 数 个 数 :; kP rin t 奇 数 个 数 :; sE nd S ubP riv a te Sub Com ma nd 2 _Cl i ck

6、( )F or i = 1 To k - 1F or j = i + 1 T o kI f b( i) b( j ) T h ent = b( i) : b( i ) = b(j ): b ( j) = tE nd I fN ext jN e xt iF or i = 1 To kTe xt2. Tex t = Te xt 2. Te x t + Str (a(i )If i M od 10 = 0 T h enTe x t2. T ex t = T ext 2. Te xt + (Ch r(13 ) + Chr ( 10 ) En d IfNe xt iE nd S ubP riv a te

7、 Sub Com ma nd 3 _Cl i ck( )F or i = 1 To s - 1F or j = 1 To sIf c( i) c(j ) Th e nt = c(i): c(i) = c(j): c(j) = t En d IfN ext jN e xt iF or i = 1 To sT e x t 3. T e x t = T e x t 3. T e x t + S t r ( a ( i ) )I f iMod 1 0 = 0 T henT e x t 3. T e x t = T e x t 3. T e x t + ( C h r ( 1 3 ) + C h r (

8、 1 0 ) )EndIfNextiEndSubPrivateSubCommand4_Click()Fori=1 T o 80F or m = 2 To i - 1 I f i M od m 0 T henT e x t 4. T e x t = T e x t 4. T e x t + S t r ( a ( i ) ) E nd IfN ext mN e xt iP rin t nE nd S ub实验报告成绩：指导教师审核（签名）： 年 月 日实验报告实验一 选择、循环和数组综合程序设计一）实验目的 学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。（二）实验内容利用随机函数

9、产生80个1099之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇 数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。（三）实验要求1将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。 2偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。3. 用Sub子过程或Function函数过程判断随机整数是否为素数。 4将素数按每行10个数在窗体或文本框中输出。5. 将素数的个数及求和结果输出到窗体或文本框中。6. 界面由学生自行设计。创立界面，4 个标签，5 个文本框，3 个命令按钮。控件名称属性属性值Fo

10、rmlcaptionFormlLabellcaption偶数从小到大Label2caption奇数从大到小Label3caption素数Label4caption素数之和TextltextText2textText3textT e x 14Tex tT e x t 5TextCommandlcaption随机80个数，分出偶数奇数Command2caption找出素数，并求素数之和Command3capt ion谢谢观赏代码Dim a(1 To 80) As Integer, b(1 To 80) As Integer, c(1 To 80) As Integer, d(1 To 80) As

11、 IntegerPrivate Sub Form_Load()ShowRandomizeFor i = 1 To 80a(i) = Int(90 * Rnd + 10)N e xt iE nd S ubPrivate Sub Command1_ Click()x = 0 : y = 0F or i = 1 To 80T e x t 1. T e x t = T e x t 1. T e x t + S t r ( a ( i ) )I f i Mod 10 = 0 T he nT e x t 1. T e x t = T e x t 1. T e x t + ( C h r ( 1 3 ) +

12、 C h r ( 1 0 ) ) E n d I fI f a ( i) Mod 2 = 0 T h en x=x+1 b (x) = a (i)E n d I fI f a ( i) Mod 2 0 T hen y=y+1 c (y) = a (i)E n d I fN e xt iP rin t 偶 数 个 数 :; xP rin t 奇 数 个 数 :; yForp = 1 ToxF or q =1 T o xI f b(p) b (q) The ns = b(p): b(p)= b( q): b(q ) = sEndIfN ext qNextpFori = 1 ToxTe xt2. T

13、ex t= Te xt 2. Te x t +Str(b(i)I f i Mod 10 = 0 T h e nEndTe x t2. T ex tIf= T e x t 2. T e x t+ (Ch r(13 ) + Chr ( 10 )Ne xt iF or j = 1Toy-1F or h=j+ 1 T oyIfc( j) c(h ) Th e nt=c( j): c(j ) = c(h) : c ( h) = tEndIfN ext hN e xt jF or i = 1 To yT e x t 3. T e x t = T e x t 3. T e x t + S t r ( c (

14、 i ) )I f i Mod 1 0 = 0 T henT e x t 3. T e x t = T e x t 3. T e x t + ( C h r ( 1 3 ) + C h r ( 1 0 ) ) E nd I fN e xt iE nd S ubP riv a te Sub Com ma nd 2 _Cl i ck( )z ong h e = 0: z = 0F or i = 1 To 80I f F npr i me(a (i) ) Th en z=z+1 d (z ) = a (i) z on g he = zo nghe + a (i)E nd I fN e xt iF o

15、r i = 1 To zT e x t 4. T e x t = T e x t 4. T e x t + S t r ( d ( i ) )I f i Mod 1 0 = 0 T henT e x t 4. T e x t = T e x t 4. T e x t + ( C h r ( 1 3 ) + C h r ( 1 0 ) ) E nd I fN e xt iT e x t 5. T e x t = z o n g h eE nd S ubFunction Fnprime(m As In teger) As BooleanD im k As Int ege r, f As B ool

16、 e anf = T rueF or k = 2 To m - 1I f m Mod k = 0 T henf = F alseE nd IfN e xt kF npr i me = fE nd F unc tionP riv a te Sub Com ma nd 3 _Cl i ck( )EndE nd S ub结果厢机创个数.分出偶数奇数59692934669698331857666073489956994022738022527586841628866929166658341456697748284264205841898886105182381526267454284744695541

17、4272797692205014278116533099882759 29 73 73 29 41 89 47 41 7953偶数从小到大9896928888868686848280767472GGGG666460585856565452504848444242403834343028282826262222202018161616141410素数613素数之和奇数从大到小3 17 55 3 57 5 17 5 77 5 29 7 77 5 219 98 5 29 9 98 6 29 9 39 6 39 9 19 6 49 9 19 6 4谢谢观赏实验存在的问题1. 起初想在给 偶数和奇 数排

18、 序的 时候也用 个命 令 按钮， 结果 无法 实 行。2. 奇 数排 序 起 初也 会出 现大 小 不 一的 情况 ，经 过 多 次试 验 ， 解决 这 个 问 题3. 命 令按 钮 还 是有 点少4. 奇 偶数 排 序 错误 ，检 查时 改 正 了5. 素 数选 取 时 不会 循环 体会及思考1. 经过 这次实 验，发 现 我的 VB 课 内容 还 是不 太熟 悉 ，经 常 翻 看 课 本。 只 是 不牢固，我要利用剩余的时间赶快把 VB 课学好.2. 我 的 排 序 这 块 还 是 不 熟 练3. 素 数 不 熟 练4. 有时 ，把程序做完了需要调试运行，但是 就是不能达到自己设计的效果和 目的，那就得戴上放大镜找很久，也许就是因为一个符号或是一个字母， 就要花上几个小时，半天，甚至更长。这能锻炼我们的意志。