在類模塊中輸入下列代碼。
public symbol as string
public name as string
public currenprice as currency
public sub 顯示股票信息（）
msgbox(symbol & vbcrlf & name & currency)
end sub
打印圖案
private sub print()
dim x as string
dim y as integer
dim z as integer
x=""
for i=0 to 2
y=2-i
z=1+i*2
for j=1 to y
x=x & " "
nex j
for j=1 to z
x=x & "#"
next j
x=x & vbcrlf
next i
msgbox(x)
end sub
沒有看到第8題，第7題與股票的問題類似。
本例是用VB答復的，其他語言基本類似。
原來是要Java的：
public class Stock {
private String symbol;
private String name;
private double currentPrice;
public Stock(){
}
public void display(){
System.out.println("(" + this.symbol + ")" + this.name + ":" + this.currentPrice);
}
public String getSymbol() {
return symbol;
}
public void setSymbol(String symbol) {
this.symbol = symbol;
}
public String getName() {
return name;
}
public void setName(String name) {
this.name = name;
}
public double getCurrentPrice() {
return currentPrice;
}
public void setCurrentPrice(double currentPrice) {
this.currentPrice = currentPrice;
}
}