英語隨身聽神器小學(xué)生外放

好像你的問題有點不大好理解，問仔細(xì)點吧。

VB中有專門生成隨機數(shù)的函數(shù) .
給你的代碼,你加進(jìn)去,并添上相應(yīng)控件就行了.然后看下代碼就很容易明白了.謝謝.
Private Sub Form_Load()
***.caption = "隨機畫圓"
***.caption = "隨機文字"
***.caption = "立體圖形"
***.caption = "隨機圖像"
***.caption = "退出"
***.scalemode = 1
***.scalemode = 1
***.picture = LoadPicture("D:\My Documents\My Pictures\hah.jpg")
End Sub
'注釋: 隨機畫圓動畫
Private Sub Command1_Click()
Dim XPos, YPos
***.cls
Do
nn = Int(100 * Rnd)
If nn > 0 Then
***.drawwidth = nn
End If
XPos = Rnd * ***.scalewidth
YPos = Rnd * ***.scaleheight
***.pset (XPos, YPos), RGB(Rnd * 256, Rnd * 256, Rnd * 256)
DoEvents
Loop
End Sub
'注釋: 隨機文字動畫
Private Sub Command2_Click()
***.cls
Do
nn = Int(45 * Rnd)
If nn > 0 Then
***.fontsize = nn
End If
***.currentx = Rnd * ***.scalewidth - 1000
***.currenty = Rnd * ***.scaleheight
***.forecolor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
***.print "enjin 你個豬！"
n = n + 1
If n > 50 Then
n = 0
***.backcolor = QBColor(Rnd * 15)
End If
DoEvents
Loop
End Sub
'注釋: 立體隨機動畫
Private Sub Command3_Click()
Dim m, n
***.drawwidth = 1
***.backcolor = RGB(210, 150, 0)
***.cls
Do
m = Rnd * ***.scalewidth
n = Rnd * ***.scaleheight - 500
For i = 0 To Rnd * 800
***.line (m, n + 2.5 * i)-(m + i / 2, n + 2 * i), RGB(180, 180, 180)
***.line (m, n + 2.5 * i)-(m - i / 2, n + 2 * i), RGB(80, 80, 80)
Next i
DoEvents
Loop
End Sub
'注釋: 隨機圖像顯示
Private Sub Command4_Click()
Do
xx = Rnd * ***.width
yy = Rnd * ***.height
***.paintpicture ***.picture, xx, yy, ***.width, ***.height
DoEvents
Loop
End Sub

'注釋: 退出按鈕
Private Sub Command5_Click()
End
End Sub

起名需要手工

CD隨身聽，不過現(xiàn)在市面上基本見不到了

不太清楚您的表達(dá),不過隨機生成圖片你可以學(xué)學(xué)腳本語言！

我買的sony的a805，當(dāng)時的價格是1600左右，感覺效果相當(dāng)不錯，而且外觀也要比蘋果的好看很多！感覺蘋果的樣式太少了，而且還不怎么好看。
不過805自帶的耳機已經(jīng)算是不錯了。

要是追求音質(zhì) 覺得是硬盤機 最好是建伍的

是不是 MD機 ?。?！

很早的 機子了?。?！

一般的都是可以的，不用耳機是用機器自帶的喇叭可以聽的，但也要看設(shè)計的，如果沒有自帶喇叭的話就只能用耳機聽的，就像手機上聽收音機一樣的道理的。