的自然数中，找出能被 3 整除，且至少有一位数字为 5 的所有整数，并 统计个数。 设变量 s 是一个三位正整数，变量 a、b、c 分别表示 s 的百位、十位和个位上的数字，变量 n 表示满足要求的整数个数。对于每一个 s，只要判断 a、b、c 中是否至少有一个为 5，即 可找到符合条件的数。程序界面如图 VB-1 所示，单击"统计"按钮，在列表框 List1 中输出 符合条件 s 值，在文本框 Text1 中输出 n 的值。 相应的 Visual Basic 程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补 充完整。 Private Sub Command1_Click() Dim s As Integer, n As Integer Dim a As Integer, b As Integer, c As Integer n = 0 s = 102 List1.Clear Do While (1) a = s \ 100 b = s \ 10 Mod 10 c = s Mod 10 If (2) Then n = n + 1 List1.AddItem Str(s) s = s + 3 Loop Text1.Text = Str(n) End Sub 程序中划线处(1)应填入 ___________ 程序中划线处(2)应填入_______________
List1.AddItem "1 元" + Str(x) + "张 2 元" + Str(y) + "张 5 元" + Str(z) + "张"
____(2)___________ End If Next z Next y Label1.Caption = "共有" + Str(k) + "种兑换方案" End Sub 程序中划线处(1)应填入_____________ 程序中划线处(2)应填入_____________
2.以下 Visual Basic 程序的功能是： 计算表达式 1+2+22+23+24+25+26+27+28+29+210 的值， 并 在 文 本 框 Text1 中 输 出 结 果 。 为 了 实 现 这 一 功 能 ， 程 序 中 划 线 处 的 语 句 应 更 正 为 _____________。 Private Sub Command1_Click() Dim i As Integer,s As Long s = 0 k = 2 For i= 1 To 10 s = s + k k = k * 2 Next i Text1.Text=Str(s) End Sub
1.用 50 元钱兑换面值为 1 元、2 元、5 元的纸币共 25 张。每种纸币不少于 1 张，求出有多 少种兑换方案？每种兑换方案中 1 元、2 元、5 元的纸币各有多少张？ 假设面值为 1 元、2 元、5 元的纸币分别是 x、y、z 张，兑换方案有 k 种，从题意可得出 x、y、z 满足的表达式为 x+y+z=25 x+2y+5z=50 解决此问题的 Visual Basic 程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把 程序补充完整。 Private Sub Command1_Click() Dim k As Integer Dim x As Integer, y As Integer, z As Integer k = 0 List1.Clear For y = 1 To 23 For z = 1 To 9 x = 25 - y - z If (1) Then