Question

VB里用星号输出平行四边形、正三角、倒三角的程序语句？

Answer 1

一、Private Sub Form_Click()

show

Dim m, n, i, j As Integer

m = 4 :n = 7

For i = 1 To m

For j = 1 To m - i + 1

Print " ";

Next j

For j = 1 To n

Print "*";

Next j

Print

Next i

Print

For i = 1 To m

For j = 1 To m - i + 1

Print " ";

Next j

For j = 1 To 2 * i - 1

Print "*";

Next j

Print

Next i

Print

For i = 1 To m

For j = 1 To i

Print " ";

Next j

For j = 1 To 2 * m - 2 * i + 1

Print "*";

Next j

Print

Next i

End Sub

二、Sub Command1_Click()

Dim i As Integer

For i = 1 To 11 Step 2

For m = 11 To i Step -1

Debug.Print "*";

Next

Print Chr(10) & Space(1 + i \ 2);

Next

End Sub

扩展资料：

在VB中，注释有2种方式。

1、以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字，则必须使用冒号（:）与语句隔开。

2、使用一个撇号（'）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。

特征衡量

在 Visual Basic 中，可通过属性、方法和事件来说明和衡量一个对象的特征。

参考资料来源：百度百科-Visual Basic

Answer 2

在文本框的passwordchar属性里改为*就可以了。
例如：Private Sub Command1_Click()
If Text1 = "" Then MsgBox "请输入关键字"
WebBrowser1.SetFocus '先得到焦点
SendKeys Text1 '发送
SendKeys "{enter}" '回车
End Sub
Private Sub Form_Load()
Text1 = ""
Command1.Caption = "百度一下"
WebBrowser1.Navigate "www.baidu.com"
End Sub
补充：Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

Answer 3

Private Sub Form_Click()
show
Dim m, n, i, j As Integer
m = 4 :n = 7
For i = 1 To m
For j = 1 To m - i + 1
Print " ";
Next j
For j = 1 To n
Print "*";
Next j
Print
Next i
Print

For i = 1 To m
For j = 1 To m - i + 1
Print " ";
Next j
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
Print

For i = 1 To m
For j = 1 To i
Print " ";
Next j
For j = 1 To 2 * m - 2 * i + 1
Print "*";
Next j
Print
Next i
End Sub

Answer 4

Private Sub Form_Click()
m = 6 '行数
n = 11 '平行四边形每行的*数目
Cls

For i = 1 To m
For j = 1 To m - i + 1
Print " ";
Next
For j = 1 To n
Print "*";
Next
Print
Next

Print

For i = 1 To m
For j = 1 To m - i + 1
Print " ";
Next
For j = 1 To 2 * i - 1
Print "*";
Next
Print
Next

Print

For i = 1 To m
For j = 1 To i
Print " ";
Next
For j = 1 To 2 * m - 2 * i + 1
Print "*";
Next
Print
Next

End Sub