Question

求用VB打星号，急！！！

怎么用VB打出以下图形，急！！！
* *
*
* *
* *

就是一个交叉。。。
帮帮忙吧。。。。
就4行。。。

那交叉的两条是直线。。。

Answer 1

Private Sub Command1_Click()
Dim n,i,j
n = 4 '你想要几行就几行
For i = 1 To n
For j = 1 To n - Abs(i - 2) - 2
Print Space(1);
Next
Print "*";
For j = 1 To 2 * Abs(i - 2) - 1
Print Space(1);
Next
If i <> 2 Then Print "*";
Print
Next
End Sub

Answer 2

vb
是visual
basic编程语言
编写计算机程序需要使用计算机编程语言。计算机编程语言是人和计算机“对话”的桥梁。就像人类的语言一样，计算机编程语言也有很多。目前较为广泛使用的语言有“c++”、“pascal”、“basic”等。在众多的计算机编程语言中，以basic语言最为易学易用。
basic是英文beginner’s
all
purpose
symbolic
instruction
code的缩写，意思为初学者通用符号指令代码，一直都是程序设计入门的首选语言。
1991年，visual
basic(简称vb)面世，他是第三代basic语言，它不但秉承了basic语言的易学易用的优点，而且增加了图形界面设计工具。它简化了复杂的窗口程序编写过程，让编程者将更多的精力致力于问题的求解过程。

Answer 3

Private Sub Form_Click()
Print " * *"
Print " *"
Print " * *"
Print "* *"
End Sub

这样行不行

Answer 4

晕，这不是用苹果机学basic时的程序吗？快二十年了吧，呵呵

Answer 5

4条线互不平行
不是相似三角形