1樓：碧血玉葉花
private sub command1_click()
dim 語文 as single
dim 數學 as single
dim 英語 as single
dim 物理 as single
dim 化學 as single
語文 = val(text1.text)
數學 = val(text2.text)
英語 = val(text3.text)
物理 = val(text4.text)
化學 = val(text5.text)
if (語文 + 數學 + 英語 + 物理 + 化學 >= 450) or _
(語文 >= 88 and 數學 >= 88 and 英語 >= 88 and 物理 >= 88 and 化學 >= 88) or _
((語文 >= 95 and 數學 >= 95 and 英語 >= 95) or (物理 >= 80 and 化學 >= 80)) then
label7.caption = text1.text & "同學的成績為優秀！"
end if
2樓：
select case條件是從上到下判斷的，低於0分的要在最前面private sub command1_click()dim a as integer
a = text1.text
select case a
case is < 0
msgbox "error"
case is < 60
text2.text = "不及格"
case is < 70
text2.text = "及格"
case is < 80
text2.text = "中"
case is < 90
text2.text = "良"
case is < 101
text2.text = "優"
case is > 100
msgbox "error"
end select
end sub
3樓：
把 case is<0: case is >100 改成 else case
vb自動填表問題，VB自動填表問題
這個是vb?怎麼看怎麼像html啊？vbs？新建窗體的時候選 loginform 就有類似的 了吧，樓上的都寫到資料庫裡了 牛x。vb自動填表問題 vb自動填表問題80分求解 在你上面的表單 之後加上那個這段 頁面載入後，表單就會被填充你指定的內容。把 發上來，才行的呀。vb webbrowser自...
vb的rnd函式問題，VB的Rnd函式問題
此題填1001 1.用rnd函式產生隨機整數，可以通過將由rnd函式產生的隨機小數乘以一個整數，然後再對結果取整獲得。2.產生一個從n到m之間的隨機整數 m n，包括m和n 的表示式為 int rnd m n 1 n 不懂可以追問，希望有幫助 你好！rnd 產生隨機數的範圍是 0,1 所以，產生30...
vb隨機數問題，vb 隨機數問題
private sub command1 click dim a 10 as integer for i 1 to 10 for j 1 to 10 a i int rnd 100 a j int rnd 100 if a i a j then a i a i 1 next next for i 1...