VB設計,求該題程式的編寫

時間 2022-09-02 01:40:03

1樓:匿名使用者

介面:1、窗體1個

2、標籤陣列(0 to 7),caption屬性分別<==「委員(1~~8)」

3、文字框陣列(0 to 7)

4、【關閉】按鈕一個(點選事件中加 unload me:end 用於退出 )

5、【計算】按鈕一個(點選事件中加入:求極值、求均值、處理結果顯示等**)

6、顯示計算結果的標籤一個。

**:1、窗體載入事件中(初始化)

for i= 0 to 7

文字框陣列(i).text = ""

next i

2、【計算】按鈕獲得焦點事件中加入

2.1 檢查文字框中的值,是否有效數字?

2.2 是否大於委員允許給的最高許可權值?

2.3 是否小於委員給的分小於 0 (允許 0 作為期權)

出現錯誤,使用msgbox顯示資訊, 同時,焦點返回到文字框陣列索引對應的文字框中,提供修改機會。

3、【計算】按鈕點選事件中的**:

3.2 求極值,

zuida = -10000 '模組級公用變數

zuixiao = 10000 '模組級公用變數,大於委員許可權即可

zonghe = 0 』模組級公用變數,初始化

tmp = 0 '臨時變數,可以不初始化

for i = 0 to 7

tmp = val(文字框陣列(i)

'求和zonghe = zonghe + tmp

'求極值

if tmp > zuida then

zuida = tmp

elseif tmp < zuixiao then

zuixiao = tmp

end if

next i

zonghe = zonghe - zuida - zuixiao '有效總和

zonghe = zonghe / 6 '均值(得分)

顯示計算結果的標籤.capion = "參賽者之一得:" & format(zonghe, "0.0##") & " 分。"

ok了。

思路、**都有了 就 10 分,虧打發了。哈哈哈哈。。。

2樓:驪山大粽子

這個題目難點就是找到最高分和最低分

我認為可以參照氣泡排序法來解決

即建立陣列,然後迴圈得到最高分和最低分

再從8位評委的打分的合計裡面減去最高分和最低分除以6

c語言編寫程式題求大神,C語言編寫程式題,求大神

菊隱逸者也 最簡單明瞭的程式如下 include main double x,y,max,min min max 0 for x 0 x 2 x 0.2 y 2 x x x 3 x x x x 6 x x x x x 4 x 50 printf 當x f時,y f n x,y if y max ma...

用VB程式編寫,求奇數和或者偶數和

private sub command1 click dim x as long,y as long,sumx as long,sumy as long x val inputbox 輸入奇數範圍 y val inputbox 輸入偶數範圍 for i 1 to x step 2sumx sumx ...

求 機械原理課程設計凸輪設計vb程式

果子的 private sub command1 click 引數初始化 dim r0 r1 h e dim a1 a01 a2 a02 r0 val inputbox 請輸入基圓半徑 r1 val inputbox 請輸入滾子半徑 h val inputbox 請輸入升程 e val inputb...