（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。在窗体上有一个文本框，其名称为Text1；另有一个命令按钮，其名称为Command1，标题为“计算/输出”。程序运...

（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。在窗体上有一个文本框，其名称为Text1；另有一个命令按钮，其名称为Command1，标题为“计算/输出”。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入n的值，然后单击“确定”按钮，即可计算
          1+(1+2)+(1+2+3)+...+(1+2+3+...+n)
      的值，并把结果在文本框中显示出来，如图所示。
      注意：
        去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上有两个文本框，其名称分别为Text1和Text2，其中Text1中的内容为“计算机等级考试”；另有一个命令按钮，其名称为Command1，标题为“反向显示”，如图1所示。程序运行后，如果单击命令按钮，则在Text2中按相反方向显示Text1中的内容，如图2所示。该程序不完整，请把它补充完整。
要求：
去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。

图1

图2

进入题库练习

参考解析: （1）【考点分析】本题考点有For循环语句。
【解题思路】在循环语句中计算累加和时，初始值一定要设为0。
【操作步骤】
步骤1：打开代码编辑窗口，去掉程序中的注释，将问号改为正确的内容。
参考答案（阴影部分是需要考生填入的内容）
Private Sub Command1_Click()
    Dim n As Integer
    Dim i As Integer
    Dim Sum As Long
    Dim k As Integer
    n = InputBox("请输入整数n")
    Sum = 0
    k = 0
    For i = 1 To n
         k = k + i
         Sum = Sum + k
    Next i
    Text1.Text = Str(Sum)
End Sub
程序结束
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
（2）【考点分析】本题考点有For循环语句、Len函数、Mid函数。
【解题思路】如果要把一个字符串倒置，就需要把字符串的每个字符取出来重新存储，用For语句的话，终值应该是字符串的中字符个数，即Len(字符串)的值。根据循环体的存储字符语句，分析可知该句中的Mid函数需要从原字符串的最后逐一向前取出每个字符。
【操作步骤】
步骤1：打开代码编辑窗口，去掉程序中的注释，将问号改为正确的内容。
参考答案（阴影部分是需要考生填入的内容）
Private Sub Command1_Click()
    Dim S1 As String
    Dim S2 As String
    S1 = Text1.Text
    S2 = ""
    For i = 1 To Len(S1)
        S2 = S2 + Mid(S1, Len(S1) - i + 1, 1)
    Next i
    Text2.Text = S2
End Sub程序结束
步骤2：调试并运行程序，关闭程序后按题目要求存盘。