扫二维码下载作业帮
1.75亿学生的选择
下载作业帮安装包
扫二维码下载作业帮
1.75亿学生的选择
求高手作一vb程序（二）内容利用随机函数产生80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。（三）要求1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。2．偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。3．用Sub子过程或Function函数过程判断随机整数是否为素数。4．将素数按每行10个数在窗体或文本框中输出。5．将素数的个数及求和结果输出到窗体或文本框中。6．界面由学生自行设计。
宝贝爱你鞀
扫二维码下载作业帮
1.75亿学生的选择
'只有一个按钮，窗体大一些（尤其是窗体高度）'本代码80个随机数按不可重复处理，按可重复处理的代码见后面Option&ExplicitDim&i,&j,&k,&m,&n,&u,&v,&wDim&s(80)Dim&cf&As&BooleanDim&mm&As&SingleDim&nn&As&BooleanDim&cc&As&SingleDim&js(100)&As&SingleDim&os(100)&As&SingleDim&flag&As&BooleanDim&yy&As&SingleDim&sss&As&SingleDim&Sum&As&SingleDim&fu&As&SingleDim&fv&As&SinglePrivate&Sub&Command1_Click()i&=&1Do&While&i&&=&80&&&&cf&=&False&&&&Randomize&&&&k&=&Int(Rnd()&*&90)&+&10&&&&For&j&=&1&To&i&&&&&&&&If&k&=&s(j)&Then&&&&&&&&&&&&cf&=&True&&&&&&&&&&&&Exit&For&&&&&&&&End&If&&&&Next&&&&If&cf&=&False&Then&&&&&&&&s(i)&=&k&&&&&&&&i&=&i&+&1&&&&End&IfLoopPrint&&80个随机数：&&&&&i&=&1&&&&u&=&1&&&&v&=&1&&&&For&m&=&1&To&8&&&&For&n&=&1&To&10&&&&If&s(i)&Mod&2&=&0&Then&&&&os(u)&=&s(i)&&&&u&=&u&+&1&&&&Else&&&&js(v)&=&s(i)&&&&v&=&v&+&1&&&&End&If&&&&Print&s(i);&&&&i&=&i&+&1&&&&Next&n&&&&Print:&&&&Next&m&Dim&uu(0&To&80)&As&Single,&p%,&q%,&tDim&vv(0&To&80)&As&SingleFor&w&=&1&To&u&-&1vv(w)&=&os(w)Next&wFor&p&=&1&To&u&-&1&-&1&&&&For&q&=&u&-&1&To&p&+&1&Step&-1&&&&&&&&If&vv(q)&&&vv(q&-&1)&Then&&&&&&&&&&&&t&=&vv(q)&&&&&&&&&&&vv(q)&=&vv(q&-&1)&&&&&&&&&&&&vv(q&-&1)&=&t&&&&&&&&End&If&&&&Next&qNext&pPrint&&偶数排序后：&w&=&1If&m&Mod&10&=&0&Thenfu&=&1Elsefu&=&0End&IfFor&m&=&1&To&(u&-&1)&\&10&+&1&-&fu&&&&For&n&=&1&To&10&&&&&&If&vv(w)&=&0&Then&&&&&&Else&&&&&&Print&vv(w);&&&&&&End&If&&&&&&w&=&w&+&1&&&&Next&n&&Print:Next&mFor&w&=&1&To&v&-&1uu(w)&=&js(w)Next&wFor&p&=&1&To&v&-&1&-&1&&&&For&q&=&v&-&1&To&p&+&1&Step&-1&&&&&&&&If&uu(q)&&&uu(q&-&1)&Then&&&&&&&&&&&&t&=&uu(q)&&&&&&&&&&&uu(q)&=&uu(q&-&1)&&&&&&&&&&&&uu(q&-&1)&=&t&&&&&&&&End&If&&&&Next&qNext&pPrint&&奇数排序后：&w&=&1If&m&Mod&10&=&0&Thenfv&=&1Elsefv&=&0End&IfFor&m&=&1&To&(v&-&1)&\&10&+&1&-&fv&&For&n&=&1&To&10&&&&If&uu(w)&=&0&Then&&&&Else&&&&Print&uu(w);&&&&End&If&&w&=&w&+&1&&Next&nPrint:Next&mPrint&&素数：&w&=&1mm&=&1sss&=&0For&yy&=&1&To&80cc&=&s(yy)nn&=&sushu(cc)If&nn&=&False&ThenPrint&s(yy);sss&=&sss&+&1Sum&=&Sum&+&ccIf&sss&Mod&10&=&0&ThenIf&sss&=&0&ThenElsePrint:End&IfEnd&IfEnd&IfNext&yyPrint:Print&&素数总数：&;Print&sss:Print&&素数总和：&;Print&SumEnd&SubPrivate&Function&sushu(g&As&Single)&As&BooleanDim&h&As&SingleDim&flag&As&Booleanflag&=&False&&&&For&h&=&2&To&Sqr(g)&&&&If&g&Mod&h&=&0&Then&&&&&&&&&&&&flag&=&True&&&&&&&&&Exit&For&&&&End&If&&&&Next&hsushu&=&flagEnd&Function'---------------------------'程序结束，'以下为80个随机数按可重复处理的代码'只有一个按钮，窗体大一些（尤其是窗体高度）'本代码80个随机数按可重复处理，Option&ExplicitDim&i,&j,&k,&m,&n,&u,&v,&wDim&s(80)Dim&cf&As&BooleanDim&mm&As&SingleDim&nn&As&BooleanDim&cc&As&SingleDim&js(100)&As&SingleDim&os(100)&As&SingleDim&flag&As&BooleanDim&yy&As&SingleDim&sss&As&SingleDim&Sum&As&SingleDim&fu&As&SingleDim&fv&As&SinglePrivate&Sub&Command1_Click()i&=&1Do&While&i&&=&80&&&&Randomize&&&&k&=&Int(Rnd()&*&90)&+&10&&&&s(i)&=&k&&&&i&=&i&+&1LoopPrint&&80个随机数：&&&&&i&=&1&&&&u&=&1&&&&v&=&1&&&&For&m&=&1&To&8&&&&For&n&=&1&To&10&&&&If&s(i)&Mod&2&=&0&Then&&&&os(u)&=&s(i)&&&&u&=&u&+&1&&&&Else&&&&js(v)&=&s(i)&&&&v&=&v&+&1&&&&End&If&&&&Print&s(i);&&&&i&=&i&+&1&&&&Next&n&&&&Print:&&&&Next&m&Dim&uu(0&To&80)&As&Single,&p%,&q%,&tDim&vv(0&To&80)&As&SingleFor&w&=&1&To&u&-&1vv(w)&=&os(w)Next&wFor&p&=&1&To&u&-&1&-&1&&&&For&q&=&u&-&1&To&p&+&1&Step&-1&&&&&&&&If&vv(q)&&&vv(q&-&1)&Then&&&&&&&&&&&&t&=&vv(q)&&&&&&&&&&&vv(q)&=&vv(q&-&1)&&&&&&&&&&&&vv(q&-&1)&=&t&&&&&&&&End&If&&&&Next&qNext&pPrint&&偶数排序后：&w&=&1If&m&Mod&10&=&0&Thenfu&=&1Elsefu&=&0End&IfFor&m&=&1&To&(u&-&1)&\&10&+&1&-&fu&&&&For&n&=&1&To&10&&&&&&If&vv(w)&=&0&Then&&&&&&Else&&&&&&Print&vv(w);&&&&&&End&If&&&&&&w&=&w&+&1&&&&Next&n&&Print:Next&mFor&w&=&1&To&v&-&1uu(w)&=&js(w)Next&wFor&p&=&1&To&v&-&1&-&1&&&&For&q&=&v&-&1&To&p&+&1&Step&-1&&&&&&&&If&uu(q)&&&uu(q&-&1)&Then&&&&&&&&&&&&t&=&uu(q)&&&&&&&&&&&uu(q)&=&uu(q&-&1)&&&&&&&&&&&&uu(q&-&1)&=&t&&&&&&&&End&If&&&&Next&qNext&pPrint&&奇数排序后：&w&=&1If&m&Mod&10&=&0&Thenfv&=&1Elsefv&=&0End&IfFor&m&=&1&To&(v&-&1)&\&10&+&1&-&fv&&For&n&=&1&To&10&&&&If&uu(w)&=&0&Then&&&&Else&&&&Print&uu(w);&&&&End&If&&w&=&w&+&1&&Next&nPrint:Next&mPrint&&素数：&w&=&1mm&=&1sss&=&0For&yy&=&1&To&80cc&=&s(yy)nn&=&sushu(cc)If&nn&=&False&ThenPrint&s(yy);sss&=&sss&+&1Sum&=&Sum&+&ccIf&sss&Mod&10&=&0&ThenIf&sss&=&0&ThenElsePrint:End&IfEnd&IfEnd&IfNext&yyPrint:Print&&素数总数：&;Print&sss:Print&&素数总和：&;Print&SumEnd&SubPrivate&Function&sushu(g&As&Single)&As&BooleanDim&h&As&SingleDim&flag&As&Booleanflag&=&False&&&&For&h&=&2&To&Sqr(g)&&&&If&g&Mod&h&=&0&Then&&&&&&&&&&&&flag&=&True&&&&&&&&&Exit&For&&&&End&If&&&&Next&hsushu&=&flagEnd&Function'---------------------------'程序结束，
为您推荐：
扫描下载二维码以下试题来自：
填空题下面程序的作用是利用随机函数产生10个100～300(不包含300)之间的随机整数，打印其中是7的倍数的数，并求它们的总和。请填空。
Dim s AS Double
Dim a(10)As Integer
For i=0 To 9
For i=0 To 9
If______Then
Print a(i)
Print "S=";s
End Sub a(i)＝Int(Rnd() * 200+100)
a(i)Mod 7＝0
为您推荐的考试题库
你可能感兴趣的试题
1.填空题 GotFocus、LostFocus2.填空题 软件生命周期3.填空题 数据库系统4.填空题 相邻5.填空题 类
热门相关试卷
最新相关试卷下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。　　Sub TOF( )　　Randomize　　Dim s ......_考试资料网
hot热门搜索
填空题参考答案a(i)=Int(Rnd * 200+100)
你可能喜欢
单项选择题A．privateB．无修饰符C．publicD．protected单项选择题A．PanelB．FrameC．AppletD．Dialog 填空题 参考答案x Mod 4 = 1 And x Mod 5=2单项选择题A．12B．13C．14D．15单项选择题A． 布局管理器是用来管理构件放置在容器的位置和大小的B． 为了使生成的图形用户界面具有良好的平台无关性，Java语言提供了布局管理器这个工具来管理构件在容器的布局，而不是直接设置C． 布局管理器本身也是一个接口，编程中通常使用的是实现了该接口的类D． 以上说法都正确马亮VB 实验报告-工作总结范文网
全站搜索：
您现在的位置：&>&&>&理学
马亮VB 实验报告
内蒙古工业大学信息工程学院
实 验 报 告
课程名称：
高级语言程序设计（VB）Ⅱ
实验名称：选择、循环、数组和过程综合程序设计 实验类型： 验证性□ 综合性√ 设计性□实验室名称： 校计算中心
实验日期：
实验报告撰写要求
一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容1． 实验目的2． 实验用仪器设备、器材或软件环境3． 实验原理、方案设计、程序框图、预编程序等4． 实验过程中需要记录的实验数据表格二、 实验过程中，要认真观察，仔细记录三、 完成实验后用实验报告纸撰写实验报告，包括以下内容1． 仪器设备型号及编号2． 实验器材或软件环境3． 实验步骤、程序调试方法4． 实验数据处理及结果分析5． 实验中存在的问题6． 体会及思考题四、 报告撰写时，要求格式规范、书写整齐
内蒙古工业大学信息工程学院
预习报告成绩：
指导教师审核（签名）：
页内蒙古工业大学信息工程学院
页内蒙古工业大学信息工程学院
页内蒙古工业大学信息工程学院
页内蒙古工业大学信息工程学院
实验报告成绩：
指导教师审核（签名）：
2013 年 5 月30 日
实验报告一、实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。二、实验内容利用随机函数产生100个10～99之间的随机整数，找出其中的奇数和素数，并将奇数按由小到大的顺序排列。三、实验要求1．将随机产生的100个整数存入一维数组中，按每行20个数输出到窗体上。2．将找出的奇数也存入另一个数组中，并将排好序的奇数按每行20个数输出到图片框中。3．用Sub子过程或Function函数过程判断随机整数是否为素数。在主调过程内，将找出的素数按每行20个数在文本框中输出。4．界面可参照如图所示的运行结果进行设计，要求各个控件在窗体上布局合理、大小适中。对象属性的设置要求用表格填写，包括用到的对象名、属性名和属性值。5．运行程序后，单击“产生随机整数”按钮，则在窗体上输出100个随机整数；单击“找奇数并排序”按钮，则在图片框中输出已经排好序的奇数；单击“找素数”按钮，则在文本框中输出素数；单击“结束”按钮，结束程序的运行
四，界面设计第
页内蒙古工业大学信息工程学院
内蒙古工业大学信息工程学院六、程序代码Option Base 1Dim a() As Integer, n As Integer, k As Integer, l As Integer Private Sub Command1_Click()ClsRandomizen = Int(Rnd * 81 + 20)Print n & &个随机数&ReDim a(n) As IntegerFor i = 1 To na(i) = Int(Rnd * 90 + 10)Print a(i);If i Mod 10 = 0 Then PrintNext iEnd Sub
Private Sub Command2_Click()Dim jishu() As Integer, j As Integer, k As Integer, oushu() As IntegerFor i = 1 To nIf a(i) Mod 2 = 1 Thenk = k + 1ReDim Preserve jishu(k) As Integerjishu(k) = a(i)End IfNext iCall js(jishu, k)Picture1.Print k & &个奇数&For i = 1 To kPicture1.Print jishu(i);If i Mod 10 = 0 Then Picture1.PrintNext iFor i = 1 To nIf a(i) Mod 2 = 0 Thenl = l + 1ReDim Preserve oushu(l) As Integeroushu(l) = a(i)End IfNext iCall os(oushu, l)Label1.Caption = l & &个偶数& & vbCrLfFor i = 1 To lLabel1.Caption = Label1.Caption & oushu(i) & & &If i Mod 10 = 0 Then Label1.Caption = Label1.Caption & vbCrLfNext i第
页内蒙古工业大学信息工程学院End Sub
Private Sub Command3_Click()For i = 1 To nIf sushu(a(i)) Thenc = c + 1sh = sh + a(i)Text1.Text = Text1.Text & a(i) & & &If c Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf
End IfNext iText1.Text = c & &个素数& & vbCrLf & Text1.Text & vbCrLf & &素数和为：& & shEnd Sub
Public Function sushu(m As Integer) As BooleanDim d As Integer, f As Booleanf = TrueFor b = 2 To m - 1If m Mod b = 0 Thenf = FalseExit ForEnd IfNext bsushu = fEnd Function
Private Sub Command4_Click()EndEnd Sub
Public Sub js(jishu() As Integer, k)For i = 1 To k - 1For j = i + 1 To kIf jishu(i) & jishu(j) Thent = jishu(i): jishu(i) = jishu(j): jishu(j) = tEnd IfNext jNext iEnd SubPublic Sub os(oushu() As Integer, l)For i = 1 To l - 1For j = 1 To l - iIf oushu(j) & oushu(j + 1) Thent = oushu(j): oushu(j) = oushu(j + 1): oushu(j + 1) = t第
页内蒙古工业大学信息工程学院End IfNext jNext iEnd Sub
七、调试和运行结果
八、 实验中存在的问题1. 排列顺序问题
2. 缺少字符，调试问题；第
页内蒙古工业大学信息工程学院
3. 选择性排序的方法； 4.
九、 体会和思考
内蒙古工业大学信息工程学院做VB程序需要耐心与细心，小小的差错就会导致整个程序的错误，学习中基础知识很重要。努力学好基础知识，做什么事都不能急于求成，对于一次次调试，要仔细，细心的找出错误并改正，直到达到目的那一刻。
上一篇： 下一篇：
All rights reserved Powered by
copyright &copyright 。文档资料库内容来自网络，如有侵犯请联系客服。