试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:困难

浙教版高一信息技术 专题五:VB程序设计

小李用VB编写了一个VB程序,在文本框Text1中输入任意字串s,单击命令按钮Command1,统计s中以各连续数字字串为一因子的数字之和。如输入字符串 “ast23bcde567fg8”,则输出598,即23+567+8,并在Text2中输出结果。程序界面如图所示。代码如下:

(1)、若要将文本框的默认值设为空,则应设置文本框的属性为空。
(2)、为实现上述功能的VB程序,请在划线处填写合适的代码。

Private Sub Command1_Click()

 Dim s As String, a As String, b As String

 Dim p As Integer, sum As Integer

 s=Text1.Text + "e"  ′加一个结尾非数字字符

 i=1

 p=0

 sum=0

 Do While i<Len(s)

  a=Mid(s,i,1)

  b=Mid(s,i+1,1)

  If (a>="0" And  a<="9") And (b>="0" And  b<="9") Then

   p=p*10+Val(a)

  

   p=p*10+Val(a)

   sum=sum+p

  

   i=i+1

  End If

  i=i+1

 Loop

 Text2.Text=Str(sum)

End Sub

(3)、若输入字符串是“a2b056789bc8”,则程序运行后显示的结果是:
举一反三
返回首页

试题篮