输入如下代码:
PrivateSubForm_Load()
Text1.Text=""。
Text2.Text=""。
EndSub。
PrivateSubText1_Change()。Text2.Text=Text1.Text。
EndSub。
操作要点:
1、设置程序界面,包括标签,文本框,命令按钮。
2、再按照题目要求,设置对象的属性。
3、编写程序的代码。先定义变量。
4、使用For-Next循环结构语句,编写的代码。
5、在For-Next循环结构语句中,还要再嵌套一个If语句。
6、运行程序,输入某个正数,验证结果。