vb实验80个随机数

vb实验80个随机数 个人文档: 欢迎来到我的豆丁文档，请在阅读后给予～谢谢～ ============================================================================================ 内蒙古工业大学信息工程学院 课程名称: 高级语言程序(VB)? 程序设计 实验名称:选择、循环、数组和过程综合 实验类型: 验证性? 综合性? 设计性? 实验室名称: 校计算中心 班级: 学号: 姓名: 成绩: 实验日期: 感谢你来到我的生命中,带来了美丽、快乐,感谢你给了我永远珍视的记忆。 =======================================================================欢迎下次再来学习!!!!!!!!!!!!!! 个人文档: 欢迎来到我的豆丁文档，请在阅读后给予评价～谢谢～ ============================================================================================ 实验报告撰写要求 一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容 1( 实验目的 2( 实验用仪器设备、器材或软件环境 3( 实验原理、设计、程序框图、预编程序等 4( 实验过程中需要的实验数据表格 二、 实验过程中，要认真观察，仔细记录 三、 完成实验后用实验报告纸撰写实验报告，包括以下内容 1( 仪器设备型号及编号 2( 实验器材或软件环境 3( 实验步骤、程序调试方法 4( 实验数据处理及结果分析 5( 实验中存在的问题 6( 体会及思考题 四、 报告撰写时，要求格式、书写整齐 感谢你来到我的生命中,带来了美丽、快乐,感谢你给了我永远珍视的记忆。 =======================================================================欢迎下次再来学习!!!!!!!!!!!!!! 个人文档: 欢迎来到我的豆丁文档，请在阅读后给予评价～谢谢～ ============================================================================================ 预习报告成绩: 指导教师审核(签名): 年 月 日 预习报告 实验一 选择、循环和数组综合程序设计 一)实验目的 学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。 (二)实验内容 利用随机函数产生80个10,99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出;在产生的80个随机整数中，找出其中的素数，并将这些素数求和。 (三)实验要求 1(将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。 2(偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。 3(用Sub子过程或Function函数过程判断随机整数是否为素数。 4(将素数按每行10个数在窗体或文本框中输出。 5(将素数的个数及求和结果输出到窗体或文本框中。 6(界面由学生自行设计。 创立界面，4个标签，5个文本框，3个命令按钮。 控件名称 属性 属性值 Form1 caption Form1 Label1 caption 偶数从小到大 Label2 caption 奇数从大到小 Label3 caption 素数 Label4 caption 素数之和 Text1 text Text2 text Text3 text Text4 Text Text5 Text Command1 caption 随机80个数，分出偶数奇数 Command2 caption 找出素数，并求素数之和 caption 谢谢观赏 Command3 感谢你来到我的生命中,带来了美丽、快乐,感谢你给了我永远珍视的记忆。 =======================================================================欢迎下次再来学习!!!!!!!!!!!!!! 个人文档: 欢迎来到我的豆丁文档，请在阅读后给予评价～谢谢～ ============================================================================================ 代码 Dim a(1 To 80) As Integer, b(1 To 80) As Integer, c(1 To 80) As Integer Private Sub Command1_Click() Randomize For i = 1 To 80 a(i) = Int(90 * Rnd + 10) Text1.Text = Text1.Text + Str(a(i)) If i Mod 10 = 0 Then Text1.Text = Text1.Text + (Chr(13) + Chr(10)) End If If a(i) Mod 2 = 0 Then Text2.Text = Text2.Text + Str(a(i)) k = k + 1 b(k) = a(i) End If If a(i) Mod 2 <> 0 Then 感谢你来到我的生命中,带来了美丽、快乐,感谢你给了我永远珍视的记忆。 =======================================================================欢迎下次再来学习!!!!!!!!!!!!!! 个人文档: 欢迎来到我的豆丁文档，请在阅读后给予评价～谢谢～ ============================================================================================ Text3.Text = Text3.Text + Str(a(i)) s = s + 1 c(s) = a(i) End If Next i Print "偶数个数:"; k Print "奇数个数:"; s End Sub Private Sub Command2_Click() For i = 1 To k - 1 For j = i + 1 To k If b(i) > b(j) Then t = b(i): b(i) = b(j): b(j) = t End If Next j Next i For i = 1 To k Text2.Text = Text2.Text + Str(a(i)) If i Mod 10 = 0 Then Text2.Text = Text2.Text + (Chr(13) + Chr(10)) End If Next i End Sub Private Sub Command3_Click() For i = 1 To s - 1 For j = 1 To s If c(i) > c(j) Then t = c(i): c(i) = c(j): c(j) = t End If Next j Next i For i = 1 To s Text3.Text = Text3.Text + Str(a(i)) If i Mod 10 = 0 Then Text3.Text = Text3.Text + (Chr(13) + Chr(10)) End If Next i End Sub Private Sub Command4_Click() For i = 1 To 80 For m = 2 To i - 1 If i Mod m <> 0 Then Text4.Text = Text4.Text + Str(a(i)) End If 感谢你来到我的生命中,带来了美丽、快乐,感谢你给了我永远珍视的记忆。 =======================================================================欢迎下次再来学习!!!!!!!!!!!!!! 个人文档: 欢迎来到我的豆丁文档，请在阅读后给予评价～谢谢～ ============================================================================================ Next m Next i Print n End Sub 实验报告成绩: 指导教师审核(签名): 年 月 日 实验报告 实验一 选择、循环和数组综合程序设计 一)实验目的 学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。 (二)实验内容 利用随机函数产生80个10,99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出;在产生的80个随机整数中，找出其中的素数，并将这些素数求和。 (三)实验要求 1(将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。 2(偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。 3(用Sub子过程或Function函数过程判断随机整数是否为素数。 4(将素数按每行10个数在窗体或文本框中输出。 5(将素数的个数及求和结果输出到窗体或文本框中。 6(界面由学生自行设计。 创立界面，4个标签，5个文本框，3个命令按钮。 控件名称 属性 属性值 Form1 caption Form1 Label1 caption 偶数从小到大 Label2 caption 奇数从大到小 Label3 caption 素数 Label4 caption 素数之和 Text1 text Text2 text Text3 text Text4 Text Text5 Text Command1 caption 随机80个数，分出偶数奇数 Command2 caption 找出素数，并求素数之和 caption 谢谢观赏 Command3 感谢你来到我的生命中,带来了美丽、快乐,感谢你给了我永远珍视的记忆。 =======================================================================欢迎下次再来学习!!!!!!!!!!!!!! 个人文档: 欢迎来到我的豆丁文档，请在阅读后给予评价～谢谢～ ============================================================================================ 代码 Dim a(1 To 80) As Integer, b(1 To 80) As Integer, c(1 To 80) As Integer, d(1 To 80) As Integer Private Sub Form_Load() Show Randomize For i = 1 To 80 a(i) = Int(90 * Rnd + 10) Next i End Sub Private Sub Command1_Click() x = 0: y = 0 For i = 1 To 80 Text1.Text = Text1.Text + Str(a(i)) If i Mod 10 = 0 Then Text1.Text = Text1.Text + (Chr(13) + Chr(10)) End If If a(i) Mod 2 = 0 Then x = x + 1 b(x) = a(i) End If If a(i) Mod 2 <> 0 Then y = y + 1 c(y) = a(i) End If Next i Print "偶数个数:"; x Print "奇数个数:"; y For p = 1 To x For q = 1 To x If b(p) > b(q) Then s = b(p): b(p) = b(q): b(q) = s End If Next q Next p For i = 1 To x Text2.Text = Text2.Text + Str(b(i)) If i Mod 10 = 0 Then Text2.Text = Text2.Text + (Chr(13) + Chr(10)) End If Next i For j = 1 To y - 1 For h = j + 1 To y If c(j) < c(h) Then 感谢你来到我的生命中,带来了美丽、快乐,感谢你给了我永远珍视的记忆。 =======================================================================欢迎下次再来学习!!!!!!!!!!!!!! 个人文档: 欢迎来到我的豆丁文档，请在阅读后给予评价～谢谢～ ============================================================================================ t = c(j): c(j) = c(h): c(h) = t End If Next h Next j For i = 1 To y Text3.Text = Text3.Text + Str(c(i)) If i Mod 10 = 0 Then Text3.Text = Text3.Text + (Chr(13) + Chr(10)) End If Next i End Sub Private Sub Command2_Click() zonghe = 0: z = 0 For i = 1 To 80 If Fnprime(a(i)) Then z = z + 1 d(z) = a(i) zonghe = zonghe + a(i) End If Next i For i = 1 To z Text4.Text = Text4.Text + Str(d(i)) If i Mod 10 = 0 Then Text4.Text = Text4.Text + (Chr(13) + Chr(10)) End If Next i Text5.Text = zonghe End Sub Function Fnprime(m As Integer) As Boolean Dim k As Integer, f As Boolean f = True For k = 2 To m - 1 If m Mod k = 0 Then f = False End If Next k Fnprime = f End Function Private Sub Command3_Click() End End Sub 结果 感谢你来到我的生命中,带来了美丽、快乐,感谢你给了我永远珍视的记忆。 =======================================================================欢迎下次再来学习!!!!!!!!!!!!!! 个人文档: 欢迎来到我的豆丁文档，请在阅读后给予评价～谢谢～ ============================================================================================ 实验存在的问题 1. 起初想在给偶数和奇数排序的时候也用个命令按钮，结果无法实行。 2. 奇数排序起初也会出现大小不一的情况，经过多次试验，解决这个问题。 3. 命令按钮还是有点少 4. 奇偶数排序错误，检查时改正了 5. 素数选取时不会循环 体会及思考 1. 经过这次实验，发现我的VB课内容还是不太熟悉，经常翻看课本。只是 不牢固，我要利用剩余的时间赶快把VB课学好. 2. 我的排序这块还是不熟练 3. 素数不熟练 4. 有时，把程序做完了需要调试运行，但是就是不能达到自己设计的效果和 目的，那就得戴上放大镜找很久，也许就是因为一个符号或是一个字母， 就要花上几个小时，半天，甚至更长。这能锻炼我们的意志。 感谢你来到我的生命中,带来了美丽、快乐,感谢你给了我永远珍视的记忆。 =======================================================================欢迎下次再来学习!!!!!!!!!!!!!! 个人文档: 欢迎来到我的豆丁文档，请在阅读后给予评价～谢谢～ ============================================================================================ 感谢你来到我的生命中,带来了美丽、快乐,感谢你给了我永远珍视的记忆。 =======================================================================欢迎下次再来学习!!!!!!!!!!!!!!