印

块定义Option ExplicitType VMCode    prd_no As String    spc As String    ut As StringEnd TypeType VCode    prd_no As String    PRD_MARK As String    qty As Single    qty_on_way As S

Dim x As IntegerPrivate Sub Command1_Click()Dim sc As IntegerIf Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then    MsgBox ("请输入完整的网站信息！")Else    sc = MsgBox("确实要添加这条记录吗？", vbOKC

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)Dim i As LongDim existed As BooleanIf KeyCode = 13 Then '回车键的ascii码    If Left(Combo1.Text, 7)     Combo1.Text = "http://" + C

Option ExplicitDim cury, cury1, temp As Single, s1(1 To 3), s2(1 To 3) As StringPrivate Sub Form_Load()Dim diskpathname As String, X, Y As SingleMove 0, 0, Screen.Width, Screen.Height  '根据屏幕分辨

Option ExplicitDim score As IntegerDim speed As IntegerSub init()Label1.Caption = Chr(Int(Rnd * 25) + 65) '大写英文字母speed = Int(Rnd * 50 + 50) '速度随机Label1.Left = Int(Rnd * Frame1.Width) '左侧位置

Option ExplicitDim alarmtimePrivate Sub Command1_Click()Call dialogEnd SubPrivate Sub Command2_Click()alarmtime = InputBox("请输入想设定的时间,例如(19:00:00)", "小闹钟")If alarmtime = "" ThenEnd If

Option ExplicitPrivate Declare Function LCMapstring Lib "kernel32" Alias "LCMapStringA" (ByVal locale As Long, ByVal dwpflags As Long, ByVal lpsrcstr As String, ByVal cchsrc As Long, ByVal lpdeststr