Private Sub Command1_Click()
Dim s As Integer
Dim n As Integer
Dim i As Integer
n = Val(Text1.Text)
s = 1
For i = 2 To n
s = s * i
Next i
Label1.Caption = Str(n) + "!=" + Str(s)
End Sub
每年4月23日为“世界读书日”,要求社会成员人人读书,让读书成为人们日常生活中不可或缺的部分。学校将组织读书宣传活动,请你为活动设计一个标语。
要求:①主题明确;②语言简洁;③至少要运用一种修辞手法;④不超过30个字。