有10名學生的英語和計算機成績,編寫VB程式求出英語和計算機最高分成績的姓名

時間 2022-01-05 15:17:44

1樓:匿名使用者

剛才的那位,無法處理最高分並列情況,因此需要改進如下:

option explicit

private sub command1_click()

const count = 10

dim stu(1 to 10, 1 to 3)

dim i, j, max, min as integer

dim maxname as string

dim m, n as integer

for i = 1 to count

stu(i, 1) = inputbox("請輸入第" & i & "個同學的名字")

for j = 1 to 2

stu(i, j + 1) = val(inputbox("請輸入第" & i & "個同學的第" & j & "門課成績"))

next j

next i

print "以下為學生的成績資訊:"

for i = 1 to count

for j = 1 to 3

print stu(i, j);

next j

print

next i

for i = 1 to count

if stu(i, 2) >= stu(1, 2) then max = stu(i, 2)           '選出最高分

next

for i = 1 to count

if stu(i, 2) = max then print "英語最高分是:"; stu(i, 1), stu(i, 2) '如果是最高分,就列印

next

for i = 1 to count

if stu(i, 3) >= stu(1, 3) then max = stu(i, 3)

next

for i = 1 to count

if stu(i, 3) = max then print "計算機最高分是:"; stu(i, 1), stu(i, 3)

next

end sub

2樓:簡單贏了

option explicit

private sub command1_click()

const count = 10

dim stu(1 to 10, 1 to 3)

dim i, j, max, min as integer

dim m, n as integer

for i = 1 to count

stu(i, 1) = inputbox("請輸入第" & i & "個同學的名字")

for j = 1 to 2

stu(i, j + 1) = val(inputbox("請輸入第" & i & "個同學的第" & j & "門課成績"))

next j

next i

print "以下為學生的成績資訊:"

for i = 1 to count

for j = 1 to 3

print stu(i, j);

next j

print

next i

max = stu(1, 2)

m = 1

for i = 2 to count

if stu(i, 2) > max then

max = stu(i, 2)

m = i

end if

next i

print "英語最高分是:" & stu(m, 1) & " " & stu(m, 2)

max = stu(1, 3)

n = 1

for i = 2 to count

if stu(i, 3) > max then

max = stu(i, 3)

n = i

end if

next i

print "計算機最高分是:" & stu(n, 1) & " " & stu(n, 3)

end sub

vb程式設計:輸入學生的姓名,學號,語文成績,英語成績,數學成績,計算每名學生的平均

3樓:小公尺扭蛋

我也有類似的問題啊!具體就是要做成下圖的樣子。

4樓:大氣層的雲

各科成績加起來除以科數就是平均成績,如果用資料庫的話非常簡單

5樓:匿名使用者

有其他要求嗎??????????

vb程式設計,輸入不超過10個學生的資訊(學號,姓名,計算機,高數,英語

6樓:嬴妙松宰蓮

提示你一下,用結構體陣列編寫乙個程式。

#include

struct

stu;

void

fun(struct

stu*p)

main()

抱歉啊,本**程圖學得不好,不是很會。

vb輸入10名學生某門課程的成績,求出其中最高分和最低分,並輸出

dim max,min,score,i for i 1 to 10 score val inputbox 輸入成績 if i 1 then max score min score else if score max then max score end if if score private sub...

學校體操隊有20名學生,按兩名男生一名女生排列,男生有多少人,女生有多少人

兩名男生,一名女生,一組出來三個人。20 3等於六餘二。男生應該就是2 6 2 14人,女生20 14 6人。一共有20名學生,三個人一組的話,一共可以分成六組,剩下的是兩名男生 所以男生的數量是6 2 2,等於14人 這種排列方式實際上就相當於先是男生,然後女生男女相隔,只不過最後一位是男生,所以...

某小學有一百名學生,參加數學競賽,平均分63分,其中男生平均分是60分,女生平均分是70分,男女各

設男生x人,女生y人,可得 60x 70y 63 x y 同時共100人可得 x y 100,把兩個式子聯立方程組,化簡求值,後面就是純計算了,不會再問我 請採納 設男生x人,則女生100 x人 60x 70 100 x 63 100 70 60 x 70 63 100 10x 700 x 70 即...

育新小學有100名學生參加數學競賽,平均分是63分。其中男生平均分是60,女生平均分是70,男生比女生多幾人

方法一 雞兔同籠 60 100 6000 分 100 63 6000 70 60 30 人 100 30 70 人 70 30 40 人 方法二 方程 設男生x人 60x 70 100 x 63 100 x 70 100 70 30 人 70 30 40 人 答 男生比女生多40人。設男生x人 女生...

作為一名學生黨,如何購買自己的護膚品

作為一名學生黨,考慮到費用,建議盡量簡化護膚步驟,使用護膚品數量也不要過多。你是學生,比較年輕,肌膚底子不錯,只需要買一點清潔產品,比如洗面奶,然後就是補水的護膚品,最後是防曬品。首先我們根據自己的經濟實力,可以購買一些符合我們經濟條件的護膚品呀。然後就可以根據我們的 來選擇合適的護膚品呢,如果我們...