编程求数字之和,功能如下:在文本框Text1中输入由大小写英文字母和数字混合的字符串,要求程序自动计算数字之和,数字被单个的英文字母隔开(数字在一起的必须看成一个整体)。运行程序时,单击“计算”命令按钮Command1,在标签Label1中输出数字之和。程序运行界面如图所示,实现功能的VB代码如下:
请回答下列问题:
(1)
观察程序界面,该程序具备Caption属性的对象个数总共有个(填数字)。
(2)
在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, sum
As Integer
Dim i As Integer, j
As Integer
①
sum = 0
j = 0
For i = 1 To Len(s)
ch =
Mid(s, i, 1)
If ch
>= "0" And ch <= "9"
Then
j = ②
Else
sum =
sum + Val(Mid(s, i - j,
j))
j =
0
End
If
Next i
Label1.Caption = "数字之和为:" + Str(sum) End Sub
① ②
(3)
在文本框Text1中输入“12A4B6R3d20”,运行程序输出的结果是(仅填数字)。
答案: 【1】4
【1】s = Text1.Text【2】j + 1
【1】25