編寫VB程序，實(shí)現(xiàn)如下功能：在文本框Text1、Text2中分別輸入一個(gè)正整數(shù)，單擊“計(jì)算累加和”按鈕（Command1），在標(biāo)簽Label3中顯示起始值和結(jié)束值之間所有奇數(shù)的累加和，界面如圖1所示：

（1）在設(shè)計(jì)程序界面時(shí)，使用“控件工具箱”中（圖2）的

4

4

（填編號(hào)）添加命令按鈕，要使命令按鈕Command1上顯示“計(jì)算累加和”，應(yīng)修改命令按鈕的

caption

caption

屬性值．
（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)跈M線處填入合適代碼．
Private Sub Command1_Click （　　）
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&“之間所有奇數(shù)的累加和=”&Str（sum）
End Sub.