用VB輸出數(shù)字倒三角

我理解你想要的結果應該是

創(chuàng)新互聯(lián)建站堅持“要么做到，要么別承諾”的工作理念，服務領域包括：成都網(wǎng)站制作、做網(wǎng)站、外貿(mào)營銷網(wǎng)站建設、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務，滿足客戶于互聯(lián)網(wǎng)時代的肇慶網(wǎng)站設計、移動媒體設計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡建設合作伙伴！

如果猜測屬實，那么，按照你的思路，代碼應該改寫為（關于j的循環(huán)沒有必要從大到小，可以從小到大，這是一般的做法）

實際上這個代碼中，關于j的循環(huán)，完全可以去掉，代碼簡化為：

結果都是一樣的。

這里里面你注意一個函數(shù)就是cstr，他就是將一個數(shù)字轉化為一個字符串，而且沒有了前后的空格。

VB怎么用循環(huán)語句和*打印等腰三角形**** * * * * * * 像這樣！等腰的！

新建工程,添加command1控件,復制我的代碼.vb6.0+xp調試通過.

代碼如下

Private Sub Command1_Click()

Dim i As Integer

Print Space(10) "*"

For i = 1 To 9

Print Space(10 - i) "*" Space(i * 2) "*"

Next i

For i = 0 To 21

Print "*";

Next i

End Sub

vb 在picture打印數(shù)字三角形,1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49

如果是在特定picture，神馬自己的jpg，bmp上作圖，那就不要看下去了。

假如思路要這樣的話：49/2 取整加1（也可以直接數(shù)出來25個數(shù)字）；一般的，我們把三角形正放，可知有以下幾點常識：

1，最上一個角必然是一個數(shù)字;

2，每行數(shù)字逐漸增多，最后一行剛好分配完；

3，打印的每一行平行，成三角的話（只有兩行不在此列）每行上的數(shù)字個數(shù)為等差數(shù)列，設方差為a，則每行數(shù)字的個數(shù)如下：

1

1 + a

1 + 2a

......

1 + na

其中總數(shù)為25；公式為 n +1+ a*n*(n+1)/2 = 25。

顯然如果只有一行是不能稱之為三角形的n1。可得a7;即a可為1,2,3,4,5,6；逐個試之，僅a為2可得n為整數(shù)5。

結果為：

count

1 line1 1

3 5 7 line2 3

9 11 13 15 17 line3 5

19 21 23 25 27 29 31 line4 7

33 35 37 39 41 43 45 47 49 line5 9

sum 25

其中三角行可調整為等腰三角形。

代碼如下：

int line = 1;

for( int i = 0; i 25; i++ )

{

fprintf( stdout, 'i*2 + 1 ' );

if( 1+2*(line-1) == (i+1)/2 )

{

fprintf(stdout, '\n');

line++;

}

}

說真的，以題目這么寬松，兩行也要算的。

count

1 line1 1個數(shù)字

3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 line2 24 個數(shù)字

如果1下面必須有數(shù)字，（打印格式一般是這樣的），則湊不成等腰三角形了。

代碼如下：

fprintf( stdout, '1\n ' );

for( int i = 0; i 25; i++ )

{

fprintf( stdout, 'i*2 + 1 ' );

}

fprintf(stdout, '\n');

VB.Net的問題，輸入整數(shù)n，顯示具有n行的楊輝三角形。

參考：

以下為十行的楊輝三角輸出，根據(jù)這個自己做相應修改，都做好了，那你就是伸手黨了。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i, j As Integer

Dim n As Integer

n = 10

Dim dete(n, n) As Integer

Dim sum As Integer

For i = 0 To n

For j = 0 To i

If i = 0 Then

dete(i, j) = 1

ElseIf j = 0 Then

dete(i, j) = 1

ElseIf i = j Then

dete(i, j) = 1

Else

dete(i, j) = dete(i - 1, j - 1) + dete(i - 1, j)

End If

Next

Next

For i = 0 To n

For j = 0 To i

Debug.Write(dete(i, j) " ")

sum += dete(i, j)

Next

Debug.WriteLine(" ")

Next

End Sub

End Class

VB 在窗體上利用二重循環(huán)打印正三角形

dim i as integer

dim j as integer

for i=1 to 99 '代表行數(shù)或列數(shù)

for j=1 to i

print "*";

next j

print

next i

VB中如何打印正三角圖案

1、具體實現(xiàn)星號三角形的代碼如下：

Public Function sanjiaoxing(ByVal num As Integer) As String

Dim i, j As Integer

Dim st As String

st = ""

Dim m As Integer

If (num Mod 2 = 0) Then

sanjiaoxing = ""

End If

'輸出上三角形

For i = 1 To (num + 1) \ 2

For j = 1 To (num + 1) / 2 - i

st = st " "

Next

For j = 1 To 2 * i - 1

st = st "*"

Next

st = st vbCrLf

Next

sanjiaoxing = st

End Function

Private Sub Form_Click()

Print sanjiaoxing(11)

End Sub