Question

在VB中单击窗体出现以*组成的图案的事件代码

*
***
*****
*******
*********
*******
*****
***
*
补充问号的完整就可以了，谢谢各位大神!
Private Sub Form_Click()
For i = 1 To ?
For j = 1 To 6 - i
Print ""
Next j
For j = 1 To ?
Print "*"
Next j
Print
Next i
For i = 1 To 4
For j = 1 To ?
Print ""
Next j
For j = 1 To 4
Print "*"
Next j
Print
Next i
End Sub

Answer 1

你好，孩子免疫力低下总爱生病，家长可以给孩子准备食疗补充营养，多给孩子吃蔬菜水果补充维生素，并且也要注意孩子的生活规律，多运动，免疫力是可以提高的。

你好，孩子以前的身体是很好的，但是最近孩子总是生病，和孩子的体质有一定的问题，孩子的营养跟不上，免疫力下降会导致孩子生病，所以这顿时间给孩子的饮食增加营养，适当的吃一些钙片也是可以的。

Answer 2

Public Function Diamond(ByVal num As Integer) As String
        Dim i, j As Integer, st As String = ""

        If (num Mod 2 = 0) Then
            Return ""
        End If

        '输出上三角形
        For i = 1 To (num + 1) \ 2
            For j = 1 To (num + 1) / 2 - i
                st = st & " "
            Next
            For j = 1 To 2 * i - 1
                st = st & "*"
            Next
            st = st & vbCrLf
        Next

        '输出下三角形
        For i = 1 To (num - 1) \ 2
            For j = 1 To i
                st = st & " "
            Next
            For j = 1 To num - 2 * i
                st = st & "*"
            Next
            st = st & vbCrLf
        Next
        Return st
    End Function
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim str As String = ""
        str = Diamond(7)
        TextBox6.Text = str
    End Sub

Answer 3

Private Sub Form_Click()
Label1.Font = "黑体"
Label1.FontSize = "22"
Label1.ForeColor = vbRed
Label1.Left = 0.5 * Form1.Width
Label1.Top = 0.5 * Form1.Height
End Sub
Private Sub Form_Load()
Label1.Caption = "欢迎学习vb程序设计"
End Sub
Private Sub Form_DblClick()
Label1.Font = "隶书"
Label1.FontSize = "22"
Label1.ForeColor = vbBlue
Label1.Left = 0
Label1.Top = 0
End Sub