1樓：網友
option explicit
private sub command1_click()dim a(100, 100) as integerdim i as integer
dim j as integer
if isnumeric( =false thenmsgbox "請在文字框輸入要顯示的行數（1-99）",vbinformation, "提示"
elsefor i = 1 to
for j = 1 to i
a(i, j) =1
nextnext
for i = 2 to
for j = 1 to i
a(i, j) =a(i - 1, j) +a(i - 1, j - 1)
nextnext
for i = 1 to
print space(cstr( -i);
for j = 1 to i
print cstr(a(i, j)) space(1);
nextprint
nextfor i = - 1 to 1 step -1print space(cstr( -i);
for j = 1 to i
print cstr(a(i, j)) space(1);
nextprint
nextend if
end sub
請注意，要乙個commandbutton和乙個text控制項。
在窗體上顯示。
上已除錯通過。
2樓：風琦凌波
迴圈語句的問題。
#include
using namespace std;
int main();
int b=
for(int i=1;i<=8;++i){for(int j=1;j<=a[i];+j)cout<<'
int m=1;
for(;m<=b[i]/2;++m)
cout<=1;--n)
cout<=1;--i){
for(int j=1;j<=a[i];+j)cout<<'
int m=1;
for(;m<=b[i]/2;++m)
cout<=1;--n)
cout就行了，細節部分如宣告變數一改就行了。
注：在兩個陣列中，第乙個是0是為了不用a[0](vb中是a(0) )這個元素，這樣以使其和行數保持一致。
3樓：網友
這是幾個揚輝3角的組合 呵呵。
關於vb演算法的乙個小問題
4樓：然後去遠足
題主可能看錯問的是啥了，問的是 i 是多少，不是 s。
i = 1 , s = s + i = 0 + 1 = 1.
i = 2 , s = s + i = 1 + 2 = 3.
i = 3 , s = s + i = 3 + 3 = 6.
i = 4 , s = s + i = 6 + 4 = 10.
i = 5 , s = s + i = 10 + 5 = 15.
i = 6 退出迴圈。
執行結果如下圖：
5樓：傲慢的
這道題問的是i不是s到5結束迴圈後next會給i+1使結果為6
求vb演算法或者實現思路！
6樓：一概而論
首先你要確定 高溫平滑資料段 定義，要更詳細些。這樣才能確定目標。
這樣定義如何：
1.如你所說，「資料點中溫度變化幅度小，形成的曲線幾乎在乙個水平線上的一段資料」 ；
2.這個資料段最短是多少，兩個點組成的資料段作為目標也沒多大意義。假設為 n ；
3.變化幅度相同，距離不同，取哪個？變化幅度與距離是成正比，還是定值？
確定上面幾點後，再使用數學方法（如求平均、求方根等）對各段資料進行判斷即可。
誰會？一道vb題，誰會？一道vb題
我覺得還是vb語言要比c語言簡單點哦 i i 1 i 2 3 要是寫程式的話還是不要弄公式了 private sub command1 click dim i j s for i 1 to val text1 s 0 for j 1 to i s s j next label1 label1 s n...
一道令人抓破腦袋都想不出的數學題（必進）
我要說一種方法 平均每什麼 1什麼就 什麼，也就是把它當作除數。第一個是問 平均每分鐘 所以就要 分鐘 即 13 10 13 10 千米 第二個是問 平均行1千米 所以就要 千米 即 10 13 10 13 分鐘 13 10 1.3 千米 分鐘 10 13 0.769 分鐘 這種題你可以這麼看每分鐘...
一道vb題目求解
我們就是超級巨星，超級巨星。我們有傳遞快樂的魔力。我們就是超級巨星，超級巨星。我們有傳遞看來的魔力。我們就是超級巨星，超級巨星。我們一傳遞快樂的魔力。我們就是超級巨星，超級巨星，我們有傳遞快樂的能力 yenh 他一直有個騎行環遊中國的夢想，從大三開始就積極在各大平臺 上聯絡驢友，可就在準備出發的當口...