VB编程高手进
vb\u7f16\u7a0b\u9ad8\u624b\u8fdb\u4e3a\u4e86\u5e94\u4ed8\u8003\u8bd5\uff1f\u4f5c\u4e1a\uff1f
\u7ae5\u978b\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u96be\uff0c\u4e3a\u4ec0\u4e48\u81ea\u5df1\u4e0d\u52a8\u624b\u8bd5\u8bd5\u5462\u3002
Private Sub Command1_Click()
Sum = 1
If IsNumeric(Text1.Text) Then '\u5224\u65ad\u6587\u672c\u6846\u8f93\u5165\u7684\u662f\u4e0d\u662f\u6570\u5b57
If Abs(CLng(Text1.Text)) = CDbl(Text1.Text) Then '\u5224\u65ad\u662f\u4e0d\u662f\u975e\u8d1f\u6574\u6570
If CLng(Text1.Text) > 0 Then '\u5224\u65ad\u662f\u4e0d\u662f0
For i = 1 To CLng(Text1.Text) '\u8ba1\u7b97
Sum = Sum * (2 * i - 1)
Next
MsgBox Sum
Else '\u8f93\u5165\u7684\u662f0
MsgBox "\u8bf7\u8f93\u5165\u6b63\u6574\u6570"
Text1.SetFocus '\u8bbe\u7f6e\u7126\u70b9
Text1.SelStart = 0 '\u9009\u4e2d\u6587\u672c
Text1.SelLength = Len(Text1.Text)
End If
Else '\u8f93\u5165\u7684\u662f\u5c0f\u6570\u6216\u8005\u8d1f\u6570
MsgBox "\u8bf7\u8f93\u5165\u6b63\u6574\u6570"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
Else '\u8f93\u5165\u7684\u4e0d\u662f\u6570\u5b57
MsgBox "\u8bf7\u8f93\u5165\u6b63\u6574\u6570"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub
代码:
dim i1,i2 as integer
mkdir "E:\新建文件夹"
for i1 = 0 to 9
mkdir "E:\新建文件夹\" & i1
for i2 = 0 to 9
mkdir "E:\新建文件夹\" & i1 & "\" & i2
next i2
next i1
真是个无聊的程序,不会是用来恶搞吧?给你一个嵌套两层的代码,你可以参考一下。需要引用"Microsoft Scripting Runtime"
Dim FSO As FileSystemObject
Dim Fd As Folder
Private Sub Command1_Click()
Dim Str As String
Dim I, J As Integer
Set FSO = New FileSystemObject
Str = "E:\Test\"
For I = 0 To 1
If FSO.FolderExists(Str & I) Then FSO.DeleteFolder Str & I
FSO.CreateFolder Str & I
For J = 0 To 1
FSO.CreateFolder Str & I & "\" & J
Next J
Next I
Set FSO = Nothing
End Sub
你的硬盘有多大?我估计你建不到10层,就会提示没有空间的。
因为建一个文件需要32K,=3*10^4,你再建10层需要3*10^14个字节空间=3*10^5G=300T.我的机器连半个T都没有。也就是说我的计算机连7层都建不了,就会告诉没有空间了。
另外你按照2楼的程序做即可
绛旓細寤轰竴涓狢ommand1,Text1,Text2,Text3 锛岃姹俆ext2,Text3鐨凪ultiline锛漈rue .浠g爜濡備笅銆傦紳锛濓紳 Const t = "涓浜屼笁鍥涗簲鍏"Private Sub Command1_Click()Dim a, b, c, i As Integer, e As String, s As Long, j As Integer a = Split(Text1.Text, "+")b = Split(Text2.Text, vbCrLf...
绛旓細閽╁瓙(Hook)锛屾槸Windows娑堟伅澶勭悊鏈哄埗鐨勪竴涓钩鍙,搴旂敤绋嬪簭鍙互鍦ㄤ笂闈㈣缃瓙绋嬩互鐩戣鎸囧畾绐楀彛鐨勬煇绉嶆秷鎭紝鑰屼笖鎵鐩戣鐨勭獥鍙e彲浠ユ槸鍏朵粬杩涚▼鎵鍒涘缓鐨勩傚綋娑堟伅鍒拌揪鍚庯紝鍦ㄧ洰鏍囩獥鍙e鐞嗗嚱鏁颁箣鍓嶅鐞嗗畠銆傞挬瀛愭満鍒跺厑璁稿簲鐢ㄧ▼搴忔埅鑾峰鐞唚indow娑堟伅鎴栫壒瀹氫簨浠躲傞挬瀛愬疄闄呬笂鏄竴涓鐞嗘秷鎭殑绋嬪簭娈碉紝閫氳繃绯荤粺璋冪敤锛屾妸瀹冩寕鍏ョ郴...
绛旓細绗1涓紝鐢⊿plit鍑芥暟鎸夎鎷嗗垎 varLines = Split(Text1.text, vbCrLf)For Each varLine In varLines 鈥樹綘鑷繁鐨勪唬鐮 Next 绗2涓 瑕佸厛鎶婂唴瀹逛繚瀛樺埌鏂囦欢鎴栬呮敞鍐岃〃閲岄潰锛岀▼搴忚繍琛屾椂璇诲彇灏卞彲浠ヤ簡
绛旓細涓撻棬涓轰綘鍐欎簡鏈绠鍗曠殑閽╁瓙浠g爜锛屼綘鐪嬩竴涓嬪氨瀛︿細浜嗐'娑堟伅绫诲瀷涓鑸互WH_寮澶达紝鍙敤API娴忚鍣ㄦ煡寰 '搴曞眰榧犳爣閽╁瓙,鍙互鎹曡幏杩涚▼澶栫殑榧犳爣娑堟伅 Private Const WH_MOUSE_LL As Long = 14 Private hHook As Long '閽╁瓙鐨勫彞鏌 Private Sub Form_Load()'鍥涗釜鍙傛暟:1.娑堟伅绫诲瀷 2.閽╁瓙鍑芥暟鐨勫湴鍧 3.杩...
绛旓細棣栧厛鍒涘缓涓涓 妯″潡锛屽湪閲岄潰杈撳叆涓嬮潰鐨勪唬鐮侊細'***By 闄堥攼 '杩欐槸涓涓搷浣滄敞鍐岃〃鐨凚as鏂囦欢,鍏朵腑鍖呭惈鍙互寤虹珛鏂伴敭鍊,鍒犻櫎 '閿,鏌ヨ閿肩殑鍑芥暟.'Web Site: http://www.nease.net/~blackcat 'EMail: [email protected] Option Explicit Global Const REG_SZ As Long = 1 Global Const REG_DWORD A...
绛旓細WM_ENTERMENULOOP = $0211; 鍙戦佹娑堟伅閫氱煡搴旂敤绋嬪簭鐨勪富绐楀彛that宸茬粡杩涘叆浜嗚彍鍗曞惊鐜ā寮 WM_EXITMENULOOP = $0212; 鍙戦佹娑堟伅閫氱煡搴旂敤绋嬪簭鐨勪富绐楀彛that宸查鍑轰簡鑿滃崟寰幆妯″紡 WM_NEXTMENU = $0213; WM_SIZING = 532; 褰撶敤鎴锋鍦ㄨ皟鏁寸獥鍙eぇ灏忔椂鍙戦佹娑堟伅缁欑獥鍙;閫氳繃姝ゆ秷鎭簲鐢ㄧ▼搴忓彲浠ョ洃瑙嗙獥鍙eぇ灏忓拰浣嶇疆涔熷彲浠ヤ慨鏀...
绛旓細print a;"*";b;"=";c 绗竴鍙ワ細a鏄竴涓彉閲忥紝缁欏畠璧嬪2 璇存槑锛氾紙1锛夊彉閲忔槸涓涓唬鍙凤紝瀹冨ソ鍍忔柟绋嬩腑鐨剎涓鏍疯兘浠h〃涓嶅悓鐨勬暟銆佸笺傦紙2锛夌瓑鍙(=)鏄竴涓祴鍊肩鍙凤紝瀹冩槸璁╃瓑鍙峰乏杈圭殑鍙橀噺绛変簬鍙宠竟鐨勫硷紙娉ㄦ剰涓瀹氭槸涓涓湁纭畾鍊肩殑鏁板瓧鎴栧彉閲忥級銆俛=2璧嬪煎悗锛屼互鍚庡啀鐢ㄥ埌2锛屽彲浠ョ敤a浠f浛锛屼互鍚庤嫢鍐...
绛旓細鎸夐挳1 杈撳嚭涓婇潰鐨勬暟瀛椾笁瑙掑舰 鎸夐挳2杈撳嚭涓嬮潰鐨勬暟瀛椾笁瑙掑舰 浠g爜涓 閲囩敤宓屽寰幆 Tab鍑芥暟浣滅敤鏄帶鍒朵笅涓涓鎵撳嵃鐨勫瓧绗﹁緭鍑虹殑浣嶇疆 tab(1)灏辨槸鍦ㄧ涓鍒楄緭鍑 Print Tab(36); 杩欓噷灏辨槸鍦ㄧ36鍒楄緭鍑 鍚庨潰鐨勫垎鍙锋剰鎬濇槸涓嬩竴涓墦鍗扮殑鍐呭绱ф帴鍦ㄥ悗闈笉鎹㈣ print 鍚庨潰娌″唴瀹瑰氨鏄崲琛岀殑浣滅敤 For i = 9 To...
绛旓細鍦ㄧ獥鍙e彸杈规湁涓涓滃睘鎬р濇爮 閫変腑picturebox 锛屽弻鍑烩滃睘鎬р濇爮鐨凱icture閫夐」锛岄夋嫨鍥剧墖鏂囦欢銆傞棶棰樹簩锛歋hell "explorer 瀹屾暣缃戦〉鍦板潃"
绛旓細'璁捐緭鍑洪殢鏈烘暟鐨勬枃鏈涓簍xt_suiji,'杈撳嚭鍋舵暟鐨勬枃鏈涓簍xt_oushu,'杈撳嚭濂囨暟鐨勬枃鏈涓簍xt_jishu,'杈撳嚭绱犳暟鐨勬枃鏈涓簍xt_sushu,'浣嗘槸...姣忚鍗佷釜...楹荤儲涓嶉夯鐑﹀憖??'鏂囨湰妗嗙殑multiline 灞炴ц寰楄涓簍rue鍝!Dim suijishu(79) As Integer '瀛樻斁闅忔満鏁扮殑鏁扮粍 Dim sushu(79) As Integer '瀛樻斁...