高一信息科技设计程序：（用VB语言）

来源：学生作业帮编辑：搜狗做题网作业帮分类：数学作业时间：2024/05/11 12:41:16

高一信息科技设计程序：（用VB语言）
1、10元和50元两种纸币组成240元,列出所有不同的取法和种数.
2、1xx47 ,知道这5位数是57或67的倍数,输出所有满足条件的5位数,并统计这样数的个数.
3、鸡兔同笼共50只,有腿160只,求鸡和兔各多少只?

'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 Su

高一信息科技设计程序：（用VB语言） VB程序设计（高一信息会考）如何设计用vb语言编写一个程序,输入三个数,输出其中的最大数用VB语言设计程序,把一个正整数写成若干个素数相乘的形式. 高一信息会考题关于vb 关于高一信息科技的题目高一信息科技练习部分答案一道高一信息科技的题目高一信息科技练习册答案高一信息科技会考班哪里好?高一信息科技会考班哪里好? 上海高一信息科技会考哪里有补习班?高一信息科技补习班哪里好? 高一信息技术选修计算的问题（VB程序的）