题目

VB中标准函数功能的实现是在VB内部通过相应的程序代码完成的。为了探索Val函数功能实现的原理，编写了以下程序。已知Val(“12”)的结果为12，即Val函数的功能是将字符型转换成数值型；而Val(“12AB”)和 Val(“12AB34”)的结果也为12，即在转换的时候如果遇到非数字符号就停止转换。编写模拟转换过程的时候，为简化程序，只考虑正整数的转换。运行程序时，在文本框Text1中输入字符串，点击命令按钮Command1后在文本框Text2中显示结果，运行结果如图所示。 VB程序如下，请回答以下问题： Private Sub Command1_Click()     Dim s As String, ch As String     Dim i As Integer     Dim r As Integer, result As Integer     Dim flag As Boolean     s = Text1.Text     i = 1:result = 0:flag = True     Do While         ch = Mid(s, i, 1)         r =    ①           If r > 9 Or r < 0 Then             flag = False         Else                ②          End If         i = i + 1     Loop     Text2.Text = Str(result) End Sub （1） 窗体对象的Caption属性值为： （2） 加框处语句有错，请改正： （3） 请将横线处的语句补充完整 ① ②  答案： 【1】Val函数原理探索 【1】i<=len(s) and flag 或 i<=len(s) and flag=true 【1】Asc(ch)-Asc(“0”)或Asc(ch)-48【2】result=result*10+r

查看本题答案和解析