会vb的进来帮我做两个简单的题目

来源：百度知道 编辑：UC知道 时间：2024/06/28 22:46:39
题目在图上，很简单，但我不会，要求把做好的文件发到我邮箱里，谢谢了！
直接百度hi我 谢谢 做好再加分

1.
Private Sub Command1_Click()
Dim n, t, m, s As Integer
m = 0: s = 0
n = Int(Text1.Text)
For t = 1 To n
m = m + t
s = s + m
Next t
Text2.Text = s
End Sub

2.
Private Sub Form_Click()
Show
For i = 1 To 4
Print Space(10 - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
For m = 1 To 3
Print Space(6 + m);
For n = 1 To 7 - 2 * m
Print "*";
Next n
Print
Next m
End Sub
把你邮箱告诉我，我把文件发给你

已经发给你了。