C語言,VB編程題

來源:互聯(lián)網(wǎng)??2012-01-26 12:27:25??評論

分類: 電腦/網(wǎng)絡(luò) >> 程序設(shè)計 >> 其他編程語言

問題描述:

一道題目,請用C語言和VB編程(循環(huán)結(jié)構(gòu),*用空格代替):

********1

*******121

******12321

*****1234321

***************

**************

**1234567654321

*123456787654321

12345678987654321

參考答案:

C語言：

可以用一個簡單的遞歸函數(shù)來控制每行的輸出,可以自己設(shè)定起始和終止值：

#include

int main( ){

int begin,end,i,j,k;

printf("Begin value: ");

scanf("%d",&begin);

printf("End value: ");

scanf("%d",&end);

printf("\n");

for(i = begin,j = end; i <= end; ++i,--j){

for(k = 0; k < j; ++k)

printf(" ");

func(begin,i,begin - 1);

printf("\n");

}

}

void func(int begin,int end,int n){

printf("%d",begin);

if(begin < end)

func(begin + 1,end,n);

if(begin - 1 == n);

else

printf("%d",begin - 1);

}

VB：

把以下代碼放入一個Command按鈕中：

Private Sub Command1_Click()

Dim a, b, c, d As Integer

Dim e As String

e = "***"

For a = 1 To 9 Step 1

For d = 9 To a Step -1

Print e;

Next d

For b = 1 To a Step 1

Print b;

Next b

For c = a - 1 To 1 Step -1

Print c;

Next c

Print

Next a

End Sub

賦給e的三個*號你自己在編譯器中替換為3個空格，因為把代碼粘上來百度只給顯示一個空格。

[b]分類:[/b] 電腦/網(wǎng)絡(luò) >> 程序設(shè)計 >> 其他編程語言[br][b]問題描述:[/b][br]一道題目,請用C語言和VB編程(循環(huán)結(jié)構(gòu),*用空格代替):

********1

*******121

******12321

*****1234321

***************

**************

**1234567654321

*123456787654321

12345678987654321[br][b]參考答案:[/b][br]C語言：

可以用一個簡單的遞歸函數(shù)來控制每行的輸出,可以自己設(shè)定起始和終止值：

#include

int main( ){

int begin,end,i,j,k;

printf("Begin value: ");

scanf("%d",&begin);

printf("End value: ");

scanf("%d",&end);

printf("\n");

for(i = begin,j = end; i <= end; ++i,--j){

for(k = 0; k < j; ++k)

printf(" ");

func(begin,i,begin - 1);

printf("\n");

}

}

void func(int begin,int end,int n){

printf("%d",begin);

if(begin < end)

func(begin + 1,end,n);

if(begin - 1 == n);

else

printf("%d",begin - 1);

}

VB：

把以下代碼放入一個Command按鈕中：

Private Sub Command1_Click()

Dim a, b, c, d As Integer

Dim e As String

e = "***"

For a = 1 To 9 Step 1

For d = 9 To a Step -1

Print e;

Next d

For b = 1 To a Step 1

Print b;

Next b

For c = a - 1 To 1 Step -1

Print c;

Next c

Print

Next a

End Sub

賦給e的三個*號你自己在編譯器中替換為3個空格，因為把代碼粘上來百度只給顯示一個空格。

總結(jié)

以上是生活随笔為你收集整理的vb编程转为c语言,C语言,VB编程题的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。