程序设计题
问题：求 s="1" x2-2x3+3x4-4x5+…-98x99+99x100 的值。
算法描述如想图所示，请将下列程序补充完整。
Private Sub Form _ Click ( )
Dim k As Integer
Dim s As Integer
s=0
For k="l" To__ ① ___
If k Mod______② ___0 Then
S=s+k*(k+l)
Else
s=____③___
End If
Next k
Print “s=”;s
End Sub
问题：求 s="1" x2-2x3+3x4-4x5+…-98x99+99x100 的值。
算法描述如想图所示，请将下列程序补充完整。
Private Sub Form _ Click ( )
Dim k As Integer
Dim s As Integer
s=0
For k="l" To__ ① ___
If k Mod______② ___0 Then
S=s+k*(k+l)
Else
s=____③___
End If
Next k
Print “s=”;s
End Sub
用物理天平测量物体的质量。待测物体的质量为X克（X为小于1000的整数），以下程序功能为计算天平砝码盘中所需的砝码。已知天平可用的砝码为500克1个，200克1个，100克2个，50克1个，20克1个，10克2个，5克1个，2克2个，1克1个。程序界面如图所示。
（选填： 属性 / 事件 / 方法）。
（2）为实现以上功能，画线①处应填入的代码为
画线②处应填入的代码为
（3）程序运行正确后，在文本框内输入708，并单击“计算”按钮。则程序运行结果为
（选字母A/B/C）。
Private Sub Command1_Click()
Dim a(1 To 12) As Integer, i As Integer, x As Integer
a(1) = 500: a(2) = 200: a(3) = 100: a(4) = 100: a(5) = 50: a(6) = 20
a(7) = 10: a(8) = 10: a(9) = 5: a(10) = 2: a(11) = 2: a(12) = 1
i = 1
x = Val(Text1.Text)
List1.Clear
Do While ①
If x >= a(i) Then
List1.AddItem Str(a(i))
②
End If
i = i + 1
Loop
End Sub
（1）上述代码中“List1.Clear”中的Clear是对象List1的（选填： 属性 / 事件 / 方法）。
（2）为实现以上功能，画线①处应填入的代码为
画线②处应填入的代码为
（3）程序运行正确后，在文本框内输入708，并单击“计算”按钮。则程序运行结果为
（选字母A/B/C）。
 | |  | |  |
| A | | B | | C |
《孙子算经》中提出“物不知其数”的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然数及其个数。程序界面如图所示，
VB程序段如下：
Private Sub Command1_Click()
k = 0 '用来计数
Max = 600 '指定范围600以内
n = 9
Do While n <= Max
Loop
Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"
End Sub
方框中的代码由以下五部分组成：
① n=n+7
② k = k + 1
③ List1.AddItem Str(n)
④ End If
⑤ If n Mod 3 = 2 And n Mod 5 = 3 Then
代码顺序正确的选项是（ ）
VB程序段如下：
Private Sub Command1_Click()
k = 0 '用来计数
Max = 600 '指定范围600以内
n = 9
Do While n <= Max
Loop
Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"
End Sub
方框中的代码由以下五部分组成：
① n=n+7
② k = k + 1
③ List1.AddItem Str(n)
④ End If
⑤ If n Mod 3 = 2 And n Mod 5 = 3 Then
代码顺序正确的选项是（ ）
| A．⑤①②③④ | B．②⑤③①④ | C．⑤③②④① | D．⑤①③④② |
（加试题）某校举行班班有歌声比赛，参赛班级的成绩按照班级序号保存在“bbygs.accdb”数据库文件中，为了快速计算每个班级最终的分，设计了一个VB程序，该程序能够将8个评委的打分按照从高到低的顺序排序，然后去掉一个最高分和一个最低分，最后计算平均值作为参赛班级的成绩。程序界面如图：单击“提取”按钮Command1，在列表框list1中显示班级序号和该班级8个评委的打分成绩，单击“排序”按钮Command2后，在列表框list2中按降序排序。单击计算得分按钮Command3，在文本框text1中显示最终成绩。按此要求编写程序如下:
Dim class(1 To 30) As Integer '存放班级序号的数组定义为class
Dim score(1 To 8) As single '存放班级各评委打分的数组定义为score
Private Sub Form_load() '提取某班级的评委打分
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.AC
conn.Open
Set rs.ActiveConnection = conn
rs.Open "SELECT * FROM score "
n = 0
Do While Not rs.EOF '到最后一条记录后退出循环
n = n + 1
class (n) = rs.Fields("班级序号").Value
score (n) = rs.Fields("评委打分").Value
rs.MoveFirst '① 指针移动到下一条记录
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
for i=1 to n
List1.AddItem str(score(i))
Next i
End sub
Private Sub Command1_Click()
Dim i as integer
Dim j as integer
Dim t as single
For i=1 to 8
List2.AddItem str(score(i))
Next i
End sub
Private Sub Command2_Click() '计算班级平均得分
Dim i As Integer
Dim sum As single
For i=2 to 7
sum=sum+score（i）
Next i
Text1.text= ③
End sub
（1）程序中①划线处有错，应改为____________________。
（2）加矩形框处的程序所采用的算法是_____________排序。
（3）程序中②划线处应填入___________,程序中③划线处应填入___________。
Dim class(1 To 30) As Integer '存放班级序号的数组定义为class
Dim score(1 To 8) As single '存放班级各评委打分的数组定义为score
Private Sub Form_load() '提取某班级的评委打分
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.AC
| A．OLEDB.12.0;Data Source=" + App.Path + "\bbygs.accdb " |
Set rs.ActiveConnection = conn
rs.Open "SELECT * FROM score "
n = 0
Do While Not rs.EOF '到最后一条记录后退出循环
n = n + 1
class (n) = rs.Fields("班级序号").Value
score (n) = rs.Fields("评委打分").Value
rs.MoveFirst '① 指针移动到下一条记录
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
for i=1 to n
List1.AddItem str(score(i))
Next i
End sub
Private Sub Command1_Click()
Dim i as integer
Dim j as integer
Dim t as single
For i=1 to 8
List2.AddItem str(score(i))
Next i
End sub
Private Sub Command2_Click() '计算班级平均得分
Dim i As Integer
Dim sum As single
For i=2 to 7
sum=sum+score（i）
Next i
Text1.text= ③
End sub
（1）程序中①划线处有错，应改为____________________。
（2）加矩形框处的程序所采用的算法是_____________排序。
（3）程序中②划线处应填入___________,程序中③划线处应填入___________。
为了丰富学生业余生活，学校举办校园歌手大赛，邀请了5位音乐老师作为评委打分，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，取评委打分的平均值作为选手的最终得分。程序运行结果界面如图所示。
请分析任务，完成下列题目。
程序代码如下：
Private Sub Command1_Click()
Dim s, As single
Dim Max , Min ,I As Integer
Dim a(5) As Integer
Max = 0
Min = ①
s = 0
For i = 1 To 5
a(i) = InputBox("请输入第" & i & "个分数")
s = s + a(i)
If ② Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
s = ③
Text1.Text = Max
Text2.Text = Min
Text3.Text = s
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
请分析任务，完成下列题目。
【小题1】在界面设计阶段，下列能清空文本框中内容的属性是
【小题2】在界面设计阶段，当双击窗体上的“计算”命令时，所打开的窗口是
【小题3】下列控件在本程序窗体中用到的是
【小题4】为精确计算选手的最终得分，程序中变量s的数据类型应定义为
【小题5】在Visual Basic 6.0中，下列是窗体文件默认扩展名的是
【小题6】程序中①所在位置表达式正确的是
【小题7】程序中②所在位置表达式正确的是
【小题8】程序中③所在位置表达式正确的是
【小题9】在设计程序界面时，要把Command1命令按钮上显示的文字“计算”字体设成“微软雅黑”，下列Command1控件的属性应设置的是
【小题10】变量s所表示的含义是
【小题11】当一个选分的得分分别为9，8，9，7，8的时候，下列最终得分计算正确的是
【小题12】程序中Command1控件响应的事件是
【小题13】程序中数组a(5)包含的元素个数是
【小题14】程序“For i = 1 To 5 ……Next i”中“s = s + a(i) ”被执行的次数是
【小题15】下图程序结构属于
请分析任务，完成下列题目。
程序代码如下：
Private Sub Command1_Click()
Dim s, As single
Dim Max , Min ,I As Integer
Dim a(5) As Integer
Max = 0
Min = ①
s = 0
For i = 1 To 5
a(i) = InputBox("请输入第" & i & "个分数")
s = s + a(i)
If ② Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
s = ③
Text1.Text = Max
Text2.Text = Min
Text3.Text = s
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
请分析任务，完成下列题目。
【小题1】在界面设计阶段，下列能清空文本框中内容的属性是
| A．name | B．text | C．font | D．value |
| A．代码窗口 | B．属性窗口 | C．工具箱窗口 | D．工程资源管理器窗口 |
| A．列表框 | B．单选按钮 | C．标签 | D．组合框 |
| A．整型 | B．单精度型 | C．字符型 | D．布尔型 |
| A．vbp | B．frm | C．bas | D．exe |
| A．0 | B．1 | C．5 | D．10 |
| A．Max < a(i) | B．Max >a(i) | C．Max =a(i) | D．Max <> a(i) |
| A．s/3 | B．(s+Max+ Min)/5 | C．(s - Max - Min) / 3 | D．(s - Max - Min) / 5 |
| A．Caption | B．Font | C．Default | D．name |
| A．最低分 | B．最高分 | C．评委打分 | D．最终得分 |
| A．8 | B．8.33 | C．7.66 | D．7 |
| A．单击事件 | B．双击事件 | C．载入事件 | D．活动事件 |
| A．1 | B．5 | C．6 | D．10 |
| A．1 | B．4 | C．5 | D．6 |
| A．顺序结构 | B．分支结构 | C．循环结构 | D．混合结构 |
下列VB程序段运行完毕后，变量x的值为
x="2" : y=64
Do while x<= Sqr(y)
x=x+3
Loop
x="2" : y=64
Do while x<= Sqr(y)
x=x+3
Loop
| A．2 | B．5 | C．8 | D．11 |
下列VB程序段的输出结果是
a=25:b=18:c=b
if a>b then
c=a
end if
print c
a=25:b=18:c=b
if a>b then
c=a
end if
print c
| A．25 | B．18 | C．7 | D．0 |
下列VB逻辑或关系表达式中，去处结果为“真”的是
| A．7-2>7 | B．(12<5) or (8>6) | C．5>2 | D．(5>3) and (3>1) |
在VB中，函数Left()的功能是从字串左端开始截取部分字串，那么表达式Left ("morning" , 3)的结果为
| A．ning | B．mor | C．ing | D．morn |