4 thoughts on “VB coin problem”

  1. 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

  2. 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

Leave a Reply to Jay Cancel Reply

Your email address will not be published. Required fields are marked *

Scroll to Top
Scroll to Top