高一信息科技设计程序:(用VB语言)1、10元和50元两种纸币组成240元,列出所有不同的取法和种数.2、1xx47 ,知道这5位数是57或67的倍数,输出所有满足条件的5位数,并统计这样数的个数.3、鸡兔
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 12:25:53
![高一信息科技设计程序:(用VB语言)1、10元和50元两种纸币组成240元,列出所有不同的取法和种数.2、1xx47 ,知道这5位数是57或67的倍数,输出所有满足条件的5位数,并统计这样数的个数.3、鸡兔](/uploads/image/z/10124215-7-5.jpg?t=%E9%AB%98%E4%B8%80%E4%BF%A1%E6%81%AF%E7%A7%91%E6%8A%80%E8%AE%BE%E8%AE%A1%E7%A8%8B%E5%BA%8F%EF%BC%9A%EF%BC%88%E7%94%A8VB%E8%AF%AD%E8%A8%80%EF%BC%891%E3%80%8110%E5%85%83%E5%92%8C50%E5%85%83%E4%B8%A4%E7%A7%8D%E7%BA%B8%E5%B8%81%E7%BB%84%E6%88%90240%E5%85%83%2C%E5%88%97%E5%87%BA%E6%89%80%E6%9C%89%E4%B8%8D%E5%90%8C%E7%9A%84%E5%8F%96%E6%B3%95%E5%92%8C%E7%A7%8D%E6%95%B0.2%E3%80%811xx47+%2C%E7%9F%A5%E9%81%93%E8%BF%995%E4%BD%8D%E6%95%B0%E6%98%AF57%E6%88%9667%E7%9A%84%E5%80%8D%E6%95%B0%2C%E8%BE%93%E5%87%BA%E6%89%80%E6%9C%89%E6%BB%A1%E8%B6%B3%E6%9D%A1%E4%BB%B6%E7%9A%845%E4%BD%8D%E6%95%B0%2C%E5%B9%B6%E7%BB%9F%E8%AE%A1%E8%BF%99%E6%A0%B7%E6%95%B0%E7%9A%84%E4%B8%AA%E6%95%B0.3%E3%80%81%E9%B8%A1%E5%85%94)
高一信息科技设计程序:(用VB语言)1、10元和50元两种纸币组成240元,列出所有不同的取法和种数.2、1xx47 ,知道这5位数是57或67的倍数,输出所有满足条件的5位数,并统计这样数的个数.3、鸡兔
高一信息科技设计程序:(用VB语言)
1、10元和50元两种纸币组成240元,列出所有不同的取法和种数.
2、1xx47 ,知道这5位数是57或67的倍数,输出所有满足条件的5位数,并统计这样数的个数.
3、鸡兔同笼共50只,有腿160只,求鸡和兔各多少只?
高一信息科技设计程序:(用VB语言)1、10元和50元两种纸币组成240元,列出所有不同的取法和种数.2、1xx47 ,知道这5位数是57或67的倍数,输出所有满足条件的5位数,并统计这样数的个数.3、鸡兔
'10元和50元两种纸币组成240元,列出所有不同的取法和种数.
Private Sub Command1_Click()
Dim a%,b%,count%
For a = 1 To 19
For b = 1 To 4
If a * 10 + b * 50 = 240 Then
Print a; "张10元和"; b; "张50元"
count = count + 1
End If
Next b
Next a
Print "共有"; count; "种不同的取法"
End Sub
'1xx47 ,知道这5位数是57或67的倍数,输出所有满足条件的5位数,并统计这样数的个数.
Private Sub Command1_Click()
Dim i%,count%
For i = 10047 To 19947 Step 100
If i Mod 57 = 0 Or i Mod 67 = 0 Then
Print i
count = count + 1
End If
Next
Print "共有"; count; "个这样的数"
End Sub
'鸡兔同笼共50只,有腿160只,求鸡和兔各多少只?
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
h = 50
f = 160
x = 2 * h - f / 2
y = f / 2 - h
MsgBox "鸡的只数为:" & x & vbCrLf & "兔子的只数为:" & y
End Sub