vb程序设计题.doc
版权申诉
77 浏览量
2022-06-20
15:42:31
上传
评论
收藏 51KB DOC 举报
vb 程序设计题
1、 程序功能：把一张百元钞票,换成一元、二元和五钞票,每种至少 5 张,求对换方案数。
205
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 Select
Next i
Print n
End Sub
3、编写程序，求在 300－1000 之间所有能被 5 除余 3，被 7 除余 5，被 9 除余 7 的数之和。
1884
Private Sub command1_click()
s = 0
For i = 300 To 1000
If i Mod 5 = 3 And i Mod 7 = 5 And i Mod 9 = 7 Then
s = s + i
End If
Next i
Print s
End Sub
3、 编写程序，已知：S=1+3+5+7+9+…，求 S 不大于 7000 的最大值。6889
Private Sub command1_click()
s = 1: i = 1
评论0
最新资源