7、bel1_Change()
Label1.Caption=str(Len(Text1.Text))
EndSub第10页共10页2、在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:Private Sub Command1_Click()x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后,单击命令按钮,在两个文本框中显示的值分