Int(n+Rnd*(m-n+1))产çnï¼måºé´å
çéæºæ´æ°
Mid(å符串,n,m)næ¯èµ·å§ä½ç½®ï¼mæ¯é¿åº¦ï¼è¿émå1
è¾å
¥ç¨n=Inputbox(æ示æåï¼æ é¢æåï¼é¢çå¼)
m=Inputbox(æ示æåï¼æ é¢æåï¼é¢çå¼)
è¾åºç¨Msgboxï¼æ示æåâè¿éæ示æåå°±æ¯è¾åºçå符串",æ é¢æåï¼
å
¶ä»é¨åå¾ç®åï¼èªå·±æ³æ³å°±ååºæ¥äºï¼
为äºå®¹æç解ï¼æè¿æ¯åäºä¸ä»½ï¼
Dim n As Integer, m As Integer, a As Integer, x As String, y As String, z As String
n = InputBox("è¾å
¥n", "è¾å
¥nå°mä¹é´çä¸ä½æ°")
m = InputBox("è¾å
¥m", "è¾å
¥nå°mä¹é´çä¸ä½æ°")
a = Int(n + Rnd * (m - n + 1))
x = Mid(a, 1, 1)
y = Mid(a, 2, 1)
z = Mid(a, 3, 1)
w = z + y + x
MsgBox "éæºæ°ä¸º" & a & Chr(13) & Chr(10) & "ååºæ°ä¸º" & w, , "ç»æå¦ä¸"
追é®ä¸¾ä¾{(1,5),6},{(6,9),7},å³nè½å¨1,5åºé´æ¶m为6ï¼nè½å¨6,9åºé´æ¶m为7ããæä¹å®ä¹è¿æ ·çæ°æ®ç»æå¢?
ä½ ä¸é¢é£ä¸ªçæ¡æè§åªæ¯äº§çéæºæ°çã
2018 104:ææ¾å°çæ¡äºï¼å°±æ¯å®ä¹ä¸ä¸ªäºç»´æ°ç»ï¼ä¸æ¤åæ¶å®ä¹ä¸ä¸ªç¸åºçä¸å
æ°ç»ï¼ç¡®ç«mçæ¹æ³æ¯å
æ ¹æ®néåäºç»´æ°ç»ï¼å¾å°ç´¢å¼åï¼ä½¿ç¨è¿ä¸ªç´¢å¼æ¥ç´¢å¼ä¸ç»´æ°ç»ï¼å°±å¯ä»¥äº