《程序设计基础》单元测试二 班级： 姓名： 学号： 题 二 三 四 五 六 七 八 九 总 目 分 分 数 得分 评卷人 一、填空题。（共30分） L.VB.NET程序有数组声明语句“Dima(8)as integer”,那么数组a中包含(1)个数组元 素，分别表示为 (2),其缺省值为(3)。 2.执行下列程序后，s的值为： Dim i,s As Integer Dim a(12),b(4)As Integer s=1 For i 1 To 12 a(i)=i Next For i 1 To 4 b(i)=a(i*3) Next For i 1 To 4 s=s+b(i) Next 3.执行下列程序后，s的值为： Dim i,j,s,a(4,4)As Integer s=0 For i =0 To 4 For j=0 To 4 a(i,j)=i*j Next 第1页共6页
第1页 共6页 《程序设计基础》单元测试二 班级： 姓名： 学号： 题 目 一 二 三 四 五 六 七 八 九 总 分 分 数 一、填空题。(共 30 分) 1. VB.NET 程序有数组声明语句“Dim a(8) as integer”，那么数组 a 中包含 （1） 个数组元 素，分别表示为 （2） ，其缺省值为 （3） 。 2. 执行下列程序后，s 的值为： 。 Dim i, s As Integer Dim a(12), b(4) As Integer s = 1 For i = 1 To 12 a(i) = i Next For i = 1 To 4 b(i) = a(i * 3) Next For i = 1 To 4 s = s + b(i) Next 3. 执行下列程序后，s 的值为： 。 Dim i, j, s, a(4, 4) As Integer s = 0 For i = 0 To 4 For j = 0 To 4 a(i, j) = i * j Next 得分 评卷人
Next For i =0 To 4 s=s a(i,i) Next 4.阅读下列程序，该程序的功能是： Dim i,m,p,n As Integer Dim a()As Integer n Convert.ToInt32(txtN.Text) ReDim a(n) Labell.Text =""Label2.Text =" For i =0 To n a(i)=Rnd0*(200-100)+100 Labell.Text=Labell.Text&””&a(i) Next m=a(0):p=0 For i 1 To n If m a(i)Then m=a(i) p=i End If Next Label2.Text="m="&m&”p=”&p 5.执行下列程序段后，标签控件Label1的显示文本是： Dim i,t,a(4)As Integer t=0 For i =0 To 3 a(i)=i+1 t=i+1 If t =2 Then Labell.Text a(i) a(t-1)=a(i-1) Else a(t)=a(i) End If If i 2 Then a(i +1)=a(t -2) a(4)=1 Labell.Text =a(i) Next 6.执行下列程序段后，s的值是： 第2页共6页
第2页 共6页 Next For i = 0 To 4 s = s + a(i, i) Next 4. 阅读下列程序，该程序的功能是： 。 Dim i, m, p, n As Integer Dim a() As Integer n = Convert.ToInt32(txtN.Text) ReDim a(n) Label1.Text = "" : Label2.Text = "" For i = 0 To n a(i) = Rnd() * (200 - 100) + 100 Label1.Text = Label1.Text & " " & a(i) Next m = a(0) : p = 0 For i = 1 To n If m < a(i) Then m = a(i) p = i End If Next Label2.Text = "m=" & m & " p=" & p 5. 执行下列程序段后，标签控件 Label1 的显示文本是： 。 Dim i, t, a(4) As Integer t = 0 For i = 0 To 3 a(i) = i + 1 t = i + 1 If t = 2 Then Label1.Text = a(i) a(t - 1) = a(i - 1) Else a(t) = a(i) End If If i = 2 Then a(i + 1) = a(t - 2) a(4) = 1 Label1.Text = a(i) Next 6. 执行下列程序段后，s 的值是：
Dim i,s,a(10)As Integer For i 1 To 10 a(i)=12\i Next s=a(4+a(8) 7.执行下列程序段后，标签控件Label1的显示文本是： Dim i,j,a(3,3)As Integer For i =0 To 3 For j=0 To 3 a(i,j)=i*j Next Next Labell.Text =" For i =0 To 3 For j=0 To i Labell..Text=Labell.Text&””&a(i,j) Next Labell.Text Labell.Text Chr(10) Next 8. 若有数组声明语句“Dima(4)as integer'”,那么a.Length的值：。 9.执行下列程序段后，i和t的值分别是： 0 Dim i,t,a(4)As Integer For i =0 To a.Length -1 a(i)=2*i+1 Next i Array.IndexOf(a,4) t =Array.Indexof(a,5) 10.执行下列程序段后，数组元素a(0)a(7)的值分别是： Dim i,a(7)As Integer For i 1 To a.Length -1 a(i)=i+2 Next Array.Reverse(a,2,3) 11.组合框有3种不同的类型，分别是」 和 ,通过组 合框的 属性值来确定。 12.在3种不同类型的属性框中，只能选择而不能输入数据的组合框是： 13.列表框和组合框的相同点是： ,不同点是： Dim i%,count%,str$ i=1:count =0 str =" For i=1 To 100 If i Mod 3 =0 Then If count =4 Then Exit For 第3页共6页
第3页 共6页 Dim i, s, a(10) As Integer For i = 1 To 10 a(i) = 12 \ i Next s = a(4 + a(8)) 7. 执行下列程序段后，标签控件 Label1 的显示文本是： 。 Dim i, j, a(3, 3) As Integer For i = 0 To 3 For j = 0 To 3 a(i, j) = i * j Next Next Label1.Text = "" For i = 0 To 3 For j = 0 To i Label1.Text = Label1.Text & " " & a(i, j) Next Label1.Text = Label1.Text & Chr(10) Next 8. 若有数组声明语句“Dim a(4) as integer”，那么 a.Length 的值： 。 9. 执行下列程序段后，i 和 t 的值分别是： 。 Dim i, t, a(4) As Integer For i = 0 To a.Length - 1 a(i) = 2 * i + 1 Next i = Array.IndexOf(a, 4) t = Array.IndexOf(a, 5) 10. 执行下列程序段后，数组元素 a(0)~a(7)的值分别是： 。 Dim i, a(7) As Integer For i = 1 To a.Length - 1 a(i) = i + 2 Next Array.Reverse(a, 2, 3) 11. 组合框有 3 种不同的类型，分别是 、 和 ，通过组 合框的 属性值来确定。 12. 在 3 种不同类型的属性框中，只能选择而不能输入数据的组合框是： 。 13. 列表框和组合框的相同点是： ，不同点是： 。 Dim i%, count%, str$ i = 1 : count = 0 : str = "" For i = 1 To 100 If i Mod 3 = 0 Then If count = 4 Then Exit For
Else str=str&"**”&i count count +1 End If End If Next txtNum.Text str l4.若列表框的SelectedIndex的属性值为 ,则表示没有选中列表框中的任何一项。 l5.方法Items.Remove和Items..RemoveAt的不同之点是： 得分 评卷人 二、在项目窗体，用ListBox控件和ComboBox控件做出图3的效果（不要求里面的代码，做出 相应的外观就可以)。要求ListBox控件用多列模式显示。（共10分） Form4 ▣x 第四顶 第五顶 三项 第六项 第三题 第四题 图1 得分 评卷人 三、制作如下程序，具体要求如下(20分)： 第4页共6页
第4页 共6页 Else str = str & "**" & i count = count + 1 End If End If Next txtNum.Text = str 14. 若列表框的 SelectedIndex 的属性值为 ，则表示没有选中列表框中的任何一项。 15. 方法 Items. Remove 和 Items. RemoveAt 的不同之点是： 。 二、在项目窗体，用 ListBox 控件和 ComboBox 控件做出图 3 的效果（不要求里面的代码，做出 相应的外观就可以）。要求 ListBox 控件用多列模式显示。（共 10 分） 图 1 得分 评卷人 三、制作如下程序，具体要求如下（20 分）： 得分 评卷人
马给数组元素赋值并显示应用举例 ▣▣☒ 给数组元素赋固定值 显示固定值 405562600 利用随机函数给数组元素赋值并显示 显示规律数 919293949 利用随机函数给数组元素赋值并显示 显示随机数 6258976757 数组元素的值从文本框中输入 1223457889 显示输人数 图2 编写代码实现以下功能（可利用素材中事先定义好的窗体级变量a和N): 1)当单击 显示固定值 按钮时，在其右侧的标签控件显示5个数组元素的值，其值在代码中给 出。 2)当单击 显示规律数 按钮时，在其右侧的标签控件显示5个数组元素的值，假设数组元素和 下标之间满足关系：a(①)=10*i-1,其中i介于1~N之间。 3)当单击 显示随机数按钮时，在其右侧的标签控件显示5个数组元素的值，其值是介于[50， 100]之间的随机数。 4当单击显示箭入数按钮时，在其右侧的标签控件显示5个数组元素的值，其值由文本框 输入，每一个数以回车结束，当输入数的个数超过5时，信息框提示并清空文本框中的内容。 得分 评卷人 四、在项目中添加窗体，用GroupBox控件、RadioButton控件和CheckBox控件做出图2的效果 (不要求里面的代码，做出相应的外观就可以)。要求“第四题”和“VB.NET”选项默认是被 选中状态。（共20分） 第5页共6页
第5页 共6页 图 2 编写代码实现以下功能（可利用素材中事先定义好的窗体级变量 a 和 N）： 1）当单击 按钮时，在其右侧的标签控件显示 5 个数组元素的值，其值在代码中给 出。 2）当单击 按钮时，在其右侧的标签控件显示 5 个数组元素的值，假设数组元素和 下标之间满足关系：a(i)=10*i-1，其中 i 介于 1~N 之间。 3）当单击 按钮时，在其右侧的标签控件显示 5 个数组元素的值，其值是介于[50， 100]之间的随机数。 4）当单击 按钮时，在其右侧的标签控件显示 5 个数组元素的值，其值由文本框 输入，每一个数以回车结束，当输入数的个数超过 5 时，信息框提示并清空文本框中的内容。 得分 评卷人 四、在项目中添加窗体，用 GroupBox 控件、RadioButton 控件和 CheckBox 控件做出图 2 的效果 （不要求里面的代码，做出相应的外观就可以）。要求“第四题”和“VB.NET”选项默认是被 选中状态。（共 20 分）
Form3 -✉回x 分组框 C第一题 口操作系统 C第二题 ■大学英语 C第三题 VB.NET ◇第四题 口体育 图3 得分 评卷人 五、参考界面如图3.33所示，具体要求如下(20分)： 组合框练习举例 ▣☒ 两个列表框关联 第1个组合框 第2个组合框 Blue 习 Blue 习 改变颜色 可选颜色： Red Red Green 改变文字颜色 Blue 图4 编写代码实现以下功能： 1)第2个组合框的内容随第1个组合框而改变。 2)利用组合框改变其右侧标签控件的文本颜色：假设只对“Red”、“Green”、“Yellow”和“Blue” 敏感，其它的颜色一概呈现白色。 3)在颜色组合框中输入文本，按回车则进行添加，若该项已存在，就出现“已有该颜色”的消 息框。 第6页共6页
第6页 共6页 . 图 3 得分 评卷人 五、参考界面如图 3.33 所示，具体要求如下（20 分）： 图 4 编写代码实现以下功能： 1）第 2 个组合框的内容随第 1 个组合框而改变。 2） 利用组合框改变其右侧标签控件的文本颜色：假设只对“Red”、“Green”、“Yellow”和“Blue” 敏感，其它的颜色一概呈现白色。 3）在颜色组合框中输入文本，按回车则进行添加，若该项已存在，就出现“已有该颜色”的消 息框