vb程序，熟练的帮忙做点

做不来，希望有谁能帮我做少一点

要源代码，全部都做完再加分

10、创建一个名为“窗体变幻”的窗体，单击窗体时，窗体变成红色，且逐渐变大，双击窗体时，窗体变成绿色，且逐渐变小。

11、编程解如下问题：点击窗体后在窗体上画出如下菱形

▲

▲▲▲　

▲▲▲▲▲ 　　　　　　　

▲▲▲▲▲▲▲ 　 　　　 　　　　　

▲▲▲▲▲▲▲▲▲ 　　　

▲▲▲▲▲▲▲▲▲▲▲ 　

　▼▼▼▼▼▼▼▼▼

　▼▼▼▼▼▼▼

　▼▼▼▼▼

▼▼▼

　 ▼

12、随机产生10个随机两位整数，把它们打印在窗体上，然后找出最大和最小的两个数并输出。

13、用输入函数InputBox()输入十个数，先在窗体上打印出这十个数，然后将它们按从低到高的次序排序以后输出。（调试程序的10个数为：584、100、58、642、789、147、999、510、681、234）。

14、在窗体Form1上建立一个文本框和一个控件数组，在文本框中的文字为“欢迎你，VB编程易做图!”，控件数组由四个命令按钮组成，标题分别为“宋体”、“仿宋体”、“楷体”、“黑体”， 程序时，点击不同的命令按钮， 文本框中的文字的字形和颜色随着变化。

15、创建一个窗体Form1（Caption：文本编辑窗口编辑字体的颜色和字形），在此窗体上创建5个框架控件Frame1（Caption：字体颜色）、Frame2（Caption：字体样式）、Frame3（Caption：字体字形）、Frame4（Caption：字体字号）和Frame5（Caption：对齐方式），再在窗体上建立一个文本框Text1（Text：心想事成）。在框架控件Frame1内建立由名为“红色”、“绿色”、“蓝色”组成的单选按钮数组；在框架控件Frame2内建立由名为“粗体”、“斜体”、“下划线”组成的复选框按钮数组；在框架控件Frame3内建立由名为“宋体”、“楷体”、“仿宋体”、“黑体”、“隶书”组成的单选按钮数组；在框架控件Frame4内建立由名为“10”、“14”、“18”、“22”、“26”组成的单选按钮数组；在框架控件Frame5内建立由名为“左对齐”、“右对齐”、“居中对齐”组成的单选按钮数组。编程解决：点击有关单选按钮时，文本框内的文本会作出相对应的变化。

16、［思考题2］ 设计一个职工情况录入登记界面，单击相应单选扭和复选框，可以把职工的基本情况输入电脑。

17、创建一个窗体Form1（Caption：改变字号），在此窗体上创建2个标签、1个文本框和1个水平滚动条水平滚动条，界面如下图，要求程序运行时，能通过移动滚动条中的滚动块来滚动条改变文本框中的数值和标签中文字的大小（12－72）。完成后把窗体和工程以默认名保存到“E:\自己学号姓名\QZ－12”文件夹。

18、创建一个窗体Form1（Caption：组合框的应用），在此窗体上创建1个文本框和1个组合框，界面如下图，要求程序运行时，能通过组合框选项，在文本框中显示当前系统日期和时间。

19、创建一个窗体Form1（Caption：线段控件的应用），在此窗体上创建5条线段组成1个五角星，并在窗体上创建1个名为“颜色”的组合框，程序运行后，五角星线条的颜色随着组合框选择的颜色而变化。

20、创建一个窗体Form1（Caption：三色配比），在此窗体上创建4个标签、1个命令按钮和1个滚动条控件数组（由3个滚动条组成）、1个框架、1个形状控件，界面如下图，要求程序运行时，移动3个滚动条，使形状控件产生自己满意的颜色，再点击“确定”命令按钮，标签耳中的文字“坚持就是胜利”的变成你所选定的颜色。完成后把窗体和工程以默认名保存到“E:\自己学号姓名\QZ－28”文件夹。

补充：现在还有14，18，19没有做

追问：非常感谢的你帮忙。根据你的代码这题已经完成了！

答案：第10题：“窗体变幻” 解答
1、新建窗体如下：
    窗体：form1
    name = "form1"
    caption = "窗体变幻"
    按钮：command1
    name = "command1"
    caption = "退出"
    标签：label1
    name = "label1"
    caption = "单击窗体时，窗体变成红色，且逐渐变大，双击窗体时，窗体变成绿色，且逐渐变小。" 
    计时器Timer：timer1
    name = "timer1"
2、将以下代码拷贝到窗体（form1）的代码窗口（code）中：
Option Explicit
Private ToBigOrSmall As Boolean '记录当前变化是变大（TRUE）还是变小（FALSE）
Private StepScale As Double '记录窗体宽高比例
    
Const MaxWidth = 21600  '窗体最大宽度
Const MinWidth = 900    '窗体最小宽度
Const Step = 100 '每次变化的增减量
Const Interval = 0.5 '每次变化间隔时间（单位秒）
Private Sub Command1_Click()
    End '结束程序并退出
End Sub
Private Sub Form_Click()
    '单击窗体变大
    ToBigOrSmall = True
    Me.BackColor = vbRed    '窗体背景色变成红色
    Me.Timer1.Enabled = True
End Sub
Private Sub Form_DblClick()
    '双击窗体变小
    ToBigOrSmall = False
    Me.BackColor = vbGreen '窗体背景色变成绿色
    Me.Timer1.Enabled = True
End Sub
Private Sub Form_Load()
    
    Me.Timer1.Interval = Interval * 1000
    Me.Timer1.Enabled = False
End Sub
'窗体变大
Private Sub ToBig()
    Me.Width = Me.Width + Step * StepScale
    Me.Height = Me.Height + Step
    
End Sub
'窗体变小
Private Sub ToSmall()
    Me.Width = Me.Width - Step * StepScale
    Me.Height = Me.Height - Step
    
End Sub
Private Sub Form_Resize()
    StepScale = Me.Width / Me.Height
End Sub
Private Sub Timer1_Timer()
    If ToBigOrSmall = True Then
        If Me.Width > MaxWidth Then
            Me.Timer1.Enabled = False
            MsgBox "窗体最大了！"
            Exit Sub
        End If
        Call ToBig
    Else
        If Me.Width < MinWidth Then
            Me.Timer1.Enabled = False
            MsgBox "窗体最小了！"
            Exit Sub
        End If
        Call ToSmall
    End If
End Sub
''代码结束
若需要编制好的源代码请提供邮箱。
你不是有了吗~~还叫别人做~~我晕你啊~~~~

上一个：关于VB的几个问题 想请教下
下一个：请问各位大侠！VB怎么复习？