Private sub Button1_CLICK (Byval Sender as System.object, byval E as System.eventargs) handles button1.click dim n as ins n = val (text1.text) r ) Integer = {25, 10, 5, 1} dim count (ubound (type)) as integer dim I as integer for I = 0 to ubound (type) n count (i) = n type (i) = n mod type (i) next for i = 0 to ubound (type) textbox2.text
PrivateSubCommand1_Click()ForI=0To3Label1(I).Caption=""NextIDimMAsSingle,qAsInteger,dAsInteger,nAsInteger,pAsIntegerM=Val(Text1.Text)IfM=0ThenMsgBox"输入需要找的金额!"ExitSubEndIfq=M25d=(M-25* q) 10n = (m-q*25-d*10) 5p = m-q*25-d*10-n*5label1 (0) .caption = qlabel1 (1) .caption = dlabel1 (2) .Caption = nlabel1 (3) .Caption = pendsub
Hua Nong's
Private sub Button1_CLICK (Byval Sender as System.object, byval E as System.eventargs) handles button1.click
dim n as ins n = val (text1.text) r ) Integer = {25, 10, 5, 1}
dim count (ubound (type)) as integer
dim I as integer
for I = 0 to ubound (type) n count (i) = n type (i)
= n mod type (i)
next
for i = 0 to ubound (type)
textbox2.text
I can write for you to write ~ karma, need to be ~~