当前位置: > 怎样在vb中用*打出平行四边形?...
题目
怎样在vb中用*打出平行四边形?

提问时间:2021-04-01

答案
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
Print String(m - i, " "); s
Next
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
版权所有 CopyRight © 2012-2019 超级试练试题库 All Rights Reserved.