用VB编一个用字母组成的菱形,求代码,其相邻的上下两行由它前面一个字母组成
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/20 06:05:46
用VB编一个用字母组成的菱形,求代码,其相邻的上下两行由它前面一个字母组成
要求效果是
a
bbb
ccccc
ddddddd
eeeee
fff
g
要求效果是
a
bbb
ccccc
ddddddd
eeeee
fff
g
完整的代码如下:你在窗体上添加一个命令按钮command1即可,复制代码运行(效果如图)
Private Sub Command1_Click()
Dim Num As Integer, m As Integer, n As Integer
'以下是你这个菱形的总行数加1(偶数),你只要修改这行即可(有26个字母)
Num = InputBox("请输入这个图形的总行数加1(小于等于26的偶数)", "图形行数", 26)
For i = 1 To Num / 2
m = 96 + i
n = m
For j = i To Num / 2 - 1
Print " ";
Next j
For j = 1 To 2 * i - 1
Print Chr(m);
Next j
Print
Next i
For i = 1 To Num / 2
n = n + 1
For j = 1 To i
Print " ";
Next j
For j = 1 To 2 * (Num / 2 - i) - 1
Print Chr(n);
Next j
Print
Next i
End Sub
再问: 那个对话框时要求输入任意字母,比如我输入Y,要以Y开头产生菱形,并且到Z后可以回到A
再答: 你要形成字母循环,就添加以下两句即可: (1)在m=96+i后面添加一行 If m > 122 Then m = m - 26 (2)在n=n+1后面添加一行 If n > 122 Then n = n - 26 即可。 你现在又增加要求说“那个对话框要求输入任意字母”??? 我给你增加的这个对话框是要求你输入“行数”的,不是叫你输入字母的。 你做如上修改后即可达到字母循环输出了,并已经达到你的第二个目的,如下图所示:
Private Sub Command1_Click()
Dim Num As Integer, m As Integer, n As Integer
'以下是你这个菱形的总行数加1(偶数),你只要修改这行即可(有26个字母)
Num = InputBox("请输入这个图形的总行数加1(小于等于26的偶数)", "图形行数", 26)
For i = 1 To Num / 2
m = 96 + i
n = m
For j = i To Num / 2 - 1
Print " ";
Next j
For j = 1 To 2 * i - 1
Print Chr(m);
Next j
Next i
For i = 1 To Num / 2
n = n + 1
For j = 1 To i
Print " ";
Next j
For j = 1 To 2 * (Num / 2 - i) - 1
Print Chr(n);
Next j
Next i
End Sub
再问: 那个对话框时要求输入任意字母,比如我输入Y,要以Y开头产生菱形,并且到Z后可以回到A
再答: 你要形成字母循环,就添加以下两句即可: (1)在m=96+i后面添加一行 If m > 122 Then m = m - 26 (2)在n=n+1后面添加一行 If n > 122 Then n = n - 26 即可。 你现在又增加要求说“那个对话框要求输入任意字母”??? 我给你增加的这个对话框是要求你输入“行数”的,不是叫你输入字母的。 你做如上修改后即可达到字母循环输出了,并已经达到你的第二个目的,如下图所示:
用C++输入一个星号组成的菱形,要求菱形的边长由用户自定义
求:用字或者标点符号组成一个苹果的图案.
uck前面加什么字母组成一个新的单词
“en”前面加一个字母组成的单词
用字母组成一个英文单词
求一个vb代码,关于判断一个整数的奇偶性
求一个四个字母组成的英语单词
求vb代码:按一个按钮随机出现一道有两个100到999之间的数组成的计算题,如123+659,569×265.
VB求矩阵的特征值哪位高手能编一个VB求任意矩阵的特征值的代码,什么解法的都可以,急用,感激不尽!
跪求高手设计一个五个英语单词(每个英语单词由4个字母组成),组成一个伤感的句子.
ay结尾的,由四个字母组成的,一个英语单词
取一个由四个字母组成的英文单词的名字