vb不死不休的编程

显示全部楼层 · 2013-1-7 23:40:45

实测了一下，满意请采纳，谢谢 Dim istopPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Command1_Click()Randomize TimerDim play1, play2Dim play1xue, play2xueistop = 0play1 = InputBox("玩家1姓名")If LTrim(play1) = "" Then play1 = "PLAY1"play2 = InputBox("玩家2姓名")If LTrim(play2) = "" Then play...

千问 · 2013-1-7 23:40:45

B太结实了，A会死得很快。加加减减的简单编程，自己去做吧。按钮command1.caption="start"command2.caption="stop"列表list1.additem "xxxxx"随机数rnd...