第一套：.doc

第一套： 1、有如下Visual Basic程序段： ? a = 4 ? b = 5 ? a = a / 2 ? c = Abs(a - b) 该程序段运行后，变量c的值为____________。 2、有如下Visual Basic程序段： ? a = 9 ? b = Command Button ? c = Len(b) ? If a 0 And a c Then ??? Label1.Caption = Mid(b, a, 6) ? Else ??? Label1.Caption = error ? End If 该程序段运行后，在标签Label1上显示的是____________。 3、郑均收集了某公司生猪生长各阶段的产肉比数据，他设计了如下Visual Basic 程序进行数据处理。程序运行界面如图所示，左边列表框List1中显示生猪生长的各阶段编号及对应的产肉比，单击“排序”按钮Command1后，右边的列表框List2中显示按产肉比从高到低排序后的数据。所收集到的不同生长阶段编号和对应的产肉比数据已分别保存在数组a和数组b中。 排序部分程序如下： Dim a(1 To 10) As String 数组a用于存储阶段编号 Dim b(1 To 10) As Single 数组b用于存储产肉比 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, t As Single, s As String For i = 1 To 9 k = i For j = i + 1 To 10 If ① Then k = j Next j If k i Then s = a(i): a(i) = a(k): a(k) = s t = b(i): ② : b(k) = t End If Next i For i = 1 To 10 List2.AddItem a(i) + + Str(b(i)) Next i End Sub Private Sub Form_Load() 此过程用于对数组a和数组b进行赋值，并显示在List1中，代码略 End Sub （1）解决此问题采用的算法是__________________。（填：选择排序/冒泡排序） （2）在程序①和②划线处填入适当的语句或表达式，将程序补充完整： 程序中①划线处应填入___________________。 程序中②划线处应填入___________________。 第二套： 1、有如下Visual Basic程序段： ? a = 3.14 ? b = 20 ? c = Int(a) + b 该程序段运行后，变量c的值为____________。 2、有如下Visual Basic程序段： ? a = 360 ? b = Val(a) ? c = Len(a) ? If b c Then ??? Label1.Caption = 取数值 ? Else ??? Label1.Caption = 取字符 ? End If 该程序段运行后，在标签Label1上显示的是____________。 3、张松编写了一个用求π近似值的Visual Basic程序。主要算法：将问题转化为求,其中 (n为大于1的整数)。程序运行界面如图所示，在文本框Text1中输入计算项数n（计算到第n项），单击“计算”按钮Command1，在文本框Text2中输出π值。 程序代码如下： Private Sub Command1_Click() Dim n As Integer, i As Integer, j As Double, s As Double n = Val(Text1.Text) j = 1 s = 1 For i = 2 To n j = j * ((i - 1) / (2 * i - 1)) s = ① Next i Text2.Text = ② End Sub （1）解决此问题采用的算法是 。（填：解析算法/递归算法） （2）在程序①和②划线处填入适当的语句或表达式，将程序补充完整： 程序中①划线处应填入___