nynw.net
当前位置:首页 >> vB使用星号输出一个五行的直角三角形 >>

vB使用星号输出一个五行的直角三角形

For i = 1 To 5 Print String(i, "*")Next i

Private Sub Form_Click() Dim i%, j% For i = 1 To 4 For j = 1 To 7 If j

Dim n As Integer n = 10 For i = 1 To n For k = 1 To n - i Print Chr(32); Next For j = 1 To i Print "*" & Chr(32); Next Print "" Next 放到Form_Paint()里面都可以。

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 " "; N...

问题解决了吗?就在这个窗体里面吗?

觉得String(i,"*")不习惯,可以用常规的 For i = 1 To 6 '行数 For j = 1 To 7 - i '列数,随着i变大j变小 Print "*"; Next j Print '换行 Next i

病情分析: 你好,这个检查结果说明是没有霉菌和滴虫感染的,如果其他的项目也是正常的就不需要担心的。 指导意见: 你的情况应该看看其他的项目如脓球,白细胞等,如果这些有阳性的表现,就是细菌感染的,如果都是阴性的,这样可以除外阴道炎的...

我来回答,1加用户名为abc,密码为123的用户 net user abc * /add 输入后会提示 请键入用户的密码: 此时键入密码会以星号显示,再次输入密码,确认就可以了。 2.用VB脚本语言实现: 可以编辑一个vbs脚本,在其中以隐藏窗口运行批处理程序。 ----...

dim n as integer dim i as integer dim j as integer n=val(text1.text)'假设用text控件接收输出*的行数,也可以自己写个 for i=1 to n for j=1 to 2*i-1 print '*'; '不要少了分号 next j print '换行 next i

既然紧急,那就紧急处理,直接用Print方法打印五角星。 private sub form_load() me.show print " *" print " * *" print "* *" ... '自己补完 end sub

网站首页 | 网站地图
All rights reserved Powered by www.nynw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com