Question

有没有大神知道这个图形用vb程序怎么做，拜托拜托帮帮忙。还有下面那道验证猜想的题。求助大神帮帮忙啊

Answer 1

Private Sub Command1_Click()
Dim i As Integer
For i = 9 To 1 Step -1
Print Spc(i); String((2 * (9 - i) + 1), Format(i))
Next
End Sub

追问

谢谢，谢谢，谢谢，真的很感谢

大神，再帮一个忙，用程序验证哥德巴赫猜想

追答

这个有点吗复杂，有时间再说

Answer 2

For I = 9 To 1 Step -1
    For J = I To 1 Step -1
        Print " ";
    Next J
    For J = 1 To (10 - I) * 2 - 1
       Print Trim(I);
    Next J
   Print
Next I

追问

谢谢，谢谢，谢谢，真的谢谢

追答

Sub Main()
Dim I As Integer, J As Integer, K As Integer, A As Integer, B As Integer
I = InputBox("请输入一个偶数：")
If I Mod 2 0 Or I <= 0 Then
MsgBox "请输入一个偶数！", vbCritical
Exit Sub
End If
For J = 2 To I - 1

If SS(J) And SS(I - J) Then
Print I; "="; J; "+"; I - J
Exit Sub
End If
Next J
End Sub

Function SS(ByVal D As Integer) As Boolean
SS = True
For K = 2 To D - 1
If D Mod K = 0 Then SS = False
Next K
End Function