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

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

VB中有專門生成隨機(jī)數(shù)的函數(shù) .
給你的代碼,你加進(jìn)去,并添上相應(yīng)控件就行了.然后看下代碼就很容易明白了.謝謝.
Private Sub Form_Load()
***.caption = "隨機(jī)畫圓"
***.caption = "隨機(jī)文字"
***.caption = "立體圖形"
***.caption = "隨機(jī)圖像"
***.caption = "退出"
***.scalemode = 1
***.scalemode = 1
***.picture = LoadPicture("D:\My Documents\My Pictures\hah.jpg")
End Sub
'注釋: 隨機(jī)畫圓動(dòng)畫
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
'注釋: 隨機(jī)文字動(dòng)畫
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 你個(gè)豬！"
n = n + 1
If n > 50 Then
n = 0
***.backcolor = QBColor(Rnd * 15)
End If
DoEvents
Loop
End Sub
'注釋: 立體隨機(jī)動(dòng)畫
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
'注釋: 隨機(jī)圖像顯示
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á),不過隨機(jī)生成圖片你可以學(xué)學(xué)腳本語言！

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

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

是不是 MD機(jī) ?。?！

很早的 機(jī)子了?。?！

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