1.模板及子類
'模板類
public mustinherit class test*****
public sub testquestion1()
console.writeline("楊過得到，後來給了郭靖，煉成倚天劍、屠龍刀的玄鐵可是【】a.球磨鑄鐵 b.馬口鐵 c.高速合成金鋼 d.碳素纖維")
console.writeline("答案：" & answer1())
end sub
public sub testquestion2()
console.writeline("楊過、程英、陸無雙剷除了情花，造成【】a.使這種植物不再害人 b.使乙個珍稀物種滅絕 c.破壞了那個生物圈的生態平衡 d.造成該地區沙漠化")
console.writeline("答案：" & answer2())
end sub
public sub textquestion3()
console.writeline("藍鳳凰致使華山師徒、桃谷六仙嘔吐不止，如果你是大夫，會給他們開什麼藥【】a.阿司匹林 b. 牛黃解毒片 c.氟哌酸 d.讓他們喝大量的生牛奶 e.以上全不對")
console.writeline("答案：" & answer3())
end sub
protected mustoverride function answer1()
protected mustoverride function answer2()
protected mustoverride function answer3()
end class
public class test*****a
inherits test*****
protected overrides function answer1() as object
return "b"
end function
protected overrides function answer2() as object
return "c"
end function
protected overrides function answer3() as object
return "a"
end function
end class
public class test*****b
inherits test*****
protected overrides function answer1() as object
return "c"
end function
protected overrides function answer2() as object
return "a"
end function
protected overrides function answer3() as object
return "a"
end function
end class
module module1
sub main()
console.writeline("學生甲抄的試卷：")
'宣告為父類，利用多型
dim studenta as test***** = new test*****a
studenta.testquestion1()
studenta.testquestion2()
studenta.textquestion3()
console.writeline()
console.writeline("學生乙抄的試卷：")
dim studentb as test***** = new test*****b
studentb.testquestion1()
studentb.testquestion2()
studentb.textquestion3()
console.read()
end sub
end module
Visual Basic內嵌組合語言解決方案
vb簡單易用，但功能有時候受限制。vc delphi都可以直接在程式中寫彙編 可惱的是，vb不行。我在網上也看過許多有關於vb嵌入彙編的方法，不過有些方法，過於複雜，而且也沒相應的介紹。我這裡提供一種方法，也許大家以後可能有用！基本思路 彙編 可以存在乙個byte型別的陣列中，然後通過某種手段，把系...
Visual Basic內嵌組合語言解決方案
vb簡單易用，但功能有時候受限制。vc delphi都可以直接在程式中寫彙編 可惱的是，vb不行。我在網上也看過許多有關於vb嵌入彙編的方法，不過有些方法，過於複雜，而且也沒相應的介紹。我這裡提供一種方法，也許大家以後可能有用！基本思路 彙編 可以存在乙個byte型別的陣列中，然後通過某種手段，把系...
Visual Basic內嵌組合語言解決方案
vb簡單易用，但功能有時候受限制。vc delphi都可以直接在程式中寫彙編 可惱的是，vb不行。我在網上也看過許多有關於vb嵌入彙編的方法，不過有些方法，過於複雜，而且也沒相應的介紹。我這裡提供一種方法，也許大家以後可能有用！基本思路 彙編 可以存在乙個byte型別的陣列中，然後通過某種手段，把系...