整理2006.4.1二级vb考试资料的结论

（6）把窗口的标题改为“圆角矩形”,在form中添加一个圆角矩形的Shape1,并设置填充颜色为&HFF00，高1000，宽2000
┌────────
├────────
│     
│   ┏────┓
│   │               │
│   │               │
│   ┕────┛
│         
└───────
属性设置:
Name   │   属性     │     值
───┼────┼─────
Form1  │Caption    │圆角矩形
───┼────┼─────
            │BackStyle │1-Opaque
Shape1│BackColor │&HFF00
            │Width       │2000  
            │Height      │1000
            │Shape      │4-Rounded Rectangle
（7）在窗口中已经添加了所有控件，单击开始通话按钮，则在Text1中显示通话时间(通话时间每秒加1),单击停止通话按扭，停止计时，单击计算话费按扭调用sub1过程,要求：
   (1)每个事件只能写一条语句
   (2)不能使用变量
********************************************************************************

属性设置:
Name   │   属性     │     值
───┼────┼─────
Timer1 │Enabled    │False
            │Interval   │ 1000
代码：
'开始通话按钮
Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub
'停止通话按钮
Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub
'计算话费
Private Sub Command3_Click()
    Call Sub1
End Sub
'计时器
Private Sub Timer1_Timer()
    Text1.Text = Val(Text1.Text) + 1
End Sub
(8)--------------------------------------------------------------------------------
不用变量，如何将两图片框中的图片交换？
提示：
P1.Picture = LoadPicture("文件名 ")
P2.Picture = LoadPicture(" 文件名")

全国等级计算机考试网二级vb板块整理