来源：互联网 发表时间： 20:46:46 责任编辑：鲁晓倩字体：
为了帮助网友解决“（急）求一个用vb编写的能生成随机数的小软件”相关的问题，学网通过互联网对“（急）求一个用vb编写的能生成随机数的小软件”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:（急）求一个用vb编写的能生成随机数的小软件，具体解决方案如下：解决方案1：把下面两行文字复制到新建文本文件中，就可以直接执行了.vbs，另存为rnd不用Exe解决方案2：
://b.com/zhidao/wh%3D600%2C800/sign=df17528efd1f152fb9f2/d1a20cf431adcbef0f00b16bacaf2edda3cc9fa3.要的话回复一下://b.hiphotos?://b.com/zhidao/pic/item/d1a20cf431adcbef0f00b16bacaf2edda3cc9fa3.baidu.hiphotos.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img onerror="this.src='/images/nopicend.jpg'" alt="点击图片看大图" onLoad="DrawImage(this)" onclick="javascript:window.open(this.src);" class="ikqb_img" src="http.hiphotos,我这个不会重复出现同一个数的?学网
楼上的朋友的代码会出现重复的数字.jpg" esrc="http.这个效果如何.com/zhidao/wh%3D450%2C600/sign=cad1c8d0eefb3f/d1a20cf431adcbef0f00b16bacaf2edda3cc9fa3
解决方案3：
Private Sub Command1_Click()Dim i As Integer, myStr As StringRandomize (Timer)For i = 1 To 55
myStr = myStr & Int(55 * Rnd()) + 1 & &
&NextMsgBox myStrEnd Sub
1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答
相关文章：
最新添加资讯
24小时热门资讯
Copyright &#169; 2004- All Rights Reserved. 学网 版权所有
京ICP备号-1 京公网安备02号------解决方案--------------------引用:有什么用？除了1个打行号，其他没什么用处
它的那几个代码辅助的功能还是很常用的啊，你这样说会误导初学者哦，是不是自己藏了啥法宝还没拿出来？------解决方案--------------------我一直用阿，都很多年了
我觉得最有用的是看那些函数调用了指定函数------解决方案--------------------很实用。。。。------解决方案--------------------本帖最后由 bcrun 于
17:10:26 编辑
不过职业搞VS的似乎用codesmart那套大型的工具较多，毕竟VS6和后来的VS.NET都有相应的产品，功能很强大，使用习惯上也可保持一致，价格不算很贵(如果你开发的东西能卖钱的话)，好像是300美元左右.职业使用VS开发工具的，推荐“codesmart这个IDE扩展包+codejock那个控件包”的组合，都比较强大，都有老的VS6和现在最新的vs.net的版本，当然，也都是要钱的，三位数美元的价位。
codesmart在vs6中似乎只有vb6的版本，那就用Visual&Assist做补充吧。其实mztools应该也有些地方是强大的codesmart没有的，都装上没问题了，需要时激活想要的就行了。
codesmart官网：
codejock官网：/
哦，对了codejock的产品有单独的名字：Xtreme&Toolkit&Pro,&Xtreme&Suite&Pro
codesmart&for&VB6界面:/products-codesmart-vb6.php#T8-3
有用的东西太多了，其它的自己去看：)------解决方案--------------------引用:VS2012很强吗，说实话，强在哪：)我不知道。
比如说那个CodeSMART，我想他的作者一定很想让VB6有类似Visual&Studio&7以上那样拥有代码折叠功能，可是，我打赌他一定是发现这么做很困难，或者不稳定才想出了再在左边搞一个树状的窗格这么个馊主意。美其名曰“Code&Flow”。
至于Mz-Tools，那就更不济了，功能挺多，比如说点两次菜单，打开一个对话框，美其名曰“MsgBox构造器”，一番点点选选，无非代替人工输入一条语句，这功能可真实用啊。------解决方案--------------------原谅我没说清楚，让楼上误解了，我想表达的意思是和这帖的主题相关的:“IDE的第三方增强工具”实在是很有用的，哪怕是在相对很强大的VS2012上面，也应该如此。
不应该拿VS2012的开发界面去和VS6时代的IDE增强工具对比，要比也是和这些工具对应VS2012的版本对比，恰好，codesmart,va,mztools等，目前都出了VS2012或至少是VS2010的版本，常用那些版本的不妨去研究一下。我由于机器硬件档次的原因，目前用的时间较多的版本，最新的才是VS2008，VS2010也用过一阵，里面一些常用的功能是缺乏的，需要在IDE辅助工具里找，自己开发太难或者说太不经济了。至于，还有一些需求这些工具里也没有的，那就只有faint了：()------解决方案--------------------有东西分享，一定要顶&------解决方案--------------------codesmart&在用，不足的地方就是&代码折叠与代码着色，
代码着色本来可以用其他工具的，但是和codesmart&并用的时候，会出现&标签页那里&绘图失败（好像两个插件都有这部分内容，又没有按制是否显示的选项）&。
后面也没有去找其他工具解决代码着色，将就在用。------解决方案--------------------不错，找了很久------解决方案--------------------它的那几个代码辅助的功能还是很常用的啊，你这样说会误导初学者哦，是不是自己藏了啥法宝还没拿出来？&------解决方案--------------------很强悍。。。------解决方案--------------------嗯&不错的方法&顶一下------解决方案--------------------引用:原谅我没说清楚，让楼上误解了，我想表达的意思是和这帖的主题相关的:“IDE的第三方增强工具”实在是很有用的，哪怕是在相对很强大的VS2012上面，也应该如此。
不应该拿VS2012的开发界面去和VS6时代的IDE增强工具对比，要比也是和这些工具对应VS2012的版本对比，恰好，codesmart,va,mztools等，目前都出了VS2012或至少是VS2010的版本，……
本来就不能比，时代不同了。VB6，根本不属于这个时代了。我在精神层面支持VB6，你们有些人整天说VB6如何如何，我可以说，我电脑里面的古董软件比你全。VB5&VB4&VB3&VB2&VB1，对了，还有VB&Control&Creation&Edition，怕是大多数人听都没有听说过吧。------解决方案--------------------要说伟大，VB最伟大的版本是两个，一个是VB1.0，那时候没有Delphi，VB是开RAD先河的，在那个时代，你掏出一个比VB1.0更好的IDE给我看看？还有一个是VB5.0，其实VB6.0只能叫VB5.0SE，那时候正值Delphi&3.0大卖，VB5.0（包括Word&97的VBA，VBCCE）的出现，尤其是对ActiveX/COM/DCOM的支持，彻底盖掉Delphi的风头，甚至让Delphi&4.0仓促发布，成为最可笑的垃圾版本。VB5.0后，PowerBuilder也彻底退出历史舞台了。至于VB6.0，只能算在天朝是一个经典，因为国人接触电脑很晚，2000年是一个大潮，也是等级考试引用VB的开端。------解决方案--------------------引用:要说伟大，VB最伟大的版本是两个，一个是VB1.0，那时候没有Delphi，VB是开RAD先河的，在那个时代，你掏出一个比VB1.0更好的IDE给我看看？还有一个是VB5.0，其实VB6.0只能叫VB5.0SE，那时候正值Delphi&3.0大卖，VB5.0（包括Word&97的VBA，VBCCE）的出现，尤其是对ActiveX/COM/DCOM的支持，彻底盖掉Delph……
VB5确实不错，后来.net就在也不玩了------解决方案--------------------引用:引用:要说伟大，VB最伟大的版本是两个，一个是VB1.0，那时候没有Delphi，VB是开RAD先河的，在那个时代，你掏出一个比VB1.0更好的IDE给我看看？还有一个是VB5.0，其实VB6.0只能叫VB5.0SE，那时候正值Delphi&3.0大卖，VB5.0（包括Word&97的VBA，VBCCE）的出现，尤其是对ActiveX/CO……
VB5.0的特性，比如智能感知技术，比如真正编译为本机代码，比如对COM完美的支持，脱胎换骨的编程库改进，都几乎使得它让VB重生，不亚于VB.NET较VB6的改进。相比较而言，VB6是最不思进取的一个版本。------解决方案--------------------引用:引用:原谅我没说清楚，让楼上误解了，我想表达的意思是和这帖的主题相关的:“IDE的第三方增强工具”实在是很有用的，哪怕是在相对很强大的VS2012上面，也应该如此。
不应该拿VS2012的开发界面去和VS6时代的IDE增强工具对比，要比也是和这些工具对应VS2012的版本对比，恰好，codesmart,va,mztools等，目前都出了VS……
vb.net有什么好，我做一个共享软件，就800K，就得拖着一个最少22M的.NET&2.0。------解决方案-------------------- 共&2&页:
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有VB实验题1-6题目及答案
随机产生30～100（包括30、100）的10个正整数，存放于数组中，显示该数组的值，并求出最大值、最小值和平均值，如图5-1所示。要求：窗体显示字体默认、大小为小三，通过单击窗体触发程序运行。Private Sub Form_Click()Dim a(9) As Integer, max%, min%, ave!Randomizemax = 30: min = 100: ave = 0For i = 0 To 9&& a(i) = Int(Rnd * 71 + 30)&& Print a(i);&& ave = ave + a(i)&& If a(i) & max Then max = a(i)&& If a(i) & min Then min = a(i)Next iave = ave / 10PrintPrint "Max="; max, "Min="; min, "Ave="; Format(ave, "0.0")End Sub&
已知6个学生的成绩，通过Array函数对数组赋初值，利用String函数，以每5分用一个&◆&符号显示，随后显示学生的成绩。要求：窗体中所有控件字体默认、大小为小四，计算结果在程序启动时立即在窗体中显示。效果如图5-2所示。Private Sub Form_Load()Dim Mark As Variant, i%Form1.ShowMark = Array(56, 78, 98, 88, 76, 78)For i = LBound(Mark) To UBound(Mark)&& Print String(Mark(i) \ 5, "◆"); Mark(i)&& PrintNext iEnd Sub
随机产生20个学生的成绩（整数），统计各分数段人数。即0～59、60～69、70～79、80～89、90～100，并显示结果，效果如图5-3所示。要求：（1）单击按钮&产生并显示数据&按钮时，产生的数据在Picture1显示，单击&统计分数段人数&时，统计的结果在Picture2显示。（2）学生成绩和统计结果分别放在两个不同的数组中。（3）所有控件字体默认、大小为小四。Dim mark(1 To 20) As IntegerPrivate Sub Command1_Click()Picture1.ClsDim i%, j%RandomizeFor i = 1 To 20&& mark(i) = Int(Rnd * 101)&& j = j + 1&& Picture1.Print Tab((j - 1) * 6); mark(i);&& If j Mod 4 = 0 Then j = 0: Picture1.PrintNext iEnd Sub&Private Sub Command2_Click()Picture2.ClsDim s(5 To 9) As Integer, i%, k%For i = 1 To 20& k = mark(i) \ 10& Select Case k&&& Case 0 To 5&&&& s(5) = s(5) + 1&&& Case 9 To 10&&&& s(9) = s(9) + 1&&& Case 6 To 8&&&& s(k) = s(k) + 1& End SelectNext iFor i = 5 To 9& If s(i) && 0 Then&&& Picture2.Print "s("; ")"; "的人数有"; s(i); "个"& End IfNext iEnd Sub
通过单击相应按钮，产生原始数据和升降序排列这批数据，对应显示在标签框中，要求：原始数据为随机产生10个2位数，用选择法升序排列这些数据，用冒泡法降序排列这些数据，窗体中字体默认、大小为小四。效果如图5-4所示。Option Base 1Dim a%(10)&Private Sub Command1_Click()& Dim i%& Randomize& Label1.Caption = ""& For i = 1 To 10&&& a(i) = Int(Rnd * 90 + 10)&&& Label1.Caption = Label1.Caption & "& " & a(i)& Next iEnd Sub&Private Sub Command2_Click()& Dim i%, j%, t%, Min%& Label2.Caption = ""& For i = 1 To 9&&& Min = i&&& For j = i + 1 To 10&&&&& If a(j) & a(Min) Then Min = j&&& Next j&&& t = a(i)&&& a(i) = a(Min)&&& a(Min) = t& Next i& For i = 1 To 10&&& Label2.Caption = Label2.Caption & "& " & a(i)& Next iEnd Sub&Private Sub Command3_Click()& Dim i%, j%, t%& Label3.Caption = ""& For i = 1 To 9&&& For j = i + 1 To 10&&&&& If a(j) & a(i) Then&&&&&&& t = a(i)&&&&&&& a(i) = a(j)&&&&&&& a(j) = t&&&&& End If&&& Next j& Next i& For i = 1 To 10&&& Label3.Caption = Label3.Caption & "& " & a(i)& Next iEnd Sub
参照教材例5.3，在通用声明阶段声明两个数组，利用随机函数形成两个数组（ 中元素范围在30～70（包括30、70）， 中元素范围在100～140（包括100、140）），如产生下列数组：，&&要求：① 先产生 、 数组，然后以下三角形式显示 数组，以上三角形式显示 数组。&&&& &② 显示 数组主对角线元素之和及 数组副对角线元素之和。③ 点击相应的按钮结果在相应的图片框中显示，所有控件字体默认、大小为小四。效果如图5-5所示。Option Base 1Dim a(4, 4) As Integer, b(4, 4) As IntegerPrivate Sub Command1_click()Picture3.ClsDim i%, j%For i = 1 To 4&& For j = 1 To i&&&& Picture3.Print a(i, j); Spc(1);&& Next j&& Picture3.PrintNext iEnd SubPrivate Sub Command2_click()Picture4.ClsDim i%, j%For i = 1 To 4&& For j = i To 4&&&& Picture4.Print Tab(6 * (j - 1)); b(i, j);&& Next j&& Picture4.PrintNext iEnd Sub&Private Sub Command3_Click()Picture5.ClsDim sa%, sb%sa = 0: sb = 0For i = 1 To 4&& sa = sa + a(i, i)Next iPicture5.Print "A数组主对角线元素和为："; saFor i = 1 To 4& j = 5 - i& sb = sb + b(i, j)Next iPicture5.Print "B数组副对角线元素和为："; sbEnd Sub&Private Sub Command4_Click()Dim i%, j%Picture1.ClsFor i = 1 To 4&& For j = 1 To 4&&&& a(i, j) = Int(Rnd * 41 + 30)&&&& Picture1.Print a(i, j); Spc(1);&& Next j&& Picture1.PrintNext iPicture2.ClsFor i = 1 To 4&& For j = 1 To 4&&&& b(i, j) = Int(Rnd * 41 + 100)&&&& Picture2.Print b(i, j); Spc(1);&& Next j&& Picture2.PrintNext iEnd Sub实验61.设计一个选课的运行界面，如图6-1（a）所示。它包含2个列表框，左边为可供选择的课程名称，通过Form_Load事件加入，并按拼音字母顺序排序；当单击某门课程名称后，将该课程加入到右边的列表框中，并在左边列表框中删除该课程。当右边课程数已满5门时，不允许再加入并出现如图6-1（b）所示的提示。窗体及所有控件字体默认、大小均为小四。Private Sub Form_Load()& List1.AddItem "C/C++程序设计"& List1.AddItem "VB程序设计"& List1.AddItem "数据库技术与应用"& List1.AddItem "硬件技术基础"& List1.AddItem "Web程序设计"& List1.AddItem "多媒体技术与应用"& List1.AddItem "网络技术与应用"& List1.AddItem "软件技术基础"& List1.AddItem "大学计算机基础"End Sub&Private Sub List1_Click()& If List2.ListCount & 5 Then&&& List2.AddItem List1.Text&&& List1.RemoveItem List1.ListIndex& Else&&& MsgBox "超过5门功课，不能再选", , "信息提示"& End IfEnd Sub2.在窗体上建立一个简单组合框，在组合框的文本区输入数字字符，按回车键后加入到组合框的列表区内（非数字则不加入），然后清空文本区，如图6-2（a）所示；单击&交换&按钮后，可将组合框列表区中最小值项目和第0个项目交换；最大值项目与最后项交换, 如图6-2（b）所示。窗体中所有控件字体默认大小。Private Sub Combo1_KeyPress(KeyAscii As Integer).& If KeyAscii = 13 Then&&& If IsNumeric(Combo1.Text) Then&&&&& Combo1.AddItem Combo1.Text&&& End If&&& Combo1.Text = ""& End IfEnd Sub&Private Sub Command1_Click()& Dim i%, min%, max%, x%& min = 0& For i = 1 To Combo1.ListCount - 1&&& If Val(Combo1.List(i)) & Val(Combo1.List(min)) Then min = i& Next& x = Combo1.List(0)& Combo1.List(0) = Combo1.List(min)& Combo1.List(min) = x& max = Combo1.ListCount - 1& For i = 0 To Combo1.ListCount - 2&&& If Val(Combo1.List(i)) & Val(Combo1.List(max)) Then max = i& Next& x = Combo1.List(Combo1.ListCount - 1)& Combo1.List(Combo1.ListCount - 1) = Combo1.List(max)& Combo1.List(max) = xEnd Sub3.设计一个点菜程序，当单击&添加到我点的菜单中&按钮时，将组合框&饭店菜单&中选中的菜添加到列表框&我点的菜&中，当单击&添加到饭店菜单中&按钮时，可以将文本框中输入的菜单名添加到组合框&饭店菜单&中，如已存在将不重复添加。要求：设计窗体界面，窗体中所有控件字体默认、大小为小四，并设计代码，初始时文本框、列表框、组合框内容均为空。Private Sub Command1_Click()&& Dim i%, flag As Boolean&& flag = False&& For i = 0 To List1.ListCount - 1&&&&& If List1.List(i) = Combo1.Text Then&&&&&&&& flag = True&&&&&&&& Exit For&&&&& End If&& Next i&& If flag = False Then List1.AddItem Combo1.TextEnd Sub&Private Sub Command2_Click()&& Dim i%, flag As Boolean&& flag = False&& For i = 0 To Combo1.ListCount - 1&&&&& If Combo1.List(i) = Text1.Text Then&&&&&&&& flag = True&&&&&&&& Exit For&&&&& End If&& Next i&& If flag = False Then Combo1.AddItem Text1.TextEnd Sub4.编写一个子过程ProcMin(a(),amin)，求一维数组a中的最小值amin。要求主调程序在随机产生10个-300 ~ -400之间的数，在窗体上显示所产生的数组中的各元素，通过Form_Load事件加入；调用ProcMin(a(),amin)过程，在窗体上显示数组中的最小值。窗体中所有控件字体默认、大小为小四，效果如图6-4所示。Private Sub Form_Load()& Dim min%, i%& Dim s%(1 To 10)& Randomize& Print "数组中的各元素：";& For i = 1 To 10&&& s(i) = Int(Rnd * (-101) - 300)&&& Print s(i);& Next i& Print& Call ProcMin(s, min)End Sub&Public Sub ProcMin(a%(), aMin%)& Dim i!& aMin = a(LBound(a))& For i = LBound(a) + 1 To UBound(a)&&& If a(i) & aMin Then aMin = a(i)& Next i& Print& Print "数组中的最小值是："; aMinEnd Sub5.编写一个自定义函数过程MySin(x)，求： 。当第n项的值小于|10-5|时结束，x为弧度。主调程序同时调用MySin(x)函数和内部函数Sin(x)，计算x=2时的函数值。要求：通过单击按钮事件在窗体上显示结果，进行比较验证，窗体中所有控件字体默认、大小为小四，效果如图6-5所示。Option Explicit&Public Function Mysin#(x#, eps#)Dim n%, t#n = 1Mysin = 0t = (-1) ^ (n - 1) * x ^ (2 * n - 1) / Fac(2 * n - 1)Do While (Abs(t) & eps)&& Mysin = Mysin + t&& n = n + 1&& t = (-1) ^ (n - 1) * x ^ (2 * n - 1) / Fac(2 * n - 1)LoopEnd Function&Public Function Fac#(m%)Dim i%Fac = 1For i = 1 To m&& Fac = Fac * iNext iEnd Function&Private Sub Command1_Click()Print "调用自定义函数Mysin(2)求正弦函数值="; Mysin(2, 0.00001)PrintPrint "当调用VB标准函数Sin(2)求正弦函数值="; Sin(2)End Sub
如果一个整数的所有因子（包括1，但不包括它本身）之和与该数相等，则称这个数为完数。如6=1+2+3，所以6是一个完数。编写一个函数IsWs(m)，判断m是否为完数，函数的返回值是逻辑型。主调程序在窗体上输出1000以内所有的完数，通过Form_Load事件加入，窗体中所有控件字体默认、大小为小四，效果如图6-6所示。Private Sub Form_Load()& Dim sum%, out1$, m%, j%& Print "1000以内的完数为："& For m = 2 To 1000&&& If IsWs(m, out1) Then Print m & "=" & out1& NextEnd Sub&Private Function IsWs(m%, out2$) As Boolean& Dim sum%, j%& IsWs = False& sum = 1& out2 = "1"& For j = 2 To Int(m / 2)&&& If m Mod j = 0 Then sum = sum + j: out2 = out2 & "+" &a...
分享这篇日志的人也喜欢
热门日志推荐
人人最热标签
分享这篇日志的人常去
北京千橡网景科技发展有限公司：
文网文[号··京公网安备号·甲测资字
文化部监督电子邮箱：wlwh@··
文明办网文明上网举报电话： 举报邮箱：&&&&&&&&&&&&
请输入手机号，完成注册
请输入验证码
密码必须由6-20个字符组成
下载人人客户端
品评校花校草，体验校园广场