用Vb做空心菱形、左右两个角要连接起来。

发布网友 发布时间：2024-09-30 20:36

我来回答

共2个回答

热心网友 时间：2024-10-21 03:49

第一个
main()
{
int i, j;//定义变量
for (i = 1; i <= 4; i++)
{
for (j = 1; j <= i; j++)
printf(" ");
printf("*******");
printf("\n");
}
}
第二题
main()
{
int i,j;
for (i = 1; i <= 4; i++)
{
for (j = 1; j <= 4 - i; j++)
printf(" ");
printf("*******");
printf("\n");
}
}
第三题：
main()
{
for (int i = 1; i <= 3; i++)
{
for (int j = 1; j <= 3 - i; j++)
printf(" ");
for (int k = 1; k <= 2 * i - 1; k++)
printf("*");
printf("\n");
}
}
第四题：
Main()
{
int i, j, k;
for (i = 5; i < 10; i++)
{
for (j = 1; j <= i - 5; j++)
printf(" ");
for (k = 1; k <= 19 - 2 * i; k++)
printf("*");
printf();
}
}
拿第一个举例，定义变量。i从一开始执行内循环，j=1,j<=i，满足条件输出空格，j++为2，这时j>i，不再执行此循环。输出*******回车。然后第二次循环，i++为2，j=1,j<=i,输出空格，j++为2，j<=i，在输出空格，j++为3,j>i；执行下条语句：输出*******回车。以此类推。当i++为5时，i>4，则整个程序停止输出
ps:我这些都是用c#做的，哪个错了，跟我说

热心网友 时间：2024-10-21 03:49

楼主测试一下效果！Private Sub Form_Click()
Dim i, j, n, h, m, x As Integer
j = 20: m = j: n = 1
h = Val(InputBox("请输入菱形的行数："))
If h Mod 2 = 0 Then h = h + 1
For i = 1 To h
If i = 1 Or i = h Then
Print Spc(m); "*"
ElseIf i <= (h + 1) / 2 Then
n = (i - 1) * 2 - 1
j = j - 1
Print Spc(j); "*"; Spc(n); "*"
ElseIf i >= (h + 1) / 2 Then
j = j + 1
n = n - 2
Print Spc(j); "*"; Spc(n); "*"
End If
Next
End Sub