当前位置: 高中信息技术 / 综合题
  • 1. (2019高二下·衢州期末) 工资问题:某古老的工作和工资计算方式比较奇特,其工作要求如下:必须从1月1日当天开始工作,且连续工作n(n<=365)天才一次性结算得到工资。某年(假设当年为平年)其工资计算细则是:第1天获得1枚金币,接下来的2天(第2天和第3天)每天获

    得2枚金币,再接下来的3天(第4、5、6 天)每天获得3枚金币……,依次类推,即当连续n天每天获得n枚金币后,会在之后的连续n+1天里,每天获得n+1枚金币。

    小王用VB编写了工资计算程序,当输入连续工作的最后一天的日期后,单击“计算”按钮 Command1,程序自动计算工资总额,其运行界面如图所示。

    实现上述功能的VB 程序如下,请回答下列问题:

    1. (1) 下列选项中,属于鼠标“单击”事件的是。(单选,填字母:A .DblClick / B .Load / C .Click)
    2. (2) 请在划线处填入合适的代码。
      Private Sub Command1_Click()

      Dim i As Integer, j As Integer, k As Integer Dim m As Integer, d As Integer, n As Integer Dim md As String, sum As Integer

      md = "312831303130313130313031"

      n = 0

      m = Val(Text1.Text) d = Val(Text2.Text)

      For i = 1 To m - 1 n =   ①  

      Next i

      n = n + d

      i = 0: j = 0

      sum = 0: k = 1 Do While i < n   sum =

      j = j + 1

      If      Then j = 0

      k = k + 1

      End If

      i = i + 1 Loop

      Text3.Text = Str(sum) End Sub

    3. (3) 加框处的代码有错误,请改正。

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