الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

how to do a hole square

مغلق
بدأه aNa_7ab0o0b في 3 نوفمبر 2003 · 3 رد · 873 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

i tried my best to do and finish this thing but i got one problem and i'll be happy to anyone who is going to help to solve this problem .... i'll put the codes right now .... th funny things i didt it in c++ but i couldnt do it in visual basic i'll be waiting ......... from anyone

Private Sub cmdClick_Click()

Dim Icount As Integer

Dim Jcount As Integer

Dim endpoint As Integer

endpoint = InputBox("Enter the ending point")

For Icount = 1 To endpoint

For Jcount = 1 To endpoint

If Icount > 1 And Icount < endpoint Then

txtDisplay = txtDisplay & ""

Else

If Jcount > 1 And Jcount < endpoint Then

txtDisplay = txtDisplay & "#"

Else

End If

End If

Next Jcount

txtDisplay = txtDisplay & "#" & vbCrLf

Next Icount

End Sub

#2 
Private Sub cmdClick_Click()

Dim Icount As Integer
Dim endpoint As Integer

endpoint = InputBox("Enter the ending point")

For Icount = 1 To endpoint
    If (Icount = endpoint) Or (Icount = 1) Then
        txtDisplay = txtDisplay & String(endpoint, "#")
    Else
        txtDisplay = txtDisplay & "#" & Space(endpoint - 2) & "#"
    End If
txtDisplay = txtDisplay & vbCrLf
Next Icount
End Sub

Ali Sayed

#3

thx alot for helping me ...

i put the codes that you send it to me but it didnt work properly

thx alot bro

waiting for other members

#4

dim icount as integer,jcount as integer ,endpoint as integer

endpoint=inputbox("enter end point please")

txtdisplay.multiline=true

for icount =1 to endpoint

for jcount =1 to endpoint

txtdisplay=txtdisplay & "#"

next jcount

txtdisplay=txtdisplay & vbcrlf

next icount

هذا الموضوع مغلق.

مواضيع مشابهة