vb程式設計題?這道vb題怎麼寫程式碼?

時間 2023-05-21 21:30:09

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位上輸出* 並回車。

print

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...