题目

有如下程序段 Private Sub Command1_ Click()     Dim s As String,a As String,b As String     Dim t As Long,sum As Long     s= Text1. Text+".”     t=0: sum= 0     For i=1 To Len(s)- 1         a= Mid(s, i, 1)         b= Mid(s, i+1, 1)         If (a>= "0" Anda<= "9") And (b >= "0" And b <= "9") Then             t=t * 10+ Val(a)         ElseIf (a >= "O" And a <= "9") And(b<= "0" Or b>= "9") Then             t=t *10+Val(a)             sum= sum- t             t=0         End If     Next i Text2.Text= Str( sum) End Sub 程序运行时，在文本框Text1中输入“yy2019mm03dd12”，单击按钮Command1后，在文本框Text2中显示的内容为(    ) A . 20190312 B . 2322 C . -2304 D . -2034 答案：D

查看本题答案和解析