VB的一道运算题

下面是你作图中的错误:斐波那契数列的第一项和第二项都是1，你作图中的第一项缺失，增加了31项，但实际上是2-31项。

程序代码(附图):

公共？班级？表单1

私人？Sub？Button1_Click(ByVal？寄件人？作为？系统。对象，？ByVal？e？作为？系统。EventArgs)？手柄？按钮1。点击

暗淡？x1，？x2，？x，？我，？总和，？数数？作为？整数

数数？=?30

x1？=?1

x2？=?1

sum？=?2

文本框1。文字？=?"1,1"

为了什么？我？=?3?去哪？数数

x？=?x1？+?x2

x1？=?x2

x2？=?x

文本框1。文字？=?文本框1。文字？& amp？","?& amp？x

sum？=?sum？+?x

然后

文本框2。文字？=?总和

结束？潜水艇

结束？班级