高一信息科技设计程序：（用VB语言）1、10元和50元两种纸币组成240元,列出所有不同的取法和种数.2、1xx47,知道这5位数是57或67的倍数,输出所有满足条件的5位数,并统计这样数的个数.3、鸡兔
<p>问题：高一信息科技设计程序：（用VB语言）1、10元和50元两种纸币组成240元,列出所有不同的取法和种数.2、1xx47,知道这5位数是57或67的倍数,输出所有满足条件的5位数,并统计这样数的个数.3、鸡兔<p>答案：↓↓↓<p class="nav-title mt10" style="border-top:1px solid #ccc;padding-top: 10px;">郭崇慧的回答：<div class="content-b">网友采纳 '10元和50元两种纸币组成240元,列出所有不同的取法和种数. PrivateSubCommand1_Click() Dima%,b%,count% Fora=1To19 Forb=1To4 Ifa*10+b*50=240Then Printa;"张10元和";b;"张50元" count=count+1 EndIf Nextb Nexta Print"共有";count;"种不同的取法" EndSub '1xx47,知道这5位数是57或67的倍数,输出所有满足条件的5位数,并统计这样数的个数. PrivateSubCommand1_Click() Dimi%,count% Fori=10047To19947Step100 IfiMod57=0OriMod67=0Then Printi count=count+1 EndIf Next Print"共有";count;"个这样的数" EndSub '鸡兔同笼共50只,有腿160只,求鸡和兔各多少只? PrivateSubCommand1_Click() DimxAsInteger DimyAsInteger h=50 f=160 x=2*h-f/2 y=f/2-h MsgBox"鸡的只数为："&x&vbCrLf&"兔子的只数为："&y EndSub
页:
[1]