斯蒂芬大帝
lz说的不清楚啊!那个语句好几处毛病。是不是这样?Private Sub Form_Load()Dim dtp1 As String, dtm1 As StringForm1.AutoRedraw = TrueForm1.FontSize = 20Form1.ForeColor = &H7700FF'Form1.BorderStyle = 1dtp1 = "2003-1-10"dtm1 = "8:30:00"Print Left(dtp1, 4) & Right(Left(dtp1, 7), 2) & Right(dtp1, 2) & Left(dtm1, 2); Left(Right(dtm1, 5), 2)End Sub答案是:“20031-108:30”