VB编程:利用数组随机抽取幸运观众-32
运行效果:
程序代码:
Private Sub Command1_Click()
Dim myarray() As String
Dim myrows
With Text1
myarray = Split(.Text, vbCrLf)
myrows = UBound(myarray)
Randomize
Text2.Text = Text2.Text & vbCrLf & myarray(Int(Rnd * myrows + 1))
End With
End Sub
Private Sub Form_Load()
Text1.Text = "请输入抽奖名单:" & vbCrLf & _
"张飞" & vbCrLf & _
"关与" & vbCrLf & _
"六倍" & vbCrLf & _
"诸葛" & vbCrLf & _
"曹操" & vbCrLf & _
"孙权"
Text2.Text = "幸运观众:"
End Sub
学习心得:
1、Rnd 函数返回小于 1 但大于或等于 0 的值。即Rnd取值 [0,1)。
2、Randomize 语句初始化随机数生成器,该生成器具有根据系统计时器得到的种子。
3、为了生成某个范围内的随机整数,可使用以下公式:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限。
取值为:[lowerbound,upperbound]
相关文章
- c语言编程-----指向二维数组的指针
- JAVA编程思想读书笔记(四)--对象的克隆
- android 编程时,如何在Eclipse中查看Android源码或者第三方组件包源码
- iOS6定位服务编程详解
- c语言编程-----指向二维数组的指针
- Python编程:为世界贡献你的轮子-pipy打包
- VB编程:全局变量&控件数组实例简单计算器-12
- VB编程:数组中删除数组元素-27
- VB编程:UBound获取数组上限;LBound获取数组下限-25
- VB编程:对数组进行二分查找-29_彭世瑜_新浪博客
- VB编程:巧用常量定义数组-37_彭世瑜_新浪博客
- VB编程:利用数组设置MSFlexGrid表头和列宽-34_彭世瑜_新浪博客
- VB编程:利用控件数组设置控件状态-38
- VB编程:利用二位数组MSHFlexGrid表格添加数据-33_彭世瑜_新浪博客
- 在四川大学的第二个冠军游戏在线编程:Peter的X
- 编程之美2.17 数组循环移位
- 387集Go语言核心编程培训视频教材整理 | 数组和切片(二)
- 387集Go语言核心编程培训视频教材整理 | 数组和切片
- LabVIEW编程LabVIEW开发 CRC16-CCITT- False校验 表例程与相关资料
- LabVIEW编程LabVIEW控制MMC-100位移台例程与相关资料
- LabVIEW编程LabVIEW控制Keithley 2400例程与相关资料
- 常见编程/框架介绍
- C#异步编程2
- Ubuntu下C、C++进程间的编程