❶ vb關於將數據在窗體上直接輸出的問題
你是要輸出百錢買百雞吧,代碼如下:
PrivateSubForm_Click()
DimwAsInteger'錢數
DimzAsInteger'雞的數目
DimgAsInteger,mAsInteger,xAsInteger'分別代表公雞母雞小雞
Print"母雞";Tab;"公雞";Tab;"小雞"
Forg=1To100
Form=1To100
Forx=1To100
w=g*3+m*2+x/3
z=g+m+x
Ifw=100Andz=100Then
Printm;Tab;g;Tab;x
EndIf
Nextx
Nextm
Nextg
Print"完成!"
EndSub