24小时热门版块排行榜    

查看: 1498  |  回复: 4

天涯路远

新虫 (小有名气)

[求助] 跪求会编写程序的人帮我编一段随机抽取数字的VB代码 已有1人参与

写一段程序,作用是随机抽取1~100之间的随机数字,且抽取过的数字不再重复抽取
回复此楼

» 猜你喜欢

已阅   关注TA 给TA发消息 送TA红花 TA的回帖

gaupay

至尊木虫 (正式写手)

就先不应助了,你的问题不清楚,是每次取一个数,还是多个数?

[ 发自小木虫客户端 ]
Godblessgoodman
2楼2014-11-07 00:32:52
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

天涯路远

新虫 (小有名气)

引用回帖:
2楼: Originally posted by gaupay at 2014-11-07 00:32:52
就先不应助了,你的问题不清楚,是每次取一个数,还是多个数?

每次取一个数,我略微的看了一点编程,谢谢帮忙
3楼2014-11-07 09:36:06
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

gaupay

至尊木虫 (正式写手)

引用回帖:
3楼: Originally posted by 天涯路远 at 2014-11-07 09:36:06
每次取一个数,我略微的看了一点编程,谢谢帮忙...

Private Sub Command1_Click()
Randomize
a = 100 * Rnd + 1
a = Int(a)
Text1.Text = a
End Sub

这是每次在文本框中产生一个,[0,100)的随机整数,你参考一下,然后根据自己具体情况,再编写自己需要的代码。
PS:话说对于数值类的问题,我更加倾向于转为用MATLAB语言了。建议楼主试试。
Godblessgoodman
4楼2014-11-07 23:11:54
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

根据楼主需要,程序做好了。生成了exe程序,试一下。很简单,楼主可以自己改,或者讲一下。

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : 生成不重复的随机数字.rar
  • 2014-11-21 09:03:39, 6.72 K
5楼2014-11-21 09:06:47
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 天涯路远 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 352求调剂 +3 大米饭! 2026-03-22 3/150 2026-03-22 23:28 by king123!
[考研] 317求调剂 +12 申子申申 2026-03-19 18/900 2026-03-22 22:23 by luoyongfeng
[考研] 0854电子信息求调剂 +3 α____ 2026-03-22 3/150 2026-03-22 21:28 by zhq0425
[考研] 石河子大学(211、双一流)硕博研究生长期招生公告 +3 李子目 2026-03-22 3/150 2026-03-22 21:01 by 怎么释怀
[考研] 307求调剂 +11 冷笙123 2026-03-17 11/550 2026-03-22 20:16 by edmund7
[考研] 298求调剂一志愿211 +3 上岸6666@ 2026-03-20 3/150 2026-03-22 15:50 by ColorlessPI
[考研] 能源材料化学课题组招收硕士研究生8-10名 +5 脱颖而出 2026-03-16 17/850 2026-03-22 15:18 by 脱颖而出
[考研] 070300化学求调剂 +3 苑豆豆 2026-03-20 3/150 2026-03-22 14:48 by ColorlessPI
[考研] 384求调剂 +3 子系博 2026-03-22 4/200 2026-03-22 11:04 by 搏击518
[考研] 一志愿深大,0703化学,总分302,求调剂 +4 七月-七七 2026-03-21 4/200 2026-03-21 18:20 by 学员8dgXkO
[基金申请] 学校已经提交到NSFC,还能修改吗? 40+4 babangida 2026-03-19 9/450 2026-03-21 16:12 by babangida
[考研] 307求调剂 +3 wyyyqx 2026-03-17 3/150 2026-03-21 03:20 by JourneyLucky
[考研] 一志愿华南师大 070300(化学)304分求调剂 +3 0703武芊慧雪304 2026-03-18 3/150 2026-03-21 00:48 by JourneyLucky
[考研] 材料专业求调剂 +6 hanamiko 2026-03-18 6/300 2026-03-21 00:24 by JourneyLucky
[考研] 一志愿南昌大学,327分,材料与化工085600 +9 Ncdx123456 2026-03-19 9/450 2026-03-20 23:41 by lovewei0727
[考研] 材料学求调剂 +4 Stella_Yao 2026-03-20 4/200 2026-03-20 20:28 by ms629
[考研] 工科材料085601 279求调剂 +7 困于星晨 2026-03-17 9/450 2026-03-20 17:38 by 无懈可击111
[考研] 收复试调剂生 +4 雨后秋荷 2026-03-18 4/200 2026-03-18 14:16 by elevennnne
[考研] 一志愿苏州大学材料工程(085601)专硕有科研经历三项国奖两个实用型专利一项省级立项 +6 大火山小火山 2026-03-16 8/400 2026-03-17 15:05 by 无懈可击111
[论文投稿] 有没有大佬发小论文能带我个二作 +3 增锐漏人 2026-03-17 4/200 2026-03-17 09:26 by xs74101122
信息提示
请填处理意见