vb程序设计题.doc

上传者: 43934844 | 上传时间: 2022-06-20 18:04:44 | 文件大小: 51KB | 文件类型: DOC
1. 程序功能:把一张百元钞票,换成一元、二元和五钞票,每种至少5张,求对换方案数。2 05 Private Sub command1_click() For x = 5 To 100 For y = 5 To 50 For z = 5 To 20 If x + 2 * y + 5 * z = 100 Then n = n + 1 End If Next z, y, x Print n End Sub 2. 编写程序,计算在[10,200]的范围内有多少个数,其每位数的乘积大于每位数的和。 124 Private Sub command1_click() For i = 10 To 200 Select Case i Case 10 To 99 g = i Mod 10 s = i \ 10 Mod 10 If g * s > g + s Then n = n + 1 Case 100 To 200 g = i Mod 10 s = i \ 10 Mod 10 b = i \ 100 Mod 10 If g * s * b > g + s + b Then n = n + 1 End

文件下载

评论信息

免责申明

【只为小站】的资源来自网友分享,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论 【只为小站】 经营者是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二条之规定,若资源存在侵权或相关问题请联系本站客服人员,zhiweidada#qq.com,请把#换成@,本站将给予最大的支持与配合,做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明