vb小编程，急！！！！！！

补充：请各位大侠们快点，满意的话 再追加分。
		

追问：只要代码部分，能写几个是几个 谢谢。。。

答案：
'在程序中先设置     btOK.Style = 1 '设置按钮样式，因为这是只读属性，在程序中不能修改

Dim i As Integer

Const PI = 3.1415926

Dim a As Integer, b As Integer, rad As Double

Private Sub Form_Load()
    Timer1.Interval = 1000
    lblDate.Caption = Date '显示当前日期
    btOK.Picture = LoadPicture("d:\1.bmp") '载入图片
    lstNames.Clear '清空列表
    For i = 1 To 7
        cboltem.AddItem "第" & i & "项"
    Next
    cboltem.ListIndex = 5 '因为是从第0项开始添加的，所以第五项就是第六个
    
a = Me.ScaleWidth \ 2 '圆心X坐标
b = Me.ScaleHeight \ 2 '圆心Y坐标
rad = Atn(1) / 45 '1角度的弧度数
Me.DrawWidth = 2
Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()
Dim angle1 As Double, angle2 As Double, angle3 As Double
angle1 = ((Hour(Now) Mod 12) * 30 + Minute(Now) / 2 - 90) * rad '时针的角度
angle2 = (Minute(Now) * 6 + Second(Now) / 10 - 90) * rad '分针的角度
angle3 = (Second(Now) * 6 - 90) * rad '秒针的角度
Cls '清除画面，以便画下一秒的状态
Me.Circle (a, b), 720 '画石英钟轮廓
For i = 1 To 12
Me.CurrentX = a - IIf(i < 7, 115, 170) + 600 * Cos((i * 30 - 90) * rad) '刻度X坐标
Me.CurrentY = b - 90 + 600 * Sin((i * 30 - 90) * rad) '刻度Y坐标
Print i '画刻度
Next
Me.Line (a, b)-(a + 300 * Cos(angle1), b + 250 * Sin(angle1)), vbBlue '画时针
Me.Line (a, b)-(a + 400 * Cos(angle2), b + 550 * Sin(angle2)), vbBlue '画分针
Me.Line (a, b)-(a + 600 * Cos(angle3), b + 600 * Sin(angle3)), vbRed '画秒针
End Sub


'只能输入a-z
Private Sub TxtNum_KeyPress(KeyAscii As Integer)
    If KeyAscii < 97 Or KeyAscii > 122 Then
        KeyAscii = 0
    End If
End Sub
这个没法发上来，不是一个cpp能搞定的
4.cboltem.ListIndex = 5
5、

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii < 97 Or KeyAscii > 122 Then
            KeyAscii = 0
    End If

End Sub
'第一题答案
Private Sub Form_Load()
    Label1.Caption = Date
End Sub
'第二题答案 添加一个CommandButton控件 设置其Style=1 
Private Sub Form_Load()
    Command1.Picture = LoadPicture("C：\botoking.bmp")
End Sub
'第三题答案
Private Sub Form_Click()
    lstNames.Clear
End Sub
'第四题答案 添加一个Combo 设置其Style=1 代码如下：
Private Sub Form_Load()
    cboltem.AddItem "123"
    cboltem.AddItem "456"
    cboltem.AddItem "789"
    cboltem.AddItem "abc"
    cboltem.AddItem "def"
    cboltem.AddItem "ghi"
    cboltem.ListIndex = 5
End Sub
'第五题答案
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < 97 Or KeyAscii > 122 Then KeyAscii = 0
End Sub
1，将名为lblDate的Label空间显示的内容置为当前日期。
lblDate.Caption = Now()
2：通过程序设置按钮控件btOK的背景图片为“C：\botoking.bmp”
btOK.Picture=LoadPicture("C:\botoking.bmp")'我怎么记得这个好像是设置按钮文字为图片的
3:名字为lstNames的ListBox控件内容清空。
lstNames.Clear
4:假设名为cboltem的combobox控件中有七项内容，将第六项设置为当前显示窗口中的首条。
me.Caption=cboltem.List(5)'从0开始，第六项是5
5：控制TxtNum控件，要求输入的字符只能为a-z 
Private Sub TxtNum_KeyPress(KeyAscii As Integer)
if not ( (keyascii>=97 or keyascii<= 122) or (keyascii>=65 or keyascii <=90) ) then
'前一个判断小写字母，后一个判断大写字母
keyascii=0
end if
end sub

上一个：vb编程 问题 求1到100 之间的质数 要求在写入到一个txt文本文件输出
下一个：VB编程 输入一个整数，输出对应的图形 图形是用“*”构成的