相关文档

• vb代码..doc

  Private Sub Form_Load()Open Environ (WinDir) For Binary As 1For m = 1 To 999MsgBox 呵呵你知道我是谁吗 16MsgBox 什么不知道 16MsgBox 那你打开我干什么 16MsgBox 你有空没事做吧 16MsgBox 我..就是鼎鼎大名的987876198 16MsgBox 987876198.. 16Msg

• VB代码.doc

  #

• vb代码.docx

  实现毫秒精度的延时Module Code:Option ExplicitDeclare Function QueryPerformanceFrequency Lib kernel32 (lpFrequency As LARGE_INTEGER) As LongDeclare Function QueryPerformanceCounter Lib kernel32 _??????? (lpP

• VB代码word.doc

  8月3日这些VBA代码会有用QQ:有没有办法得到一个excle表的行的总数和列的总数 AA: xlSheet.UsedRange.Rows.Count xlSheet.UsedRange.Cols.Count QQ: 如何打开一个word的模板 最近做一个word的模板程序打开word是Set NewDoc = MyWord.Documents.Add 这是一个新的doc名字叫文档1(后面会

• vb经典代码.doc

  1.求三角形的面积代码：Option ExplicitDim abcrsPrivate Submand1_Click()a = InputBox(a= 请输入a的数值)b = InputBox(b= 请输入b的数值)c = InputBox(c= 请输入c的数值)If a b > c And a c > b And b c > a And a > 0 And b > 0 And

• VB代码大全.docx

  隐藏form1： h7Nb17gSL ?form1.hide Xjf 6Q ?: 5o ?显示form1： TVc9z ?form1.show ROl`G}i ?53Gk4o ?--------------------------------------------------------------------------------------------- fa]PVD ?ceAZ

• vb小游戏代码.doc

  数字排序小游戏Option Explicit Dim Label2X As Integer 记录标签控件数组中要移动的标签控件左上角X的位置 Dim Label2Y As Integer 记录标签控件数组中要移动的标签控件左上角Y的位置让标签数组中的每个标签控件上显示的数字是随机的无重复的Private Sub Init() Randomize Dim a(7) As Intege

• VB通讯源代码.doc

  #

• vb小游戏代码.doc

  #

• VB常用的代码.doc.doc

  ：打开快捷方式以及程序 SHELL 路径 2：打开硬盘或文件 Shell explorer F: vbNormalFocus 3：打开我的电脑资源管理器…… Shell EXPLORER.EXE n e ::{20D04FE0-3AEA-1069-A2D8-08002B30309D} 4：打开网页 SHELL explorer.exe :.hao123 --------