1.最大數及最小數
請輸入一5個數字的數列，該數字間以空白分隔，求該數列的最大數及最小數
EX：
輸入格式：1 2 3 4 1000
輸出格式：最大數：1000 最小數：1
2.菱形方塊
是寫一程式印出菱形方塊，其形狀是由一群全形的＊包圍而成
EX：
輸入：N=2
＊
＊＊＊
＊
輸入：N=3
＊
＊＊＊
＊＊＊＊＊
＊＊＊
＊
輸入： N=5
＊
＊＊＊
＊＊＊＊＊
＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊
＊＊＊＊＊
＊＊＊
＊
－－－－－－－－－－－－－－－－－－－－－－－－－－
請各位幫幫忙，小弟朋友要的，我來不及寫，手上還有五個，明天要用
這兩個小弟要花好久時間想
小弟想出第二題了
剩六題了
答案：
Dim t, a, b As Integer
Private Sub Command1_Click()
t = Val(Text1)
For i = 1 To 2 * t - 1 Step 2
Print Space(2 * (2 * t - 1 - i)) & String(i, "＊")
Next i
For i = 2 * t - 2 To 1 Step -2
Print Space(2 * (2 * t - i)) & String(i - 1, "＊")
Next i
End Sub
-----------------------------------------------------
不知道對不對
請輸入一5個數字的數列，該數字間以空白分隔，求該數列的最大數及最小數
EX：
輸入格式：1 2 3 4 1000
輸出格式：最大數：1000 最小數：1
不會用VB6，不過我用C的方式，道理是一樣的。
你自行運用下面的function...
void BubbleSort(int K[],int n)
{
int flag;
for (int i = 1;i<n;i++)
{
int flag = 0;
for (int j = 1;j<= n - i;j++)
{
if (K[j + 1] < K[j])
{
swap (K[j],K[j+1]);
flag = 0;
}
if (!flag)
{
exit(1);
}
}
}
}
2.菱形方塊
是寫一程式印出菱形方塊，其形狀是由一群全形的＊包圍而成
EX：
輸入：N=2
＊
＊＊＊
＊
輸入：N=3
＊
＊＊＊
＊＊＊＊＊
＊＊＊
＊
輸入： N=5
＊
＊＊＊
＊＊＊＊＊
＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊
＊＊＊＊＊
＊＊＊
＊
for i = 1 To n
for j = i To i + 2
Print "*"
next j
next i
for i = n - 1 To 1
for j = i - 2 To i
Print "*"
next j
next i
但總要教人綁魚線吧!!
內文搜尋
從 APP 打開
X