Dim n As Integern = 10For i = 1 To n For k = 1 To n - i Print Chr(32); Next For j = 1 To i Print "*" & Chr(32); Next Print ""亩兆Next放到Form_Paint()里面都陪仿可以。迅乱租
