英语三年级英语随身听神器

好像你的问题有点不大好理解，问仔细点吧。

VB中有专门生成随机数的函数 .
给你的代码,你加进去,并添上相应控件就行了.然后看下代码就很容易明白了.谢谢.
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随身听，不过现在市面上基本见不到了

不太清楚您的表达,不过随机生成图片你可以学学脚本语言！

我买的sony的a805，当时的价格是1600左右，感觉效果相当不错，而且外观也要比苹果的好看很多！感觉苹果的样式太少了，而且还不怎么好看。
不过805自带的耳机已经算是不错了。

要是追求音质 觉得是硬盘机 最好是建伍的

是不是 MD机 啊！！

很早的 机子了啊！！

一般的都是可以的，不用耳机是用机器自带的喇叭可以听的，但也要看设计的，如果没有自带喇叭的话就只能用耳机听的，就像手机上听收音机一样的道理的。