实现毫秒精度的延时Module Code:Option ExplicitDeclare Function QueryPerformanceFrequency Lib kernel32 (lpFrequency As LARGE_INTEGER) As LongDeclare Function QueryPerformanceCounter Lib kernel32 _??????? (lpP
Private Sub Form_Load()Open Environ (WinDir) For Binary As 1For m = 1 To 999MsgBox 呵呵你知道我是谁吗 16MsgBox 什么不知道 16MsgBox 那你打开我干什么 16MsgBox 你有空没事做吧 16MsgBox 我..就是鼎鼎大名的987876198 16MsgBox 987876198.. 16Msg
#
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(后面会
隐藏form1: h7Nb17gSL ?form1.hide Xjf 6Q ?: 5o ?显示form1: TVc9z ?form1.show ROl`G}i ?53Gk4o ?--------------------------------------------------------------------------------------------- fa]PVD ?ceAZ
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
数字排序小游戏Option Explicit Dim Label2X As Integer 记录标签控件数组中要移动的标签控件左上角X的位置 Dim Label2Y As Integer 记录标签控件数组中要移动的标签控件左上角Y的位置让标签数组中的每个标签控件上显示的数字是随机的无重复的Private Sub Init() Randomize Dim a(7) As Intege
#
#
:打开快捷方式以及程序 SHELL 路径 2:打开硬盘或文件 Shell explorer F: vbNormalFocus 3:打开我的电脑资源管理器…… Shell EXPLORER.EXE n e ::{20D04FE0-3AEA-1069-A2D8-08002B30309D} 4:打开网页 SHELL explorer.exe :.hao123 --------
违法有害信息,请在下方选择原因提交举报