关于VB的几个作业问题 求解

来源：百度知道 编辑：UC知道 时间：2024/05/26 22:23:25
1.算1到10的和
2.1到10 单数的和 和双数的和
3.1的平方+2的平方 一直加到20的平方 求和
4.1到100 每行出现10个数 数与数之间间隔相同
5.1的平方+2的平方 一直加到i的平方 求和能超过2000的 最小值
6.*****
*****
*****
*****
如上出现图形

7.*
**
***
****
*****
如上出现图形
8.*****
****
***
**
*
如上出现图形
9.
0 1 2 3 4
如上出现数字
10.
1 2 3
4 5 6
7 8 9
如上出现数字
11.
2 3 4 …… 9
4 6 8 …… 18
…… …… …… …… ……
16 24 32 …… 72
18 27 36 …… 81
如上出现数字
自学的只是看书 看不懂 这是书上的课后练习 有知道怎么做的 告诉我一下 谢谢

'新建一个工程，加入11个按钮，再加入以下代码就可以运行了
'如果要源文件请发Email向我要:wangaochao@163.com
Private Sub Command1_Click()
'算1到10的和
Dim i As Integer, Result As Integer
For i = 1 To 10
Result = Result + i
Next
Me.Print "1到10的和:" & Result
End Sub

Private Sub Command2_Click()
'1到10 单数的和 和双数的和
Dim i As Integer, ResultSingle As Integer, ResultDouble As Integer
For i = 1 To 10
If i Mod 2 = 0 Then
ResultDouble = ResultDouble + i
Else
ResultSingle = ResultSingle + i
End If
Next
Me.Print "1到10 单数的和 和双数的和 分别为:" & ResultSingle & ";" & ResultDouble
End Sub

Private Sub Command3_Click()
'1的平方+2的平方 一直加到20的平方 求和
Dim i As Integer, Result As Long
For i = 1 To 20
Result = Result + i * i
Next
Me.Print "1的平方+2的平方 一直加到20的平方 和为:" & Result
End Sub

Pr