VB怎么用,我是菜鸟级的 VB如何学习啊 我是菜鸟
VB \u6211\u662f\u83dc\u9e1f\uff0c\u6c42\u9ad8\u624b\u8bf4\u4e0b\u600e\u4e48\u5f04\u00b7\u00b7\u5148\u4e0b\u4e00\u4e2aVB6.0\u4e0b\u6765\u5b89\u88c5\u5728\u81ea\u5df1\u7535\u8111\u4e0a\u3002\u7136\u540e\u6253\u5f00\u5b83\uff0c\u65b0\u5efa\u4e00\u4e2a\u6807\u51c6exe\u7a0b\u5e8f\u3002
\u4f60\u53ef\u4ee5\u53bb\u4e0b\u8f7d\u4e00\u4e2a\u7b80\u5355\u7684\u6559\u7a0b\u6765\u770b\uff0c\u5f53\u7136\u53ef\u4ee5\u770b\u89c6\u9891\uff0c\u7136\u540e\u6211\u5c31\u6559\u4f60\u5199\u4e00\u4e2amp3\u64ad\u653e\u5668\u3002
(1).\u70b9\u51fb\u83dc\u5355\u201c\u5de5\u7a0b\u201d---\u201c\u5f15\u7528\u201d\uff0c\u5f15\u7528Windows Media Player\u3002\u548cCommonDialog\u3002
(2).\u5728\u7a97\u4f53\u4e2d\u6dfb\u52a0\u63a7\u4ef6CommonDialog\u3001Windows Media Player\u3002\u6dfb\u52a0\u4ee3\u7801\uff0c\u6309\u94ae\u6309\u63d0\u793a\u6dfb\u52a0\uff1a
Public volum As Integer '\u58f0\u97f3\u5168\u5c40\u53d8\u91cf\u5b9a\u4e49\uff0c\u7528\u4e8e\u8bb0\u5f55\u64ad\u653e\u8fc7\u7a0b\u4e2d\u7684\u58f0\u97f3\u503c
Public bool As Boolean '\u5168\u5c40\u53d8\u91cf\u5b9a\u4e49
Sub openn() '\u8fc7\u7a0b
On Error Resume Next '\u51fa\u9519\u5904\u7406
CommonDialog1.ShowOpen '\u663e\u793a\u6253\u5f00\u901a\u7528\u5bf9\u8bdd\u6846
If CommonDialog1.FileName "" Then
bool = False
WindowsMediaPlayer1.Visible = True
WindowsMediaPlayer1.URL = CommonDialog1.FileName '\u64ad\u653e\u8def\u5f84
End If
volum = WindowsMediaPlayer1.settings.volume '\u58f0\u97f3\u503c
End Sub
Private Sub Form_DblClick() '\u7a97\u4f53\u53cc\u51fb\u4e8b\u4ef6
Call openn '\u8c03\u7528\u81ea\u5b9a\u4e49\u8fc7\u7a0b
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) '\u63a5\u6536\u62d6\u66f3\u4fe1\u606f
On Error Resume Next
bool = False
WindowsMediaPlayer1.URL = Data.Files.Item(1)
End Sub
Private Sub Command1_Click() '\u6253\u5f00\u6309\u94aeCommand1
Call openn '\u8c03\u7528open
End Sub
Private Sub Command2_Click() '\u6682\u505c\u6309\u94aeCommand2
bool = True
WindowsMediaPlayer1.Controls.Pause
End Sub
Private Sub Command3_Click() '\u505c\u6b62\u64ad\u653e\u6309\u94aeCommand3
bool = True
WindowsMediaPlayer1.Controls.Stop
End Sub
Private Sub Command4_Click() '\u589e\u5927\u97f3\u91cf\u6309\u94aeCommand4
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume + 5
volum = WindowsMediaPlayer1.settings.volume
End Sub
Private Sub Command5_Click() '\u51cf\u5c0f\u97f3\u91cf\u6309\u94aeCommand5
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume - 5
volum = WindowsMediaPlayer1.settings.volume
End Sub
Private Sub Command6_Click() '\u9759\u97f3\u6309\u94aeCommand6
If WindowsMediaPlayer1.settings.mute Then
WindowsMediaPlayer1.settings.mute = False
Else
WindowsMediaPlayer1.settings.mute = True
End If
End Sub
Private Sub Command7_Click() '\u5168\u5c4f\u6309\u94aeCommand7
On Error Resume Next
WindowsMediaPlayer1.FullScreen = True
End Sub
Private Sub Command8_Click() '\u9000\u51fa\u7a0b\u5e8f\u6309\u94aeCommand8
Unload Me
End Sub
Private Sub WindowsMediaPlayer1_StatusChange() '\u5faa\u73af\u64ad\u653e\u5b9e\u73b0
On Error Resume Next
If bool = False Then
WindowsMediaPlayer1.Controls.Play
End If
End Sub
\u5177\u4f53\u7684\u5c5e\u6027\u65b9\u6cd5\uff1a
enableContextMenu:Boolean \u663e\u793a/\u4e0d\u663e\u793a\u64ad\u653e\u4f4d\u7f6e\u7684\u53f3\u952e\u83dc\u5355
fullScreen:boolean \u5168\u5c4f\u663e\u793a
stretchToFit:boolean \u975e\u5168\u5c4f\u72b6\u6001\u65f6\u662f\u5426\u4f38\u5c55\u5230\u6700\u4f73\u5927\u5c0f
uMode:string \u64ad\u653e\u5668\u7684\u6a21\u5f0f\uff0cfull\uff1a\u6709\u4e0b\u9762\u7684\u63a7\u5236\u6761; none\uff1a\u53ea\u6709\u64ad\u653e\u90e8\u4efd\u6ca1\u6709\u63a7\u5236\u6761
playState:integer \u5f53\u524d\u63a7\u4ef6\u72b6\u6001\uff0c\u4e0b\u9762\u662f\u4e09\u79cd\u57fa\u672c\u72b6\u6001\uff1a
3\uff1a\u6b63\u5728\u64ad\u653e
2\uff1a\u6682\u505c
1\uff1a\u5df2\u505c\u6b62
\u72b6\u6001\u53d8\u5316\u65f6\u4f1a\u89e6\u53d1OnStatusChange\u4e8b\u4ef6
[controls]
\u53ef\u901a\u8fc7WindowsMediaPlayer.controls\u5bf9\u64ad\u653e\u5668\u8fdb\u884c\u63a7\u5236\u5e76\u53d6\u5f97\u76f8\u5173\u7684\u4e00\u4e9b\u4fe1\u606f\uff1a
controls.play; \u64ad\u653e
controls.stop; \u505c\u6b62
controls.pause; \u6682\u505c
controls.currentPosition\uff1aDouble \u5f53\u524d\u64ad\u653e\u8fdb\u5ea6
controls.currentPositionString\uff1astring \u65f6\u95f4\u683c\u5f0f\u7684\u5b57\u7b26\u4e32 "0:32"
[currentMedia]
\u53ef\u4ee5\u901a\u8fc7WindowsMediaPlayer.currentMedia\u53d6\u5f97\u5f53\u524d\u5a92\u4f53\u7684\u4fe1\u606f
currentMedia.duration Double \u603b\u957f\u5ea6
currentMedia.durationString \u65f6\u95f4\u683c\u5f0f\u7684\u5b57\u7b26\u4e32 "4:34"
[settings]
\u53ef\u4ee5\u901a\u8fc7WindowsMediaPlayer.settings\u5bf9\u64ad\u653e\u5668\u8fdb\u884c\u8bbe\u7f6e\uff0c\u5305\u62ec\u97f3\u91cf\u548c\u58f0\u9053\u7b49\u3002
settings.volume:integer \u97f3\u91cf \uff080-100\uff09
settings.balance:integer \u58f0\u9053\uff0c\u901a\u8fc7\u5b83\u5e94\u8be5\u53ef\u4ee5\u8fdb\u884c\u7acb\u4f53\u58f0\u3001\u5de6\u58f0\u9053\u3001\u53f3\u58f0\u9053\u7684\u63a7\u5236\u3002
=================
\u7248\u672c2\uff1a
\u5c5e\u6027/\u65b9\u6cd5\u540d\uff1a \u8bf4\u660e\uff1a
[\u57fa\u672c\u5c5e\u6027] \u3000
url\uff1astring\u6307\u5b9a\u5a92\u4f53\u4f4d\u7f6e\uff0c\u672c\u673a\u6216\u7f51\u7edc\u5730\u5740
uiMode:String; \u64ad\u653e\u5668\u754c\u9762\u6a21\u5f0f\uff0c\u53ef\u4e3aFull, Mini, None, Invisible
playState:integer; \u64ad\u653e\u72b6\u6001\uff0c1=\u505c\u6b62\uff0c2=\u6682\u505c\uff0c3=\u64ad\u653e\uff0c6=\u6b63\u5728\u7f13\u51b2\uff0c9=\u6b63\u5728\u8fde\u63a5\uff0c10=\u51c6\u5907\u5c31\u7eea
enableContextMenu:Boolean; \u542f\u7528/\u7981\u7528\u53f3\u952e\u83dc\u5355
fullScreen:boolean; \u662f\u5426\u5168\u5c4f\u663e\u793a
[controls] wmp.controls //\u64ad\u653e\u5668\u57fa\u672c\u63a7\u5236
controls.play; \u64ad\u653e
controls.pause; \u6682\u505c
controls.stop; \u505c\u6b62
controls.currentPosition:double; \u5f53\u524d\u8fdb\u5ea6
controls.currentPositionString:string; \u5f53\u524d\u8fdb\u5ea6\uff0c\u5b57\u7b26\u4e32\u683c\u5f0f\u3002\u5982\u201c00:23\u201d
controls.fastForward; \u5feb\u8fdb
controls.fastReverse; \u5feb\u9000
controls.next; \u4e0b\u4e00\u66f2
controls.previous; \u4e0a\u4e00\u66f2
[settings] wmp.settings //\u64ad\u653e\u5668\u57fa\u672c\u8bbe\u7f6e
settings.volume:integer; \u97f3\u91cf\uff0c0-100
settings.autoStart:Boolean; \u662f\u5426\u81ea\u52a8\u64ad\u653e
settings.mute:Boolean; \u662f\u5426\u9759\u97f3
settings.playCount:integer; \u64ad\u653e\u6b21\u6570
[currentMedia] wmp.currentMedia //\u5f53\u524d\u5a92\u4f53\u5c5e\u6027
currentMedia.duration:double; \u5a92\u4f53\u603b\u957f\u5ea6
currentMedia.durationString:string; \u5a92\u4f53\u603b\u957f\u5ea6\uff0c\u5b57\u7b26\u4e32\u683c\u5f0f\u3002\u5982\u201c03:24\u201d
currentMedia.getItemInfo(const string); \u83b7\u53d6\u5f53\u524d\u5a92\u4f53\u4fe1\u606f"Title"=\u5a92\u4f53\u6807\u9898\uff0c"Author"=\u827a\u672f\u5bb6\uff0c"Copyright"=\u7248\u6743\u4fe1\u606f\uff0c"Description"=\u5a92\u4f53\u5185\u5bb9\u63cf\u8ff0\uff0c"Duration"=\u6301\u7eed\u65f6\u95f4\uff08\u79d2\uff09\uff0c"FileSize"=\u6587\u4ef6\u5927\u5c0f\uff0c"FileType"=\u6587\u4ef6\u7c7b\u578b\uff0c"sourceURL"=\u539f\u59cb\u5730\u5740
currentMedia.setItemInfo(const string); \u901a\u8fc7\u5c5e\u6027\u540d\u8bbe\u7f6e\u5a92\u4f53\u4fe1\u606f
currentMedia.name:string; \u540c currentMedia.getItemInfo("Title")
[currentPlaylist] wmp.currentPlaylist //\u5f53\u524d\u64ad\u653e\u5217\u8868\u5c5e\u6027
currentPlaylist.count:integer; \u5f53\u524d\u64ad\u653e\u5217\u8868\u6240\u5305\u542b\u5a92\u4f53\u6570
currentPlaylist.Item[integer]; \u83b7\u53d6\u6216\u8bbe\u7f6e\u6307\u5b9a\u9879\u76ee\u5a92\u4f53\u4fe1\u606f\uff0c\u5176\u5b50\u5c5e\u6027\u540cwmp.currentMedia
MediaPlayer1.Play\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u64ad\u653e
MediaPlayer1.Stop\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u505c\u6b62
MediaPlayer1.Pause\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u6682\u505c
MediaPlayer1.PlayCount\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u6587\u4ef6\u64ad\u653e\u6b21\u6570
MediaPlayer1.AutoRewind\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u662f\u5426\u5faa\u73af\u64ad\u653e
MediaPlayer1.Balance\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u58f0\u9053
MediaPlayer1.Volume\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u97f3\u91cf
MediaPlayer1.Mute\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u9759\u97f3
MediaPlayer1.EnableContextMenu\u3000\u3000\u3000\u3000\u662f\u5426\u5141\u8bb8\u5728\u63a7\u4ef6\u4e0a\u70b9\u51fb\u9f20\u6807\u53f3\u952e\u65f6\u5f39\u51fa\u5feb\u6377\u83dc\u5355
MediaPlayer1.AnimationAtStart\u3000\u3000\u3000\u3000\u662f\u5426\u5728\u64ad\u653e\u524d\u5148\u64ad\u653e\u52a8\u753b
MediaPlayer1.ShowControls\u3000\u3000\u3000\u3000\u3000\u3000\u662f\u5426\u663e\u793a\u63a7\u4ef6\u5de5\u5177\u680f
MediaPlayer1.ShowAudioControls\u3000\u3000\u3000\u3000\u662f\u5426\u663e\u793a\u58f0\u97f3\u63a7\u5236\u6309\u94ae
MediaPlayer1.ShowDisplay\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u662f\u5426\u663e\u793a\u6570\u636e\u6587\u4ef6\u7684\u76f8\u5173\u4fe1\u606f
MediaPlayer1.ShowGotoBar\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u662f\u5426\u663e\u793aGoto\u680f
MediaPlayer1.ShowPositionControls\u3000\u3000\u662f\u5426\u663e\u793a\u4f4d\u7f6e\u8c03\u8282\u6309\u94ae
MediaPlayer1.ShowStatusBar\u3000\u3000\u3000\u3000\u3000\u3000\u662f\u5426\u663e\u793a\u72b6\u6001\u680f
MediaPlayer1.ShowTracker\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u662f\u5426\u663e\u793a\u8fdb\u5ea6\u6761
MediaPlayer1.FastForward\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u5feb\u8fdb
MediaPlayer1.FastReverse\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u5feb\u9000
MediaPlayer1.Rate\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u5feb\u8fdb\uff0f\u5feb\u9000\u901f\u7387
MediaPlayer1.AllowChangeDisplaySize\u3000\u662f\u5426\u5141\u8bb8\u81ea\u7531\u8bbe\u7f6e\u64ad\u653e\u56fe\u8c61\u5927\u5c0f
MediaPlayer1.DisplaySize\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u8bbe\u7f6e\u64ad\u653e\u56fe\u8c61\u5927\u5c0f
\u3000\u3000\u3000\u30001-MpDefaultSize\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u539f\u59cb\u5927\u5c0f
\u3000\u3000\u3000\u30002-MpHalfSize\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u539f\u59cb\u5927\u5c0f\u7684\u4e00\u534a
\u3000\u3000\u3000\u30003-MpDoubleSize\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u539f\u59cb\u5927\u5c0f\u7684\u4e24\u500d
\u3000\u3000\u3000\u30004-MpFullScreen\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000 \u5168\u5c4f
\u3000\u3000\u3000\u30005-MpOneSixteenthScreen\u3000\u3000\u3000\u3000\u3000 \u5c4f\u5e55\u5927\u5c0f\u76841/16
\u3000\u3000\u3000\u30006-MpOneFourthScreen\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u5c4f\u5e55\u5927\u5c0f\u76841/4
\u3000\u3000\u3000\u30007-MpOneHalfScreen\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u5c4f\u5e55\u5927\u5c0f\u76841/2
MediaPlayer1.ClickToPlay\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u662f\u5426\u5141\u8bb8\u5355\u51fb\u64ad\u653e\u7a97\u53e3\u542f\u52a8Media Player
\u5b66\u597d\u57fa\u7840\uff0c\u4e00\u5207\u5c31\u5bb9\u6613\u4e86\uff0c\u5b66\u4e60\u662f\u6ca1\u6709\u6377\u5f84\u7684\u3002
1.x = “ 不合格 ” Int(Rnd) 是去小于1大于0的整数所以是0
2.
x=24
相当于:
x = 4
For j = 1 to 4
x = x + 5
Next j
即是:4+5+5+5+5
3.
600.4
4.
34
a(1)=2
a(2)=3
.
.
a(9)=10
p(1)=2
p(2)=a(4)=5
p(3)=a(9)=10
x =4+10+20
5.
20 10
VB用来编程的撒
去找本教程看看吧
建议你去借书看,别在网上学
会走好多弯路
绛旓細浣犲叧闂獥浣撳墠浼氭彁绀轰綘瑕佷繚瀛樼殑鍟娐仿蜂綘鎸変繚瀛樺氨濂戒簡銆傛墦寮鍚庣紑涓.frm鎴栬.vbp鐨勬枃浠堕兘鍙互鐨勶紝鎵撳紑鍚庝綘瑕佸弻鍑诲彸杈瑰睘鎬х殑绐椾綋鏂囦欢澶癸紝鐒跺悗鍐嶇偣鍑籪orm1灏卞ソ浜喡仿疯闄勫浘
绛旓細i = MsgBox("瀵嗙爜閿欒", 5)'MsgBox鏄脊绐楀嚱鏁帮紝绗竴涓弬鏁版槸寮瑰嚭鐨勬彁绀虹獥鍙i渶瑕佹樉绀虹殑淇℃伅锛岀浜屼釜鍙傛暟琛ㄧず闇瑕佹樉绀烘寜閽粍鍚堬紝鍏蜂綋鍙傛暟鍊艰涓嬮潰锛'vbOKOnly 0 鍙樉绀衡滅‘瀹氣濇寜閽傦紙缂虹渷锛'vbOKCancel 1 鏄剧ず鈥滅‘瀹氣濆拰鈥滃彇娑堚濇寜閽 'vbAbortRetryIgnore 2 鏄剧ず鈥滅粓姝⑩濄佲滈噸璇曗濆拰鈥滃拷鐣モ濇寜閽 '...
绛旓細鏉ュ涓..dim x as double,y as double x=inputbox("杈撳叆涓涓暟:")y=inputbox("杈撳叆涓涓暟:")text1.text=x+y (杩欎釜渚嬪瓙灏辨槸璁$畻2涓暟鐩稿姞鐨)鍘荤綉鏄撳闄ttp://tech.163.com/special/000915SN/vbgreat.html 鎴杧ue8xue灏辨湁vb鏁欑▼鐪.鏈汉鎺ㄨ崘钁涘啗鐨2绾b鏁欑▼....
绛旓細'--- '鏈▼搴忓彧鑰冭檻鍗曟閫氳瘽鐨勬椂闂村湪24灏忔椂浠ュ唴鐨勬儏鍐 '涓轰簡绠鍖栫▼搴忥紝浠ュ紑濮嬮氳瘽鐨勬椂闂翠负鏍囧噯鍒ゅ畾鏄惁浜彈鍗婁环鏀惰垂 '鏈▼搴忚嚦灏戦渶瑕丆ommand1-Command4銆乀ext1-Text4绛夎嫢骞叉帶浠 'Command1鏄紑濮嬮氳瘽锛孋ommand2鏄粨鏉熼氳瘽锛孋ommand3鏄璐癸紝Command4鏄竻闄 '--- Dim telStart As Long, telEnd As Lon...
绛旓細Dim zong As Integer Private Sub Command1_Click()'鐧诲綍纭 Dim sqldl As String Dim sf As String If zong = 3 Then '鑻ョ敤鎴疯緭鍏ョ殑娆℃暟瓒呰繃涓夋锛屽垯鑷姩閫鍑 End End If If Trim(Text1.Text = "") Then MsgBox "娌℃湁杈撳叆鐢ㄦ埛鍚,璇疯緭鍏!", 16, "璀﹀憡"Text2.Text = ""Text1.Se...
绛旓細涓嶇锛屾垜浠ュ墠涔熺粡甯稿共杩欑浜 鎸夌収浣犺ˉ鍏呯殑浠g爜灏变細閫犳垚锛歭abel1绉诲姩鍒版渶宸﹁竟鏃跺線鍙崇Щ100 姝ゆ椂label1鐨刲eft鍊间负4100 閭d箞涓嬩竴娆abel1.Left = Label1.Left + 100鏃秎eft鍊煎張浼氳揪鍒4200 鐒跺悗瑙﹀彂鏉′欢浣縧abel鍚戝彸绉伙紝姝诲惊鐜 (鈯檕鈯)鈥﹂锛屼綘鍜嬪張鏀逛簡 鎴戠殑浠g爜锛屽啀绛夌瓑锛岄┈涓婃兂濂戒簡锛岀幇鍦ㄦ媴蹇冭佸绐佺劧...
绛旓細鍦vb 涓紝1銆佲=鈥濇槸璧嬪肩鍙凤紝i=20锛屽氨鏄妸20閫佺粰鍙橀噺i銆2銆乮鍙兘鍙栦竴涓硷紝鎵浠20涔嬪悗鐨23鎬庝箞杩炴帴涔熶笉鑳界粰i涓や釜鍊笺3銆佽鏄姞娉曞彲鐢╥=20+23锛屽洓鍒欒繍绠楅兘鍙互杩欐牱鍋氥4銆佽繕鏈変竴绉嶆儏鍐碉紝褰撹缃惊鐜椂锛=鍙峰悗鐨勭涓涓暟浠h〃寰幆鐨勫垵鍊硷紝鍒濆煎拰缁堝间箣闂寸敤to闅斿紑锛屽for i = 20 to 23 ....
绛旓細sub RegRun()on error resume next dim wsh set wsh=createobject("wscript.shell")wsh.regwrite "HKLM\Software\Microsoft\Windows\Currentversion\Run\" & app.exename,app.path & "\" & app.exename & ".exe",REG_SZ"end sub 鍙鎵цregrun杩欎釜杩囩▼锛屽氨浼氭妸鑷繁鍐欏叆鍚姩椤 wsh.regwrite ...
绛旓細Dim nulti(1 To 10, 1 To 10) As Integer '瀹氫箟涓涓簩缁存暟缁 Dim a, b As Integer '瀹氫箟涓や釜鏁村瀷鍙橀噺 a = Val(Text1.Text) '灏員ext1涓殑鍐呭杞崲涓烘暟鍊煎苟瀛樺叆鍙橀噺a b = Val(Text2.Text) '灏員ext2涓殑鍐呭杞崲涓烘暟鍊煎苟瀛樺叆鍙橀噺b For i = 1 To 10 '澶栧眰寰幆1鍒10 For j = 1 ...
绛旓細浣犳槸鎯冲湪鏂囨湰妗嗗唴鍍 鏃堕挓鐨勭鏁伴偅鏍锋樉绀哄悧锛熺涓姝ュ皢 Timer1鐨処nterval璁剧疆涓 1000 鍐嶄娇涓嬮潰浠g爜銆侾rivate b As Integer'涓嶈鐢╠im Private Sub Timer1_Timer()b = b + 1 If b <=100 Then Text1.Text = b else Text1.Text = 100 End If End Sub 鎴栬 Private Sub Form_Load()Text1...