编程论坛 → VB6论坛

谁能帮我写下代码

钱蛋儿发布于 2014-10-07 18:29， 805 次点击

明天就上学了，可是vb作业不会写，找个人帮我写出来好么

只有本站会员才能查看附件，请登录

14 回复

钱蛋儿2014-10-07 19:09

有没有人啊

vb新生2014-10-07 19:36

第一个：
Dim i, j As Integer
For i = 1 To 5
For j = 1 To i
Print "*";
Next j
Print
Next i

vb新生2014-10-07 19:42

第二个：
Dim i, j, k As Integer
For i = 1 To 5
   For k = 1 To (5 - i)
   Print " ";
  Next k
  For j = 1 To i
   Print "*";
  Next j
Print
Next i

vb新生2014-10-07 19:45

第三个：
Dim i, j As Integer
For i = 1 To 5
For j = 1 To (6 - i)
Print "*";
Next j
Print
Next i

vb新生2014-10-07 19:47

第四个：
Dim i, j, k As Integer
For i = 1 To 5
   For k = 1 To i
   Print " ";
  Next k
  For j = 1 To (6 - i)
   Print "*";
  Next j
Print
Next i

钱蛋儿2014-10-07 19:48

回复 3 楼 vb 新生

好棒啊

vb新生2014-10-07 19:51

第五个：
Dim i, j, k As Integer
For i = 1 To 5
   For k = 1 To (5 - i)
   Print " ";
  Next k
  For j = 1 To (i * 2 - 1)
   Print "*";
  Next j
Print
Next i

vb新生2014-10-07 19:53

第六个：
Dim i, j, k As Integer
For i = 1 To 5
   For k = 1 To i
   Print " ";
  Next k
  For j = 1 To ((6 - i) * 2 - 1)
   Print "*";
  Next j
Print
Next i

#10

vb新生2014-10-07 19:55

感觉最好还是自己思考一下的好。不难的，做不出来再问也不迟，否则吃亏的人是你啊。

#11

钱蛋儿2014-10-07 20:08

回复 10 楼 vb 新生

求了，我们vb老师很凶，明天就要交了

#12

钱蛋儿2014-10-07 20:13

回复 10 楼 vb 新生

麻烦你把最后四个写给我好么
，

#13

钱蛋儿2014-10-07 21:34

来人啊

#14

chen35232014-10-07 21:39

在我的印象中，好多教材有这道习题。

#15

钱蛋儿2014-10-08 08:30

回复 14 楼 chen3523

能把最后四个写给我吗