通话开始时间：text1。text=time() 通话计时：先添加一个timer控件，然后把interval属性设为1000，这样就可以计时了 可以这样设计：添加2个command控件用来做开始计时和结束的控制按钮，把command1的caption命名为 通话，command2命名为 挂断，enabled设为false，把timer的enabled属性设为false，interval属性设为1000 代码如下： Dim a,b,c As Integer '定义全局变量 Private Sub Command1_Click() Text1。
Text = "" Text2。Text = "" Text3。Text = "" Text1。Text = Time '通话的开始时间 Timer1。Enabled = True Command2。Enabled = True Command1。
Enabled = False End Sub Private Sub Command2_Click() Timer1。Enabled = False Command1。Enabled = True Command2。Enabled = False End Sub Private Sub Form_Load() a = 0 b = 0 c = 0 End Sub Private Sub Timer1_Timer() Text2。
Text = Time '这个用来显示现在时间 '下面的是显示通话计时 a = a + 1 If a >= 60 Then a = 0 b = b + 1 If b >= 60 Then b = 0 c = c + 1 End If End If If a < 10 And b < 10 And c < 10 Then Text3。
Text = "0" & c & ":0" & b & ":0" & a ElseIf c < 10 And b < 10 Then Text3。Text = "0" & c & ":0" & b & ":" & a ElseIf c < 10 And a < 10 Then Text3。
Text = "0" & c & ":" & b & ":0" & a ElseIf a < 10 And b < 10 Then Text3。Text = c & ":0" & b & ":0" & a Else Text3。Text = c & ":" & b & ":" & a End If End Sub 还有什么地方不懂的可以发消息给我。
答：一般来说写数学公式 都是在word的平台上来写的 例如 上面 有X2 2一个在上面 还有一个X2下下面 X在上面 就是 ***的平方 立方 X2下面 ...详情>>
