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