1樓:蘇州老三石
private sub command1_click()
= max(val(, val(text2.
text), val(, val(, val(text5.
text), val(, val(, val(text8.
text), val(, val(
= min(val(, val(text2.
text), val(, val(, val(text5.
text), val(, val(, val(text8.
text), val(, val(
= round((sum(val(, val(text2.
text), val(, val(, val(text5.
text), val(, val(, val(text8.
text), val(, val( val(text11.
text) -val( 8, 2)
end sub
text11存放最高分,text12存放最低分,text13存放平均分,保留兩位小數。
這道vb題怎麼寫**?
2樓:網友
command1按鈕的caption屬性設定為:"開啟檔案"
通過選單-->工程-->部件:microsoft common dialog control 選上對勾:如下圖:
新增通用對話方塊,並對應設定屬性:
名稱設定為:"cd1"
dialogtitle設定為:"開啟檔案"
filter設定為:"所有檔案(*.文字(*.txt)|*txt"
private sub command1_click()
end sub
基本按照您題目的要求,不明白再問哦!
解答vb題
3樓:匿名使用者
雙重for迴圈 內層迴圈就是tab()難理解一點吧?
例:print tab(5);"就是在當前輸出行的最前面開始數,在第5個位置上輸出*。
x=5,y=1 to 1
y=1 print tab(6);"第6位上輸出* 並回車。
print '空行。
x=4,y=1 to 2
y=1 print tab(6);"第6位上輸出* 並回車。
y=2 print tab(7);"第7位上輸出* 並回車。
4樓:匿名使用者
tab[(n)] 可選的 n 引數是在顯示或列印列表中的下一個表示式之前移動的列數。
private sub command1_click()
for x = 5 to 1 step -1 'x的值從5遞減到1,每次遞減1
for y = 1 to 6 - x 'y的值從1遞增到6-x,因為x的值是5 4 3 2 1,所以y的值是從1遞增到1 2 3 4 5
print tab(y + 5); 意思就是輸出y+5個空格後接著輸出*,認真代入y值即可得出結果。
nextprint 'y迴圈完畢即輸出一空行。
nextend sub
當x=5時,y=1,所以輸出6個空格加*;
當x=4時,y=1,所以輸出6個空格加*;
y=2,所以輸出7個空格加*;
當x=3時,y=1,所以輸出6個空格加*;
y=2,所以輸出7個空格加*;
y=3,所以輸出8個空格加*;
當x=2時,y=1,所以輸出6個空格加*;
y=2,所以輸出7個空格加*;
y=3,所以輸出8個空格加*;
y=4,所以輸出9個空格加*;
當x=1時,y=1,所以輸出6個空格加*;
y=2,所以輸出7個空格加*;
y=3,所以輸出8個空格加*;
y=4,所以輸出9個空格加*;
y=5,所以輸出10個空格加*;
5樓:匿名使用者
結果如下:
*執行過程:
外層迴圈第一次。
x=5執行內迴圈。
for y=1 to 6-5
列印 tab(y+5)=tab(6),即右移動6個製表符的位置,再列印「 *
next每次內迴圈結束後,列印一個空行【print】外層迴圈第二次(step-1)
x=4...
一次類推,得出以上結果。
vb程式題?
6樓:匿名使用者
在迴圈中再做a=a+1,相當於每次迴圈加2(a=a+1加一次,迴圈本身加一次),所以當到10的時候,還會自加2,a變為12,此時因不滿足條件退出迴圈,所以最終a為12,答案選擇d
vb程式設計這題怎麼寫?
7樓:北村他旬
題目內容: 由於計算機內部表達方式的限制,
一道vb程式設計題
8樓:匿名使用者
出生看減去今年不就行了。
解答vb題
9樓:匿名使用者
完全二叉樹的定義:若設二叉樹的高度為h,除第 h 層外,其它各層 (1~h-1) 的結點數都達到最大個數,第 h 層從右向左連續缺若干結點,這就是完全二叉樹。 可以算出,這棵二叉樹共十層,1-9層的節點個數為2^9-1=511個,所以最後一層的節點個數為700-511=189個,189div2=95,那麼倒數第二層的葉結點個數即是2^(9-1)-95=161個 所以所有的葉結點個數即為:
189+161=350個。
根據二叉樹的性質:對於一棵非空的二叉樹,如果葉子節點數為n0,度為2的結點數為n2,則no=n2+1.
根據完全二叉樹的定義可得:在完全二叉樹中度為1的結點n1只能取兩種情況,要麼為0,要麼為1.
所以:n0+n1+n2=700
n0=n2+1;
2n0=701-n1;
因為結點數為整數,所以n1=1,no=350由於二叉樹都忘記了,只能網上拷貝答案給你了。
VB程式設計題
五十分太少,十幾道題,太虧了,不做 蒼鬱 你把題分開,一道題一個帖子,就會有很多人幫你做了,都是些很簡單的題 五十分太多,十幾道題,太賺了,我做 1.在文字框text1中輸入一串字元,統計其中字母 不區分大小寫 數字和其他字元的個數。dim i as integer,a as integer,b a...
VB程式設計題,VB程式設計練習題?
1.新建工程 工程1 2.新建一下combobox控制元件 combo1,並將屬性style改為2 3.新建五個label label1,label2,label3,label4,label5 4.新建兩個text文字框 text1,text2 5.新建一個commandbutton按鈕 comma...
vb程式設計設計題 紅綠燈,VB程式設計設計題 紅綠燈
如圖在窗體上新增 1 四個shape控制元件,作為燈框 紅燈 黃燈 綠燈,分別命名為 lampbox redlamp yellowlamp greenlamp 2 一個命令按鈕,命名為 cmdrun,標題為 啟動 3 三個文字框控制元件,來設定紅燈 黃燈 綠燈亮的時間 秒 分別命名為 txtredt...