程序设计题

四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）

1.有如下Visual Basic程序段： a=10

If a<6 Then A=a-2

Else

Print a End if

该程序段运行后，变量a的值是………………………………………………………（ ） A.8 B.10 C.12 D.14 2.）有如下VB程序段： Dim m(10) As Integer For I = 0 To 10 m(i) = 2 * i Next i

该程序段运行后，Print m(m(3))执行结果是 ３．（３分）下面的程序是求100以内奇数和s的值(s=l+3+5+……+99)。程序中有三处错误，请更正。

Private Sub Command1_Click()

Dim s As Single （1） Dim i As Single

S=1 （2） For I=1 To 100 Step 1

S=s*I （3） Next i Print s ４.（6分）用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） （3） 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

(1)

If (2) Then

List1.AddItem \元\张 2元\张 5元\张\ (3) End If Next z Next y

Label1.Caption = \共有\种兑换方案\End Sub