jmfs.net
当前位置:首页>>关于怎么用vb编个随机抽取人名的小程序,做到不重复并...的资料>>

怎么用vb编个随机抽取人名的小程序,做到不重复并...

Dim n As Integer Dim a() Private Sub Command1_Click() If n = 0 Then '第点击执行 m = Val(Text1) ReDim a(1 To m) For i = 1 To m '数组a元素1至mm数 a(i) = i Next For i = 1 To m - 1 '随机打乱数组a元素 r = Int(Rnd * m + 1) tmp = a(i)...

Dim n As IntegerDim a()Private Sub Command1_Click() If n = 0 Then '第一次点击时执行 m = Val(Text1) ReDim a(1 To m) For i = 1 To m '生成数组a,元素为1至m这m个数 a(i) = i Next For i = 1 To m - 1 '随机打乱数组a中元素 r = Int(Rnd *...

Private Sub Command1_Click() Label1 = "" Label1 = 1 + Int(1000 * Rnd) End Sub

你可以建立两个全局变量,一个叫“现在位置”,一个叫“上次位置”。每采集一次数据就把“现在位置”复制到“上次位置”中,新采集到的位置保存在“现在位置”中。剩下的就是简单的比较了。

Dim zhi1 as Integer Dim zhi2 as Integer zhi1 =Int(100*Rnd) zhi2 =Int(100*Rnd) Print “结果算式:" & zhi1 & “+" & zhi2 & “=" & zhi1 + zhi2 //把上面代码的过程放到一个按钮事件就可以了。 Rnd是会随机生成一个大于等于0小于1的一个随机单...

可以做,私我

vb6代码如下,添加模块,工程--属性--启动对象选择sub main Sub main() Open "c:\temp\25.txt" For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode) End Sub

利用workwheet的change方法 Private Sub Worksheet_Change(ByVal Target As Range) '''' 代码中充分利用Target这个参数和这个参数的VALUE、ROW、COLOUME等属性,用于判断正在被编辑的单元格的位置 '''' 一般还会用到application.WorksheetFunctio...

使用timer控件和随机函数就好了!

使用VB编写整人小游戏程序,可以参考如下:更改中文即可。 Private Sub Form_Load() Dim wood As String MsgBox "谁是猪", vbCritical, "提示" '这里写捉弄人的话 wood = InputBox("请输入答案:") If wood = "我" Then '答案可以自己设 End Else...

网站首页 | 网站地图
All rights reserved Powered by www.jmfs.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com