- 博客(8)
- 收藏
- 关注
原创 植物大战僵尸
Dim Key, arrintCao, arrintx, lngIndex, pptx, pptyDim hwnd, strTitle, arrColorarrintCao = Array(49, 50, 51, 52, 53, 81, 87, 69, 82, 84, 65)arrintx = Array(113, 164, 215, 266, 317, 368, 419, 470
2011-12-05 22:46:54
639
原创 password2
Option ExplicitDim strOrder, strText, strResult, intCount, intIndexDim arrModule()Dim objFSODim objStreamConst vbFileName = "C:/Documents and Settings/ajx/桌面/NewText.txt"Set objFSO = CreateObject("Scripting.FileSystemObject")If Not objFSO.FileExists(vbFile
2011-02-25 18:29:00
540
原创 买大小
Option ExplicitDim strGamePoint(5), strUserMsg, rNumberstrGamePoint(0) = _"┌───┐" & vbNewLine & _"│ │" & vbNewLine & _"│ ● │" & vbNewLine & _"│ │" & vbNewLine & _"└───┘"strGamePoint(1) = _"┌───┐" & vbNewLine & _"│ ● │" & vbNewLine & _"│
2010-11-14 23:57:00
469
原创 Entry aircraft
Option ExplicitDim arrstrAirCraft(), arrstrDate(), lngCount, lngIndexlngCount = GetCount<br />For lngIndex = 0 To lngCount - 1<br /> ReDim Preserve arrstrAirCraft(lngIndex)<br /> arrstrAirCraft(lngIndex) = GetName(lngIndex + 1)<br />NextSortIndex<br
2010-06-30 10:54:00
312
原创 password
Option ExplicitDim arrstrDict, strPassWord, intPassTime, boolLoopAgainConst INT_PASS_PLACE = 6arrstrDict = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", _"b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", _"q", "r", "
2010-06-30 10:50:00
331
原创 反应力测试
Option ExplicitDim WshShell, lngResult, intCount, strData, arrstrData, strPresentationDim datTimeNow, arrstrPortrait(14), arrstrTitle, arrstrJoke(3)Dim intIndex, btnCodeConst STR_CHEETAH = "Your rank is *** Cheetah ***. That's very fast!"Const STR_EAGLE =
2010-06-14 00:13:00
1690
原创 1-100能被x整除的数显示在桌面
<br />Option Explicit<br /> <br />Dim lngUserNumber, strStockpileBox, strResult(30)<br /> <br />lngUserNumber = GetUserNumber<br /> <br />GetTheResult<br />ClearUpResult<br />DisplayResult<br /> <br />Sub GetTheResult<br /> Dim lngCount<br /> For lng
2010-06-13 22:51:00
477
原创 分配1到10不重复的数
Option ExplicitDim lngNumber, Count, MemoryBoxConst LOOP_ON = TrueConst LOOP_OFF = FalseFor Count = 0 To 9 CreateNumber MsgBox lngNumberNextFunction GetNumber Random
2010-04-22 00:10:00
479
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人