編寫VB程序，實現如下功能：在文本框Text1、Text2中分別輸入一個正整數，單擊“計算累加和”按鈕（Command1），在標簽Label3中顯示起始值和結束值之間所有奇數的累加和，界面如圖1所示：

（1）在設計程序界面時，使用“控件工具箱”中（圖2）的

4

4

（填編號）添加命令按鈕，要使命令按鈕Command1上顯示“計算累加和”，應修改命令按鈕的

caption

caption

屬性值．
（2）為實現上述功能，請在橫線處填入合適代碼．
Private Sub Command1_Click （　?。?br />Dim x1As Integer,x2As Integer,n As Integer
Dim sum As Long
x1=Val（Text1．Text）
x2=Val（Text2．Text）
sum=0
If  x1＜x2  Then n=1Else

n=-1

n=-1

For i=x1To x2Step n
If

i mod 2＜＞0或 i mod 2=1

i mod 2＜＞0或 i mod 2=1

Then
sum=sum+i

end if

end if

Next i
Label3．Caption=“從”& x1 &“到”& x2&“之間所有奇數的累加和=”&Str（sum）
End Sub.