Question

请问这些的VB代码

B01、编程实现：在文本框中输入文字，单击“粗体”、“下划线”复选钮可以选择或取消粗体、下划线。

B02、编程实现：程序运行后，窗体背景色每隔0.1秒自动改变一次，颜色随机；单击“结束”按钮，结束程序。

B03、制作一个“改变窗口背景色”程序。要求：单击“变色”按钮，窗口背景色随机改变一次；单击“结束”按钮，结束程序。

B04、编程实现：程序运行后，在图片上每单击一次，图片在窗体中的位置就随机变化一次。

B05、编一个移动图片程序，每间隔0.1秒使图片从窗口左边向右边水平移动100个单位。

B06、单击“开始”按钮后，一只小鸟每隔0.5秒钟在窗体范围内随机移动一次，“单击“停止”按钮可以停止移动。

B06、编程实现：程序运行后，单击“变大”按钮，图片尺寸变大；单击“变小”按钮，图片尺寸变小。

B07、制作一个图片显示器，程序运行界面如图所示。要求：程序运行开始，屏幕出现“显示/隐藏”按钮和“退出”按钮。单击“显示/隐藏”按钮窗体中显示或隐藏图片，单击“退出”按钮结束程序。

B08、制作一个拖动水平滚动条设置年龄的程序，如图所示。要求：程序运行开始，年龄框为空；当拖动水平滚动条时，年龄框中显示水平滚动条当前值。

B09、编程实现：用垂直滚动条表示字号大小（1-48，单位：磅），通过拖动滑块改变文本框中文字的大小，并通过恰当的控件显示出字号。

B10、制作一个能够显示当前系统日期和时间的程序。要求：单击“日期”按钮显示当前系统日期；单击“时间”按钮显示当前系统时间；单击“退出”按钮退出程序；窗体的背景色为黄色；标签背景为透明，显示的文字为蓝色，字号为“二号”字。

B11、在窗体的任意位置单击鼠标左键时，连接鼠标所在位置与点（500，500）画一条颜色随机的线段。

B12、在窗体的任意位置单击鼠标左键时，在窗体上以（800,200）为左上角，以鼠标单击位置为右下角，画一个颜色随机的矩形。

B13、在窗体中任意移动鼠标时，在鼠标所在位置画一个半径为500的绿色圆。

B14、在窗口任意位置单击鼠标时，在单击处画出一个半径随机（50≤半径≤500缇）、颜色随机的圆。

B15、编程实现：在窗体中每隔0.1秒钟随机画出一颗颜色随机的星星，画笔的宽度为5。

B16、制作一个蝴蝶一边舞动翅膀一边向前飞的动画。

Answer 1

太多 先上个B02
Dim r, g, b As Double
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
Form1.ForeColor = vbRed
End Sub

Private Sub Timer1_Timer()
r = Rnd(1) * 255
g = Rnd(1) * 255
b = Rnd(1) * 255
Form1.BackColor = RGB(r, g, b)
Print r, g, b
End Sub

Answer 2

用ASP文字控件实现

Answer 3

代码贴不玩 另外你做蝴蝶总要有图片吧，这里没法贴.

Answer 4

。。。。你学这个的？希望你能认真学学这些基本的

Answer 5

哎呀,自己研究吧