2013年程序设计题

1'下面的程序是求100以内所有奇数之和,程序中有三处错误，请更正。

'注：请不要更改原程序结构。

Private Sub Command1_Click()

Dim s As Integer

Dim i As Integer

s = 0

For i = 1 To 99 Step 2

s = s + i

Next i

Print "s=" & s

End Sub

Private Sub Form_Load()

End Sub

2、(选修)打开“考生文件夹\3542”文件夹中的工程“工程1.vbp”，按下图所示添加缺少的控件，并完善程序以实现如下所述的功能：

某商场在国庆节时做促销，活动规定:凡在商场消费满500元以上(含500元)，享受9折优惠；消费满1000元以上(含1000元)，享受8折优惠；消费在500元以下不优惠。输入消费金额，计算出实收金额。

Private Sub command1_click()

Dim m As Single '消费金额

m = ___①___

If m >= 1000 Then

Text2.Text = ____②___

Else

If __③___ Then

Text2.Text = m * 0.9

Else

Text2.Text = m

End If

End If

End Sub

系统答案 在窗体上添加CommandButton控件 并把Caption 属性改为计算 ①Val(Text1.Text) ②m * 0.8 ③m>=500 and m<1000

3、(选修)打开“考生文件夹\3768”文件夹中的文件“计算实付金额.vbp”，进行以下操作并

'国庆节来临之际，为吸引顾客前来购物，天虹商场进行了促销活动；

'规定凡购物满1000元以上(含1000元)，享受9折优惠，1000元以下，享受9.5折优惠。'删除程序中的①②③，填入正确的语句，当程序运行时，输入购物金额输出实付金额！Private Sub form_load()

Dim n As Single '购物金额

Dim s As Single '实付金额

n = Val(InputBox("请输入购物金额：", "输入"))

If n >= 1000 Then

s = n * 0.9

Else

s = n * 0.95

End If

MsgBox "实际支付金额" & s & "元", 0, "实付金额"

End Sub

4、(选修)打开“考生文件夹\3530”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！

填空完成程序，使程序实现如下功能：

当单击“开始”按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5个数按照从小到大的顺序排列并显示在窗体上。

Private Sub Command1_Click()

Dim x As Long

Dim n As Integer, i As Integer, s As Long

Dim a(1 To 5) As Single

For i = 1 To 5

a(i) = Val(InputBox("请在输入第" + Str(i) + "/5个数"))

Print a(i);

Next i

Print

For i = 1 To ___①__

Min = a(i): m = i

For x = i + 1 To 5

If ___②___ Then Min = a(x): m = x

Next x

k = a(i): ____③___: a(m) = k

Next i

Print "从小到大排序后的数据为 "

For i = 1 To 5

Print a(i);

Next i

End Sub

系统答案 ①4 ②a(x) < Min ③a(i) = a(m)

5。(选修)打开“考生文件夹\3753”文件夹中的文件“vb.vbp”，如图所示添加缺少的控件，并完善程序以实现如下功能：在文本框内输入听力及笔试成绩，当听力成绩达到30分以上（含30分）、笔试成绩达到60分以上（含60分）时显示评价为“合格”；否则显示“不合格”。'在文本框内输

入听力及笔试成绩；'当听力成绩达到30分以上（含30

分）、笔试成绩达到60分以上（含60分）时显示评价

为"合格"；否则显示"不合格"。'删除程序中的①②③，

并填入正确的语句以实现上述的功能

Private SubCommand1_Click()

Dim a As Double

Dim b As Double

Dim c As String

a = _①__

b = _②__

If _③___Then

Text3.Text = "合格"

Else

Text3.Text = "不合格"

End If

End Sub

Private SubForm_Load()

End Sub

在窗体上添加CommandButton控件 并把Caption 属性改为评价

答案应该是：①val(Text1.text)②val(text2.text)③a>=30 and b>=60 6三、操作题（题数：1道，共：10分，得分：0.0分）

1、(选修)打开“考生文件夹\3541”文件夹中的文件“工程1.vbp”进行以下操作后并保存！完善程序，单击“画图”按钮，使其能输出如下图形:

'删除①②③及下划线，填上正确的代码，画出如下所示的图形，请不要更改原程序结构。Private Sub Command1_Click()

Dim i, j, k As Integer

For i = 4 To 1 Step -1

For j = 1 To 2 * i - 1 Step 1

Print "*"; '打印符号*

Next j