Dim 入力1　 As Integer
　　Dim 入力2　 As Integer
　　Dim 累計　　As Integer
　　Dim 偶数計　As Integer
　　Dim cnt　　 As Integer

　　入力1 = Text1.Text
　　入力2 = Text2.Text
　　累計 = 0
　　偶数計 = 0
　　cnt = 入力1

　　Do While cnt <= 入力2
　　　　累計 = 累計 + cnt
　　　　If cnt Mod 2 = 0 Then
　　　　　　偶数計 = 偶数計 + cnt
　　　　End If
　　　　cnt = cnt + 1
　　Loop
　　Text3.Text = 累計
　　Text4.Text = 偶数計