vb中怎么画菱形?

vb怎么输出菱形图案?vb绘制菱形的教程

启动vb6，新建一个标准的exe文件，拖动窗体周边的小正方形调节窗体的大小，直至合适为止。选择窗体，找到右边的属性窗口，设置boderstyle属性为0-none，设置startupposition属性为屏幕中心。

启动VB0，新建一个标准exe工程。在窗体上绘制一个命令按钮，名称为Command1。双击命令按钮进入代码窗口。编写命令按钮单击事件（代码详情可参考图中的绿色字体部分的注释）。按F5运行测试，输出菱形图形。

启动VB0，新建一个标准exe工程。在窗体上绘制一个命令按钮，名称为Command1。双击命令按钮进入代码窗口。编写命令按钮单击事件（代码详情可参考图中的绿色字体部分的注释）。按F5运行测试。完成效果图。

用vb,windows窗体应用程序设计一个菱形,用strdup函数

StrDup 函数 J# JScript Visual Basic 语言参考StrDup 函数示例 请参见 返回由指定字符重复指定次数后形成的字符串或对象。

Dim s2 s1 = InputBox(请输入要重复的个数)s2 = TextBoxText TextBoxText = StrDup(s1， s2)End Sub 其中TextBox1用来输入入“A”，InputBox用来输入“5”，就会在TextBox2显示“AAAAA”注：在VB.NET已经测试可用，VB0上不支持此方法。

VB打菱形

1、启动vb6，新建一个标准的exe文件，拖动窗体周边的小正方形调节窗体的大小，直至合适为止。选择窗体，找到右边的属性窗口，设置boderstyle属性为0-none，设置startupposition属性为屏幕中心。

2、启动VB0，新建一个标准exe工程。在窗体上绘制一个命令按钮，名称为Command1。双击命令按钮进入代码窗口。编写命令按钮单击事件（代码详情可参考图中的绿色字体部分的注释）。按F5运行测试，输出菱形图形。

3、启动VB0，新建一个标准exe工程。在窗体上绘制一个命令按钮，名称为Command1。双击命令按钮进入代码窗口。编写命令按钮单击事件（代码详情可参考图中的绿色字体部分的注释）。按F5运行测试。完成效果图。

4、StrDup 函数 J# JScript Visual Basic 语言参考StrDup 函数示例 请参见 返回由指定字符重复指定次数后形成的字符串或对象。