第3节 数据输入输出2.pptVIP

示例9或例3-6：使用信息对话框输出各种票额钞票张数的付款方案 设计步骤如下： ◇建立应用程序用户界面（如下图左） 数据输入 示例9 Private Sub Command1_Click() x = Val(Text1.Text) Y1 = x \ 100 : x = x Mod 100 Y2 = x \ 50 : x = x Mod 50 Y3 = x \ 10 : x = x Mod 10 Y4 = x \ 5 : x = x Mod 5 Y5 = x \ 2 : x = x Mod 2 Text1.SelStart = 0 : Text1.SelLength = Len(Text1.Text) : Text1.SetFocus a = ================================= Chr(13) a = a Format(Y1 张 百元票,, @@@@@@@@@@@@) _ Format(Y2 张 50元票, @@@@@@@@@) Chr(13) a = a Format(Y3 张 10元票,, @@@@@@@@@@@@@) a = a Format(Y4 张 5元票, @@@@@@@@@) Chr(13) a = a Format(Y5 张 2元票,, @@@@@@@@