VB 随机排列问题
老师布置了一个作业叫我们用VB做个和QQ登陆器差不多的键盘要有以下要求: 1、功能和QQ软键盘要一样 2、最重要的是每点一个键后,所有的键位都会随机变化 3、要有源码,不然不好回答老师的问题啊 好的话分可以在给。急!急!急!急! QQ 2
1。定义数组存储所有键位 dim keyNum(49) 2。每按下一个按键触发一次从数组取随机数事件 调用下面两个自定义函数 每一个按键都是一张图片。将图片名分别从0-49定义。比如 g 将image控件设置成数组 自定义函数 private function GetRndAry()'随机排列1-49数 ReDim keyNum(49) As Integer Dim rndIndex As Integer Dim num As Integer Dim rndFlag As Boolean rndIndex = 0 rndFlag = False Dim k As Integer While (rndIndex <= UBound(b)) Randomize num = Int(Rnd * 4 + 1) For k = 0 To rndIndex If num = b(k) Then rndFlag = True End If Next If rndFlag = False Then b(rndIndex) = num rndIndex = rndIndex + 1 End If rndFlag = False Wend end function private function Show() dim i for i=0 to 49 image。
picture=loadpicture( th+"\image\"+cstr(keyNum(i))+"。jpg") next i end function 只写了排列图片的方法,某些地方自修改。没有考虑键盘功能实现问题。时间关系。
建议你将此问题发布到专业的编程类论坛去问问
答:爆破有2个走向,一个是单体输出,一个是群体输出。而要想学精,不可能2个都要顾及。而震退和技能释放时间都应该放在技能数中间,应该属于公共技能。而步兵雷是群攻,应该...详情>>
答:线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问:电脑安装了VB6.0,为什么打开方式里面没有VB程序选项,进安装好的VB里去关联...
答:打开方式最下面还有一个《选择程序》,点开后查VB的安装目录的EXE,找到后直接打开,下次就会在打开方式里查到了详情>>