sử dụng vòng lặp hiển thị các ký tự thành hình trong VB form

[hutieuxidau]

em có 1 bài tập là "nhập vào 1 chữ cái, từ chữ cái đó sử dụng vòng lặp để vẽ ra hình trái tim"
em chỉ biết cách vẽ hình vuông và tam giác, còn hình trái tim thì chưa có ý tưởng, mong mọi người giúp em ạ.

 

[ndu96081631]

em có 1 bài tập là "nhập vào 1 chữ cái, từ chữ cái đó sử dụng vòng lặp để vẽ ra hình trái tim"
em chỉ biết cách vẽ hình vuông và tam giác, còn hình trái tim thì chưa có ý tưởng, mong mọi người giúp em ạ.

Hổng biết 1 CHỮ CÁI thì "ăn nhậu" gì với hình trái tim nhỉ?
Bạn nói bạn biết vẽ hình vuông và tam giác, vậy từ 1 chữ cái bất kỳ, bạn vẽ hình vuông hoặc tam giác cho mọi người xem thử

 

[hutieuxidau]

Hổng biết 1 CHỮ CÁI thì "ăn nhậu" gì với hình trái tim nhỉ?
Bạn nói bạn biết vẽ hình vuông và tam giác, vậy từ 1 chữ cái bất kỳ, bạn vẽ hình vuông hoặc tam giác cho mọi người xem thử

câu hỏi của em có lẽ chưa rõ ràng lắm:

 Private Sub Command1_Click()Dim i As Integer, j As Integer ', tam As Integer
'Dim kitu As String, tam1 As String,
Dim n As String
'kitu = "1234567890qwertyuiopasdfghjklzxcvbnm!@#$%^&*()"
n = Text1.Text
'For tam = 1 To 46
'       If Mid(kitu, tam, 1) = n Then
'           tam1 = Mid(kitu, tam, 1)
'        End If
'Next tam
For i = 1 To 5
        For j = 1 To i
                Text2.Text = Text2.Text & n & "  "
        Next j
        Text2.Text = Text2.Text & vbNewLine
Next i
End Sub

Private Sub Command2_Click()
Dim i As Integer, j As Integer, tam As Integer
Dim kitu As String, tam1 As String, n As String
kitu = "1234567890qwertyuiopasdfghjklzxcvbnm!@#$%^&*()"
n = Text1.Text
For tam = 1 To 46
       If Mid(kitu, tam, 1) = n Then
           tam1 = Mid(kitu, tam, 1)
        End If
Next tam
For i = 5 To 1 Step -1
        For j = i To 1 Step -1
                Text2.Text = Text2.Text & tam1 & "  "
        Next j
        Text2.Text = Text2.Text & vbNewLine
Next i
End Sub

Private Sub Command3_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub

Private Sub Command4_Click()
Dim i As Integer, j As Integer
Dim n As String
n = Text1.Text
For i = 1 To 5
        For j = 1 To 5
                Text2.Text = Text2.Text & n & "  "
        Next j
        Text2.Text = Text2.Text & vbNewLine
Next i
End Sub

 

[ptm0412]

Vấn đề của bạn là VB, không liên quan đến Excel, nên tôi dời vào box thích hợp.

Bạn hãy thử tạo hình trái tim bằng các ký tự trong notepad hoặc word. Rồi từ đó tìm ra hướng xử lý. Tuy nhiên, theo tôi, hình trái tim thì không dùng vòng lặp được hoặc dùng vòng lặp không hay, vì mỗi dòng cần 1 câu lệnh riêng, không giống nhau. Lặp cũng như không.

Mục đích của vòng lặp For - Next hoặc Do là thực thi những lệnh hoặc nhóm lệnh nhiều lần (giống nhau) mà không cần phải gõ các lệnh hoặc nhóm lệnh đó nhiều lần.

 

[SA_DQ]

Theo tôi cũgn có thể làm vògn lặp trên excel, nhưng

Tạo hằng hà sa số các ô li ti hình vuông chỉ chứa 1 kí tự (như ký tự w hay W ) với font Bookshelf Sylbol 7
Dùng vòng lặp rãi các ký tự này cho đối xứng thì ta có trái tim được tạo bỡi các trái tim thôi!

/(hông biết tác giả có ưng vậy không?

 

[hutieuxidau]

Tạo hằng hà sa số các ô li ti hình vuông chỉ chứa 1 kí tự (như ký tự w hay W ) với font Bookshelf Sylbol 7
Dùng vòng lặp rãi các ký tự này cho đối xứng thì ta có trái tim được tạo bỡi các trái tim thôi!

/(hông biết tác giả có ưng vậy không?

dạ, ý của em là từ ký tự đã nhập, khi tạo hình trái tim thì do chính ký tự đó sắp xếp nên, giống như file em đính kèm đó ạ. ý tưởng của em là ghép 2 mảnh đối xứng, dùng vòng lặp các ký tự trắng, nhưng vẫn chưa biết cách làm.(bài làm thuần VB, ko có excel ạ)