1.å¦ä½ç¨VBAå®ç°å¼¹åºçªå£
2.VB猜数字游戏程序源代码和思路只可以猜三次
å¦ä½ç¨VBAå®ç°å¼¹åºçªå£
å©ç¨msgboxæ¹æ³å³å¯å®ç°å¼¹åºï¼ç®å代ç å¦ä¸ï¼
Private Sub CommandButton1_Click()
MsgBox("å¼¹çªæ¼ç¤º",源码js收货地址源码 vbInformation + vbOkOnly, "è¿æ¯ä¸ä¸ªå¼¹åº")
End Sub
å ³äºæ¤ä¾ä¸ç¨å°çMsgboxçç¸å ³ç¥è¯ï¼
1ãä½ç¨
å¨æ¶æ¯æ¡ä¸æ¾ç¤ºä¿¡æ¯ï¼å¹¶çå¾ ç¨æ·åå»æé®ï¼å¯è¿ååå»çæé®å¼(æ¯å¦âç¡®å®âæè âåæ¶â)ãé常ç¨ä½æ¾ç¤ºåéå¼çä¸ç§æ¹å¼ã
2ãè¯æ³
MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])
åæ°è¯´æï¼
(1)Promptï¼å¿ éçåæ°ï¼ä¸ºå符串ï¼ä½ä¸ºæ¾ç¤ºå¨æ¶æ¯æ¡ä¸çæ¶æ¯ææ¬ãå ¶æ大é¿åº¦çº¦ä¸ºä¸ªå符ï¼ç±æç¨å符ç宽度å³å®ãå¦æpromptçå å®¹è¶ è¿ä¸è¡ï¼åå¯ä»¥å¨æ¯ä¸è¡ä¹é´ç¨å车符(Chr())ãæ¢è¡ç¬¦(Chr())ææ¯å车ä¸æ¢è¡ç¬¦çç»å(Chr()&Chr())å°åè¡åéå¼æ¥ã
(2)Buttonsï¼å¯éçåæ°ï¼ä¸ºæ°å¼è¡¨è¾¾å¼çå¼ä¹åï¼æå®æ¾ç¤ºçæé®çæ°ç®åå½¢å¼ã使ç¨çå¾æ æ ·å¼ã缺çæé®åæ¶æ¯æ¡ç强å¶ååºçï¼å¯ä»¥æ¤å®å¶æ¶æ¯æ¡ãè¥çç¥è¯¥åæ°ï¼åå ¶ç¼ºçå¼ä¸º0ã设置å¼è§ä¸è¡¨ã
(3)Titleï¼å¯éçåæ°ï¼è¡¨ç¤ºå¨æ¶æ¯æ¡çæ é¢æ ä¸ææ¾ç¤ºçææ¬ãè¥çç¥è¯¥åæ°ï¼åå°åºç¨ç¨åºåæ¾å¨æ é¢æ ä¸ã
(4)Helpfileï¼å¯éçåæ°ï¼ä¸ºå符串表达å¼ï¼æä¾å¸®å©æ件ãè¥æHelpfileï¼åå¿ é¡»æContextã
(5)Contextï¼å¯éçåæ°ï¼ä¸ºæ°å¼è¡¨è¾¾å¼ï¼æä¾å¸®å©ä¸»é¢ãè¥æContextï¼åå¿ é¡»æHelpfileã
3ãButtonåæ°
ç¨äºMsgBoxå½æ°ä¸Buttonåæ°ç常é
常é å¼ è¯´æ
vbOKOnly 0 åªæ¾ç¤ºâç¡®å®âæé®
VbOKCancel 1 æ¾ç¤ºâç¡®å®âåâåæ¶âæé®
VbAbortRetryIgnore 2 æ¾ç¤ºâç»æ¢âãâéè¯âåâ忽ç¥â æé®
VbYesNoCancel 3 æ¾ç¤ºâæ¯âãâå¦âåâåæ¶âæé®
VbYesNo 4 æ¾ç¤ºâæ¯âåâå¦âæé®
VbRetryCancel 5 æ¾ç¤ºâéè¯âåâåæ¶âæé®
VbCritical æ¾ç¤ºâå ³é®ä¿¡æ¯âå¾æ
VbQuestion æ¾ç¤ºâè¦å询é®âå¾æ
VbExclamation æ¾ç¤ºâè¦åæ¶æ¯âå¾æ
VbInformation æ¾ç¤ºâéç¥æ¶æ¯âå¾æ
vbDefaultButton1 0 第ä¸ä¸ªæé®æ¯ç¼ºçå¼(缺ç设置)
vbDefaultButton2 第äºä¸ªæé®æ¯ç¼ºçå¼
vbDefaultButton3 第ä¸ä¸ªæé®æ¯ç¼ºçå¼
vbDefaultButton4 第å个æé®æ¯ç¼ºçå¼
vbApplicationModal 0åºç¨ç¨åºå¼ºå¶è¿åï¼åºç¨ç¨åºä¸ç´è¢«æèµ·ï¼ç´å°ç¨æ·å¯¹æ¶æ¯æ¡
ä½åºååºæ继ç»å·¥ä½
vbSystemModal ç³»ç»å¼ºå¶è¿åï¼å ¨é¨åºç¨ç¨åºé½è¢«æèµ·ï¼ç´å°ç¨æ·å¯¹æ¶æ¯æ¡ä½
åºååºæ继ç»å·¥ä½
vbMsgBoxHelpButton å°Helpæé®æ·»å å°æ¶æ¯æ¡
VbMsgBoxSetForeground æå®æ¶æ¯æ¡çªå£ä½ä¸ºåæ¯çªå£
vbMsgBoxRight ææ¬ä¸ºå³å¯¹é½
vbMsgBoxRtlReading æå®ææ¬åºä¸ºå¨å¸ä¼¯æ¥åé¿æ伯è¯ç³»ç»ä¸çä»å³å°å·¦æ¾ç¤º
说æï¼
(1)第ä¸ç»å¼(0â5)æè¿°äºæ¶æ¯æ¡ä¸æ¾ç¤ºçæé®çç±»åä¸æ°ç®ï¼ç¬¬äºç»å¼(,,,)æè¿°äºå¾æ çæ ·å¼ï¼ç¬¬ä¸ç»å¼(0,,,)说æåªä¸ä¸ªæé®æ¯ç¼ºçå¼ï¼è第åç»å¼(0,)åå³å®æ¶æ¯æ¡ç强å¶è¿åæ§ãå°è¿äºæ°åç¸å 以çæButtonsåæ°å¼çæ¶åï¼åªè½ç±æ¯ç»å¼åç¨ä¸ä¸ªæ°åã
(2)è¿äºå¸¸æ°é½æ¯VBAæå®çï¼å¯ä»¥å¨ç¨åºä»£ç ä¸ä½¿ç¨è¿äºå¸¸æ°å称代æ¿å®é æ°å¼ã
4ãè¿åå¼
ç¨äºMsgBoxå½æ°è¿åå¼ç常é
å¸¸æ° å¼ è¯´æ
vbOK 1 ç¡®å®
vbCancel 2 åæ¶
vbAbort 3 ç»æ¢
vbRetry 4 éè¯
vbIgnore 5 忽ç¥
vbYes 6 æ¯
vbNo 7 å¦
5ãç¸å ³è¯´æ
(1) å¦æåæ¶æä¾äºHelpfileä¸Contextåæ°ï¼å¯ä»¥æF1é®æ¥æ¥çä¸Contextç¸åºç帮å©ä¸»é¢ï¼Excelé常ä¼å¨è¾å ¥æ¡ä¸èªå¨æ·»å ä¸ä¸ªå¸®å©(Help)æé®ã
(2)è¥å¨æ¶æ¯æ¡ä¸æ¾ç¤ºâåæ¶âæé®ï¼åæä¸ESCé®ä¸åå»âåæ¶âæé®ææç¸åãè¥æ¶æ¯æ¡ä¸æâ帮å©âæé®ï¼åæä¾ç¸å ³ç帮å©ä¿¡æ¯ã
(3)å¦æè¦è¾å ¥å¤ä¸ªåæ°å¹¶çç¥ä¸é´çæäºåæ°ï¼åå¿ é¡»å¨ç¸åºä½ç½®å å ¥éå·åç符ã
VB猜数字游戏程序源代码和思路只可以猜三次
根据你的补充,把上面的改了一下.
Private Sub Command1_Click()
Randomize
x = Int(Rnd * + 1)
Do While y < 3
y = y + 1
n = Val(InputBox(""))
If n = x Then
MsgBox "猜对了"
Exit Do
Else
If n > x Then
MsgBox "猜大了" & "已猜" & y & "次" & "还有" & 3 - y & "机会"
Else
MsgBox "猜小了" & "已猜" & y & "次" & "还有" & 3 - y & "机会"
End If
End If
Loop
End Sub