|
論壇說明 | 標記討論區已讀 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
|
主題工具 | 顯示模式 |
2002-12-11, 02:37 PM | #1 |
|
VB的程式請教高手
求救啊...VB的程式請教高手
查詢可以改變大小 排序那不行... 不知哪裡寫錯了? Dim n(50) As String Dim c(50) As Integer Dim e(50) As Integer Private Sub Command1_Click() w = InputBox("學生數") For i = 1 To w n(i) = InputBox("請輸入姓名:", "請輸入姓名") c(i) = InputBox("請輸入國文成績:", "請輸入成績") e(i) = InputBox("請輸入英文成績:", "請輸入成績") Next i End Sub Private Sub Command2_Click() If Option1.Value Then Font.Size = 12 ElseIf Option2.Value Then Font.Size = 16 Else Font.Size = 18 End If If Option4.Value Then Font.Italic = False Font.Bold = False ElseIf Option5.Value Then Font.Italic = True Font.Bold = False ElseIf Option6.Value Then Font.Italic = False Font.Bold = True Else Font.Italic = True Font.Bold = True End If a = InputBox("請輸入姓名:", "輸入姓名") b = "" d = 0 For i = 1 To 50 If n(i) = a Then b = n(i) d = c(i) f = e(i) End If Next i If b = "" Then Print "資料錯誤!!" Else Cls Print "姓名: " & b & " 國文成績: " & d & "英文: " & f End If End Sub Private Sub Command3_Click() If Option1.Value Then Font.Size = 12 ElseIf Option2.Value Then Font.Size = 16 Else Font.Size = 18 End If If Option4.Value Then Font.Italic = False Font.Bold = False ElseIf Option5.Value Then Font.Italic = True Font.Bold = False ElseIf Option6.Value Then Font.Italic = False Font.Bold = True Else Font.Italic = True Font.Bold = True End If Dim a As String Dim b As Integer Dim h As Integer FontSize = 14 w = InputBox("學生數") Cls For i = w - 1 To 0 Step -1 For j = 0 To i If c(j) < c(j + 1) Then a = n(j) b = c(j) h = e(j) n(j) = n(j + 1) c(j) = c(j + 1) e(j) = e(j + 1) n(j + 1) = a c(j + 1) = b e(j + 1) = h End If Next j Next i Cls For z = 0 To w - 1 Print " 名次: " & z + 1 & " 姓名: " & n(z) & " 成績: " & c(z) & " 英: " & e(z) & " 平均: " & (c(z) + e(z)) / 2 Next z End Sub |
送花文章: 0,
|
2002-12-11, 09:43 PM | #4 (permalink) |
長老會員
|
For i = 0 To w-1
For j = i To w If c(i) < c(j) Then a = n(i) b = c(i) h = e(i) n(i) = n(j) c(i) = c(j) e(i) = e(j) n(j) = a c(j) = b e(j) = h End If Next j Next i 試試看,不過您c(n)到底是平均還是國文成績啊??? <參考> |
__________________ 地獄變現記 [人身得來不易,願大家能尊重生命--勿傷胎命][好淫者請好自為之吧--割鳥] 南泉禪師道: 「道不屬知,不屬不知。知是妄覺,不知是無記。若真達不疑之道,猶如太虛,廓然蕩豁,豈可強是非邪?」 德山宣鑒禪師: 「如果明白無事,則勿妄求,妄求而得,亦非得也。汝但無事於心,無心於事,則虛而靈,空而妙。若毛端許,言之本末者,皆為自欺。何故?毫氂繫念,三塗業因。瞥爾情生,萬劫羈鎖。聖名凡號,盡是虛聲。殊相劣形,皆是幻色。汝欲求之,得無累乎?」 |
|
送花文章: 5469,
|
主題工具 | |
顯示模式 | |
|
|
相似的主題 | ||||
主題 | 主題作者 | 討論區 | 回覆 | 最後發表 |
請問諾頓2004的問題 | andymail | 軟體應用問題討論區 | 8 | 2004-01-20 07:40 PM |