印星星的問題

MyChat 數位男女

»
程式設計

»
印星星的問題

手機版

地圖

簡體

您是第 9082 個閱讀者

可列印版加為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

級別: 路人甲

x141

▲ ▼

複製程式

#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.022955 second(s),query:16 Gzip disabled 本站由瀛睿律師事務所擔任常年法律顧問 \| 免責聲明 \| 本網站已依台灣網站內容分級規定處理 \| 連絡我們 \| 訪客留言