题目

古希腊著名哲学家毕达哥拉斯把1，3，6，10，15，21，28……称为三角形数。这些三角形数序列有一定的规律，后一个数与前一个数的差刚好构成一个等差数列2，3，4，5，6，7……，所以第2位的“3”等于序列的第1位数“1”加上等差数“2”，第3位的6等于序列的第2位数“3”加上等差数“3”，……，第n位数m等于序列的第n-1位数加上等差数n。小金利用这个规律编写出了一个判断三角形数的VB程序，在文本框Text1中输入一个大于1的正整数，单击”判断”按钮Command1，在标签label1中显示判断结果。程序设计界面如图所示。 （1） 在设计程序界面时，要清空标签中显示的内容“Label1”，应修改该标签的属性。 （2） VB程序代码如下，请在画线处填入合适代码。 Private Sub Command1_Click()   Dim n As Integer，S As Integer   s=0   n=Val(Text1．Text)   If n>1 Then       For i=1 To n           s=    ①                If n=s Then               Label1．Caption=Str(n)+”是一个三角形数。”               Exit For                  ②                   Label1．Caption=Str(n)+”不是一个三角形数。”                 Exit For                   End If                Next i Else                Label1．Caption=”请输入一个大于1的正整数” End If End Sub ① ②  （3） 若文本框Text1中输入的内容为“27”，单击按钮Command1后，标签Label1中显示的内容是。 答案： 【1】Caption 【1】s+i【2】ElseIf s>n Then 【1】27不是一个三角形数

查看本题答案和解析