VB里用星号输出平行四边形、正三角、倒三角的程序语句？
for i=7 to 1
str=""
for j=1 to j
str=space(7-i) & str & "*"
nxet j
form1.print str
next i
Private Sub Form_Click()For i = 1 To 5 Print Space(6 - i); Print String(2 * i - 1, "*")Next iEnd Sub
一、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
Next i
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
Next i
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
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
在文本框的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提供的组件快速建立一个应用程序。
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
Next i
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
Next i
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
Next i
End Sub
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
Next
For i = 1 To m
For j = 1 To m - i + 1
Print " ";
Next
For j = 1 To 2 * i - 1
Print "*";
Next
Next
For i = 1 To m
For j = 1 To i
Print " ";
Next
For j = 1 To 2 * m - 2 * i + 1
Print "*";
Next
Next
End Sub
使用JAVA(嵌套for循环完成)用星号输出一个梯形
按照你的要求,编写的用星号输出一个梯形的Java程序如下 public class B { public static void main(String[] args) { int N=5; for(int i=1;i<=N;i++){ for(int j=1;j<=N-i;j++){ System.out.print(" "); } for(int j=1;j<=2*i+1;j++){ System.out...
数学符号中的星号是什么意思?
在表示集合的符号中，如N，R的右上方有星号，则表示正数。如：N*表示正整数集合，R*表示正实数集合。只有电脑里才有星号一说，电脑里的星号就是乘号的意思。如：2*7即是2x7。
c语言设计 设计程序用星号输出等腰三角形,每两行之间空一行,总行数n和...
for(k=0;k<(i+1);k++) printf("*"); \/\/B for(j=0;j<m;j++) printf(" "); \/\/C for(k=0;k<(n-i);k++) printf("*"); \/\/D } printf("\\n");} } \/\/代码说明 \/\/X行借i来执行判断输入行n是否是奇数，奇数才好输出整齐图形 \/\/Y行实现每两行之间空一行 \/\/...
C语言中为什么要加星号!
1 做乘法运算符使用。在计算机中一般不使用数学的乘号×，而是用更容易打出的*替代。如果*出现在运算中，且左右都有表达式，那么*就是当做乘号来使用的。比如 include <stdio.h>int main(){ printf("%d\\n", 3*4); return 0;}这个程序就是简单的计算3*4的输出，会输出12。2 定义指针时...
怎么在excel里数字前面加星号
可以通过excel里面”设置单元格格式“中的”自定义“来实现：1、以2010版excel为例，如下图中的A1-A8单元格需要在前面加*号；2、选中需要加*号的单元格，然后点击鼠标右键，在跳出来的界面选择”设置单元格格式“；3、点击”数字“栏下面的”自定义“；4、在”自定义“界面中的”类型“框内输入”...
c语言问题:打印出下面由星号组成图形
j++为2，这时j>i，不再执行此循环。输出***回车。然后第二次循环，i++为2，j=1,j<=i,输出空格，j++为2，j<=i，在输出空格，j++为3,j>i；执行下条语句：输出***回车。以此类推。当i++为5时，i>4，则整个程序停止输出 ps:我这些都是用c#做的，哪个错了，跟我说 ...
小宝设置了一个自然数的运算程序输入数a加星号键在输入b得到运算a星b...
1、（-3）*2 =（-3-2）-|2-（-3）| =-5-5 =-10 2、（3*4）*（-5）=[（3-4）-|4-3|]*（-5）=[-1-1]*（-5）=（-2）*（-5）=[（-2）-（-5）]-|（-5）-（-2）| =3-3 =0
C\/C++打星号,实现形状,忘记了
用string可以的 例如：cout << string(3,' ');那么将会输出3个空格。‘3’表示个数，改成需要的数值就可以
excel怎么计算星号*两边的数的乘积呢中?
如果数据在A列，那么按Ctrl+F3，打开“名称管理器”，“新建”，然后在“编辑名称”对话框中输入名称=乘积 引用位置输入=EVALUATE($A:$A)然后在B1单元格中直接输入=乘积 并向下填充，就会得到以运算符相连的三个数的乘积。详见附图
求助如何用C语言打印星号组成的高和底相等的空心等腰梯形
楼主，可以不用循环控制语句也可以实现的，直接用printf函数就行。
翁鸿栀子： 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...
长沙县13937588025： 怎样在vb中用*打出平行四边形? - ？
翁鸿栀子：[答案] Dim s As String Dim n As Integer, m As Integer m = Val(InputBox(＂平行四边型的长度(即*的个数)＂)) '如果是常数值自己更改为常数即可 n = Val(InputBox(＂平等四边型的高度(即*的行数)＂)) s = String(n, ＂*＂) Me.AutoRedraw = True For i = 0 To m ...
长沙县13937588025： VB中如何打印正三角图案 - ？
翁鸿栀子： 1、具体实现星号三角形的代码如下: Public Function sanjiaoxing(ByVal num As Integer) As StringDim i, j As IntegerDim st As Stringst = ＂＂Dim m As IntegerIf (num Mod 2 = 0) Thensanjiaoxing = ＂＂End If '输出上三角形For i = 1 To ...
长沙县13937588025： 怎样用vb显示由*组成的三角形和平行四边形?求代码 - ？
翁鸿栀子： '三角形 Private Sub CommandButton1_Click() Dim i, j, max As Integer max = 5 Dim str As String For i = 0 To max For j = 0 To i * 2 str = str & ＂*＂ Next j str = str & vbCrLf Next i MsgBox str End Sub'平行四边形 Private Sub CommandButton2_Click(...
长沙县13937588025： 在VB里如何进行符号的反向打印输出??就是打出一个三角形和平行四边形????代码是什么啊 - ？
翁鸿栀子： 三角形:Private Sub Image1_Click() Picture1.CurrentX = 0 Picture1.CurrentY = 0 For i = 0 To 5 Picture1.Print Tab(8 - i); For j = 1 To 2 * i + 1 Picture1.Print ＂*＂; Next j Print Next i End Sub 平行四边形:Private Sub Image2_Click() Picture1....
长沙县13937588025： VB 编写用星号打印的等腰三角形 - ？
翁鸿栀子： Private Sub Command1_Click() n = 5 For i = 1 To n Print Space(n - i); For j = 1 To 2 * i - 1 Print ＂*＂; Next j Print Next i End Sub
长沙县13937588025： vb如何打印星号三角形 - ？
翁鸿栀子： Private Sub Form_Load() Dim N As Integer N = 6 For i = 1 To N Print Tab(7 - i); String(i, ＂*＂) Next End Sub
长沙县13937588025： vb:如何在文本框中用星号打印等腰三角形??? - ？
翁鸿栀子： 初始化是把文本框清空 text1.text=“” 你把文本框的Mutiline属性 改成true
长沙县13937588025： 求VB编写的以＂*＂ 菱形、三角形、 平行四边形、 直角反三角形、的代码 分不够了 我再加分.!!! - ？
翁鸿栀子： Private Sub Form_Click() Dim I As Integer For I = 1 To 7 '菱形 If I <= 4 Then Print Space(4 - I); String(2 * I - 1, ＂*＂) Else Print Space(I - 4); String(15 - 2 * I, ＂*＂) End If Next I Print For I = 1 To 4 '三角形 Print Space(4 - I); String(2 * I - 1, ＂*＂) Next I ...
长沙县13937588025： 四行七列直角三角形用星号输出vb程序 - ？
翁鸿栀子： Private Sub Form_Click() Dim i%, j% For i = 1 To 4 For j = 1 To 7 If j Next j Print Next i End Sub
