2005年全国计算机等级考试二级VB全真模拟卷

2.用单循环实现如图2-4所示图案。请在[3]和[4]处填入适当的内容，将程序补充完整。

Private Sub Form_Click（）

For i =1 To 10

Print Tab(15 -i);String([3],[4](i,1))

Next i

End Sub

答案: 2*i-l；Right

3.下面是一个歌手大赛评分程序。10位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)。请在[5]、[6]、和[7]处填入适当的内容，将程序补充完整。

Private Sub Form_Click()

Max= 0

Min= 10

For i = 1 To 10

x=Val(InputBox("请输入分数"))

If [5] Then Max=x

If [6] Then Min=x

s =s + x

Next i

s = [7]

p = s/8

Print "最高分"；Max,"最低分"；Min

Print "最后得分"；p

End Sub

答案: x>Max；x<Min；s-Max-Min

4.窗体和控件名称如图2-5所示，当“电视机”和“付款方式”未被选定时，它们所在框架的控件不能使用，如果单击“确定”按钮，则在下面的标签中显示用户所选择的信息。请在[8]、[9]、[10]和[11]处填入适当的内容，将程序补充完整。

Private Sub Form__[8]

Combo1.Enabled =False

Textl.Enabled =False

End Sub

Private Sub Check2__Click()

Option1.Enabled = False

Option2.Enabled =False

End Sub

Private Sub [9]

Combo1,Enabled = Not Combo1.Enabled

Textl.Enabled = Not Text1.Enabled

Option1.Enabled= Not Option1.Enabled

Option2.Enabled= Not Option2.Enabled

End Sub

Private Sub Commandl_Click()

If Check1.value = 1 Then

Label1.Caption =Label1.Caption & [10] &vbCrlf

Label1.Caption = Label1.Caption & [11] & vbClf

End If

If Check2.value=1 Then

If Option1.value = True Then

Label1.Caption=Label1.Caption&"现金付款"&vbCrLf