当前位置: 高中信息技术 / 综合题
  • 1. (2017高二上·台州月考) 编写VB程序,实现如下功能:在文本框Text1、Text2中分别输入一个正整数,单击“计算累加和”按钮,在标签Label3中显示起始值与结束值之间所有奇数的累加和。界面如图所示。

    1. (1) 在设计应用程序界面时,要将窗体的标题改为“计算累加和”,应将窗体的属性的值更改为“计算累加和” (填写相应属性名)。
    2. (2) 为实现上述功能,请在划线处填入合适代码。

      Private Sub Command1_Click()

      Dim x1 As Integer,x2 As Integer,n As Integer

      Dim sum As Long

      x1=Val(Text1.Text)

      x2=Val(Text2.Text)

      Sum=0

      If x1<x2 Then n=1 Else

      For i=x1 To x2 Step n

      IfThen

      sum=sum+i

      Next i

      Label3.Caption=“从”& x1 &“到”& x2 &“之前所有奇数的累加和=”& Str(sum)

      End Sub

微信扫码预览、分享更方便