题型：综合题 题类：常考题 难易度：普通
浙江省台州市2017-2018学年高三上学期信息技术期末质量评估卷
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
① ②
试题篮
