印星星的问题

MyChat 数位男女

»
程式设计

»
印星星的问题

手机版

地图

繁体

您是第 8907 个阅读者

可列印版加为IE收藏收藏主题上一主题 | 下一主题

ccna_not

级别: 小人物

▼

[Basic][求助] 印星星的问题

1.
Sub Main()
Tmp = ""
For i = 1 To 10
Tmp = Tmp & String(i, "*")
Tmp = Tmp & vbCrLf
Next
MsgBox Tmp
E ..

访客只能看到部份内容，免费加入会员或由脸书 Google 可以看到全部内容

[ 此文章被ccna_not在2008-06-07 23:12重新编辑 ]


x0 [楼主] From：台湾中华电信HINET \| Posted：2008-06-07 23:06 \|

wellson123

级别: 路人甲

▲ ▼

1.
Sub Main()
Tmp = ""
For i = 1 To 10
Tmp = Tmp & String( ( 10 - i ) / 2, " " ) & String( i, "*" )
Tmp = Tmp & vbCrLf
Next
MsgBox Tmp
End Sub
2.
Sub Main()
Tmp = ""
For I = 1 To 10
For J = 1 To I
Tmp = Tmp & String( J, " " ) & String( J, "*" )
Next
Tmp = Tmp & vbCrLf
Next
MsgBox Tmp
End Sub

试试吧


x0 [1 楼] From：欧洲 \| Posted：2008-06-08 00:58 \|

ccna_not

级别: 小人物

▲ ▼

下面是引用wellson123于2008-06-08 00:58发表的 :
1.
Sub Main()
Tmp = ""
For i = 1 To 10
Tmp = Tmp & String( ( 10 - i ) / 2, " " ) & String( i, "*" )
.......

wellson123
1.第一个会跑成

2. 第二个会跑成

虽然不一样
但还是谢谢你
我再想想~


x0 [2 楼] From：台湾中华电信HINET \| Posted：2008-06-08 02:00 \|

三仙

以马内利

级别: 版主

版区: 程式设计

x17

x370

▲ ▼

图 1. 运算结果

这是第一题的，参考看看
--------------------------------
Tmp = ""
For i = 1 To 10
Tmp = Tmp & Space(10 - i) & String(i, "*") & vbCrLf
Next
MsgBox Tmp
--------------------------------
虽然不知道为什么要用二个 For
但第二层的语意是错的(跟语法无关)
所以会多跑第一层的倍数
控制第二层只做一次就好了

[ 此文章被三仙在2008-06-08 05:27重新编辑 ]

补运算结果图档

[ 此文章被三仙在2008-06-10 15:46重新编辑 ]

此文章被评分,最近评分记录

财富:50 (by andyz)

挖出答案的难度，取决提问的深度！
x0 [3 楼] From：台湾中华HiNet \| Posted：2008-06-08 03:13 \|

andyz

恶灵退散 o(╬￣皿￣)=○ &nb ..

级别: 分类版主

版区: 塑胶模型, 电脑资讯

x55

x168

▲ ▼

不会用VB
用C++写这样
#include<iostream>
using namespace std;

int main()
{
for(int i=0;i<=10;i++)
{
for(int k=9;k>=i;k--) cout<<" ";
for(int j=0;j<i;j++)
{

cout<<"* ";
}
cout<<endl;
}
return 0;
}

回文原则(以下只适用在我的管理区) 1.我不回太白目的问题 2.还有娘家文 3.看不懂得也是 4.我很懒得把你的问题(也就是文字叙述)想成我要看到的画面(也就是萤幕上出现的画面)。纯文字叙述者，看不懂在说啥就不回。想要解答就先下点功夫，来个图文并茂的文章吧。 5.想到再打何谓白目问题 1.看不懂英文的,要求翻译 2.没经过爬文就问 3.给个问题（题目）就要求解答。例如：请问XXX怎么写。自己的CODE都没有贴上来就要求别人帮你写，不如你的作业我帮你作、你的书我帮你读好了 4.想到再打
x0 [4 楼] From：台湾数位联合 \| Posted：2008-06-08 10:39 \|

wellson123

级别: 路人甲

▲ ▼

'Option Explicit

Private Sub Form_Load()

'问题一
Tmp = ""
For i = 1 To 10
Tmp = Tmp & String(10 - i, " ") & String(i, "*")
Tmp = Tmp & vbCrLf
Next
MsgBox Tmp

'问题二
Tmp = ""
For i = 1 To 10
Tmp = Tmp & String(10 - i, " ")
For j = 1 To i
Tmp = Tmp & "*"
Next
Tmp = Tmp & vbCrLf
Next
MsgBox Tmp

End Sub

ps. 我一直把一个空白占的空间当成和一个星号一样, 结果就错了.


x0 [5 楼] From：欧洲 \| Posted：2008-06-13 00:46 \|

koinouta

级别: 路人甲

x140

▲ ▼

复制程式

#include <stdio.h>
#include <stdlib.h>

void main()
{
       int i,j,n,m;
       scanf("%d",&n);
       
       m=(((n%2)==0) ? n/2-1:n/2);
       for (i=m;i>=-m;i--)       {
              for (j=m;j>=-m;j--)       {
                     printf("%s",(abs(i)+abs(j)<=m) ? "*":" " );
              }
              printf("\n");
       }

       system("pause");
}

此为我自己写的菱形程式(C)
VB太久没写...发现完全看不懂=.=
供你参考

第一个for
将i>=-m的-m修改为0即可

...若是修改第二个for则变成.........自己试吧...

另外
(abs(i)+abs(j)<=m) ? "*":" "
其中<=可以修改成>=或==或<或>...至于会产生什么嘛~...自己去试吧~
我懒得截图....=.=


x0 [6 楼] From：台湾 \| Posted：2008-06-17 03:26 \|

sss40914

级别: 路人甲

▲ ▼

'vb2005

Dim x, y As Integer
For x = 1 To 5
For y = 1 To x
Label1.Text += "*"
Next
Label1.Text += vbNewLine
Next
End Sub


x0 [7 楼] From：台湾 \| Posted：2008-11-04 14:13 \|

枫叶物语

级别: 路人甲

▲ ▼

Label1.Text = ""
For x = 1 To 5
Label1.Text = Label1.Text & Space(5 - x)
For y = 1 To x
Label1.Text = Label1.Text & "*"
Next y
Label1.Text = Label1.Text & vbNewLine
Next x
End Sub


x0 [8 楼] From：台湾凯擘 \| Posted：2009-11-04 19:25 \|

abbabc

级别: 路人甲

▲

太棒了
这正好是我们学校老师出给我们的作业
本来还在想说要哪里问人的说
想不到这里刚好有我要的
谢谢大大分享


x0 [9 楼] From：台湾台湾固网 \| Posted：2009-11-15 00:13 \|



MyChat 数位男女 » 程式设计

Powered by PHPWind v1.3.6 Copyright © 2003-04 PHPWind	Processed in 0.087245 second(s),query:16 Gzip disabled 本站由瀛睿律师事务所担任常年法律顾问 \| 免责声明 \| 本网站已依台湾网站内容分级规定处理 \| 连络我们 \| 访客留言