Question

图中第六题，也就是最后一道题这么做，这是个vb题，，代码写的详细一点点，谢谢了，

Answer 1

加入一个文本框 和一个按钮 之后在按钮中输入如下内容就可以了

If Text1.Text = "" Then Exit Sub
temp = Text1.Text
temp2 = temp \ 100 '百元有几张

If temp2 <> 0 Then out = "100元有" & temp2 & "张" & Chr(13) '如果不为0

temp = temp Mod 100 '除100取余
temp2 = temp \ 50 '50元有几张
If temp2 <> 0 Then out = out & "50元有" & temp2 & "张" & Chr(13)

temp = temp Mod 50 '除50取余
temp2 = temp \ 20 '20元有几张
If temp2 <> 0 Then out = out & "20元有" & temp2 & "张" & Chr(13)

temp = temp Mod 20 '除20取余
temp2 = temp \ 10 '10元有几张
If temp2 <> 0 Then out = out & "10元有" & temp2 & "张" & Chr(13)

temp = temp Mod 10 '除10取余
temp2 = temp \ 5 '5元有几张
If temp2 <> 0 Then out = out & "5元有" & temp2 & "张" & Chr(13)

temp = temp Mod 5 '除5取余
temp2 = temp \ 2 '2元有几张
If temp2 <> 0 Then out = out & "2元有" & temp2 & "张" & Chr(13)

temp = temp Mod 2 '除5取余
temp2 = temp \ 1 '2元有几张
If temp2 <> 0 Then out = out & "1元有" & temp2 & "张" & Chr(13)
MsgBox out

追问

这个百度是也有

追答

那这个有用吗，能帮到你吗。

分析：可以从最大的票额（100

元）开始，算出所需的张数，然后在剩下的部分

算出较小票额的张数，直到最小票额（1

元）。设计步骤如下：

(1)

建立应用程序用户界面。

选择“新建”工程，进入窗体设计器，

增加一个命令按钮

Command1、14个标签Label1～Label14、7个文本框Text1～Text7。

(2) 

设置对象属性编写程序代码。编写命令按钮Command1的Click事件代码

追问

谢谢