作者marktb (Mark)
看板Visual_Basic
标题[.NET] 作业回圈问题
时间Tue Oct 24 01:40:53 2006
目前小弟已经写出第一个按钮程式
但是想破头也不知道如何改成其他的
烦请各位高手帮帮忙~"~
表单画面 按下按钮
右边 lable会显示 *
* *
* * *
* * * *
老师现在指定要有其他种类的
按钮二 * * * *
* * *
* *
*
按钮三 *
* *
* * *
* * * *
* * *
* *
*
按钮四 * * * *
* * *
* *
*
* *
* * *
* * * *
以下为按钮1 程式码
Dim aa, bb, i, j As Integer
Dim star As String = " * "
Dim star1 As String = " * "
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bb = 60
Label1.Text = "" & vbNewLine
aa = CInt(TextBox1.Text)
For i = 1 To aa
For j = 1 To i
If j = 1 Then
Label1.Text &= star.PadLeft(bb - i * 2)
Else
Label1.Text &= star
End If
Next
Label1.Text &= vbNewLine
Next
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.129.105.134
1F：推 badsan:我有写过这部分的程式...不过是C的...你要参考吗?? 10/25 00:20