VB高手来下...2道简单题目!

Private Sub Command1_Click()
Dim n As Integer, n1 As Byte
Cls
n = 9
n1 = IIf(n Mod 2 = 0, n / 2, n \ 2 + 1) 'Éϰ벿ÐÐÊý
For i = 1 To n1 'n \ 2
Print Spc(n1 - i); 'Ó¦¿ÕµÄÁÐÊý
For j = 1 To i * 2 - 1
Print Trim(Str(i));
Next
Print
Next
For i = n - n1 To 1 Step -1
Print Spc(n1 - i);
For j = 1 To i * 2 - 1
Print Trim(Str(n - i + 1));
Next
Print
Next
End Sub

Private Sub Command2_Click()
Dim sum As Double, p As Integer, q As Long, i As Long
p = -1
q = 1
Do While True
i = i + 1
p = -p
q = q * i
sum = sum + p / q
If q > 10 ^ 6 Then Exit Do
Loop
Label1.Caption = sum
End Sub

不懂

用C++做会更简单.

你去看以下书就会明白的,主要考察的就for句