联系我们

工作时间: 8:30 - 22:00

客服电话: 400-660-0108

kefu@csdn.net 在线客服

关于我们
招贤纳士
商务合作
寻求报道
协议专区

友情链接
视觉中国
500px
直聘网
优设网
CSDN文库
CSDN下载
CSDN问答
京ICP备19004658号
经营性网站备案信息
公安备案号11010502030143
营业执照
北京互联网违法和不良信息举报中心
家长监护
中国互联网举报中心
网络110报警服务
Chrome商店下载
账号管理规范
版权与免责声明
版权申诉
出版物许可证
©1999-2026北京创新乐知网络技术有限公司

全部
Ada助手

社区 >VB基础类 >帖子详情

请大家帮忙！

2007-12-01 03:51:53 99 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

mousepade 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网我也要 → 关注 + 加入社区

matlab 图像合成_用MATLAB做图像合成加雾的处理众所周知，现在有很多算法来对图像进行去雾处理。但反之，对图像增加雾的代码却少之又少，本代码就是基于Matlab实现了对图像的加雾处理。该方法可用做雾天图像的合成数据集。代码公开如下：clear;clc; % close all; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%i... 阅读详情

马上要过圣诞了！
公司办公室的要组织一次活动，要求做个抽奖程序，想用VB做个无重复的抽奖程序，抽奖活动分一等奖，二等奖，三等奖，分3次抽出，每次抽一人，怎么才能实现无重复抽取呢？没人只有一次中奖机会。请各位帮帮忙呀！

...全文

配置赞助广告

ChatGPT Plus完整开通指南：从账号注册到稳定使用全流程自然语言处理（NLP）技术通过深度学习模型实现对人类语言的理解与生成，其核心原理是基于Transformer架构的大规模预训练。GPT-4作为当前最先进的生成式AI模型，在代码编写、文档分析等场景展现出显著的技术价值。在实际应用中，稳定的网络环境和合规的支付方式是确保AI助手持续服务的关键因素。针对ChatGPT Plus的开通，需要系统性地解决账号验证、虚拟信用卡支付等工程实践问题，才能实现工作流的高效整合。阅读详情

相关推荐

大家好,白纸一张请下载!

大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!大家好,白纸一张请下载!

对HANOI问题的详细程序描述！如果你有觉得有问题的地方请指教！希望能帮助你！

对百鸡问题的详细程序描述！如果你有觉得有问题的地方请指教！希望能帮助你，你也知道这门课很难学吧！

lifeilihuilijia

保护眼睛的软件真好请下载吧！

在纵多的软件当中，这是唯一的健康软件。请大家下载吧！

EA中文版试用，请购买！压缩包3

EA中文版试用，请购买！压缩包3 EA中文版试用，请购买！压缩包3 EA中文版试用，请购买！压缩包3 EA中文版试用，请购买！压缩包3

EA中文版试用，请购买！压缩包2

EA中文版试用，请购买！压缩包2 EA中文版试用，请购买！压缩包2 EA中文版试用，请购买！压缩包2

2

已收藏

请大家帮忙！

马上要过圣诞了！公司办公室的要组织一次活动，要求做个抽奖程序，想用VB做个无重复的抽奖程序，抽奖活动分一等奖，二等奖，三等奖，分3次抽出，每次抽一人，怎么才能实现无重复抽取呢？没人只有一次中奖机会。请各位帮帮忙呀！

复制链接

扫一扫

返回顶部

VB基础类 · 7,788 成员 · 197,583 内容

+ 关注 + 加入社区

评论 2

切换为时间正序

of123 2007-12-01

打赏
举报

回复

这样：窗体上放一个可以输入人数的文本编辑框，一个 Label，一个 ComboBox，两个按钮（启动，停止）。
Option Explicit
Dim k As Integer

Private Sub Command1_Click()
Text1.Locked = True

Label1.Caption = IIf(k = 1, "一", IIf(k = 2, "二", "三")) & "等奖"
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Dim n As Integer

Timer1.Enabled = False
Randomize
n = Rnd * Combo1.ListCount
Text1 = Combo1.List(n - 1)
Combo1.RemoveItem n

k = k - 1
If k = 0 Then
Command1.Enabled = False
Command2.Enabled = False
End If
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To Val(Text1)
Combo1.AddItem i
Next i
Combo1.Visible = False
Timer1.Enabled = False
Timer1.Interval = 50

Label1.Font.Size = 24
Label1.Alignment = 2
Label1.AutoSize = True
Label1 = "三等奖"

Text1.Alignment = 2
Text1.Font.Size = 24
Text1.Font.Bold = True

k = 3
End Sub

Private Sub Timer1_Timer()
Dim p As Integer

Randomize
p = Rnd * Combo1.ListCount
Text1 = Combo1.List(p - 1)
End Sub

tingting1123 2007-12-01

打赏
举报

回复

抽一次把抽到的数字除去就可以了啊这个简单.