VB.NET模拟试题
一、选择题（20分，每题1分）
1、 VB.NET集成开发环境共有三种模式，以下 __________ 三种模式是正确？
(A) 设计、运行、退出 (B)运行、中断、退出 (C) 设计、运行、中断 (D)运行、中断、结束
2、 以下叙述中错误的是 __________
(A) 事件过程是响应特定事件的一段程序 (B) 不同的对象可以具有相同名称的方法 (C) 对象的方法是执行指定操作的过程 (D) 对象事件的名称可以由编程者指定
3、 如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 __________
(A) 如果工程中含有Sub Main过程，则程序一定首先执行该过程 (B) 不能把含有Sub Main过程的标准模块设置为启动模块 (C) 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 (D) 任何时刻最多只有一个窗体是活动窗体
4、 下列说法哪种正确？每次调用过程时，__________
(A) Dim声明的变量可保持原值；Static声明的变量会重新初始化。 (B) Static声明的变量可保持原值；Dim声明的变量会重新初始化。 (C) Dim、Static声明的变量都可以保持原来的值。 (D) Dim、Static声明的变量都会重新初始化。
5、 表达式 5 Mod 3+3\\5*2的值是 __________
(A) 0 (B) 2 (C) 4 (D) 6
6、 从字符串N的第5个字符开始，获取4个字符，应使用 _________。
(A) Len(N,5,4) (B) Mid(N,5,4) (C) Right(N,5,4) (D) Rtrim(N,5,4) ?
7、 InputBox函数返回值的类型为 _________。
(A) 数值 (B) 字符串
(C) 对象 (D) 数值或字符串（视输入的数据而定）
8、 语句Dim A(9 ，11)声明的数组A包含 _________个数组元素。
(A) 120 (B) 75 (C) 60 (D) 13
9、 执行下面的程序段后，x 的值为 _________。
??x=0
??For i=1 To 10 Step 3 ??x=x+i ??Next i
(A) 10 (B) 12 (C) 22 (D) 30
10、 以下叙述中正确的是 _________。
(A) 窗体的Name属性指定窗体的名称，用来标识一个窗体 (B) 窗体的Name属性的值是显示在窗体标题栏中的文本 (C) 可以在运行期间改变对象的Name属性的值 (D) 对象的Name属性值可以为空
11、 使文本框的ScrollBar(滚动条)属性有效，应将 _________ 属性设置为True？
(A) Text (B) MutiLine (C) Alignment (D) WordWarp自动换行
12、 下列属性中，图片框（PictureBox）没有 _________ 属性。
(A) StretchImage (B) Autosize (C) Visible (D) Picture
13、 设组合框Combo1中有3个项目，则以下能删除最后一项的语句是 _________
(A) Combo1.Items.RemoveAt Text
(B) Combo1.Items.RemoveAt 2 (C) Combo1.Items.RemoveAt 3
(D) Combo1.Items.RemoveAt Combo1.Listcount
14、 以下叙述中错误的是 _________
(A) 下拉式菜单和弹出式菜单都用菜单设计器建立
(B) 在多窗体程序中，每个窗体都可以建立自己的菜单系统 (C) 除分隔线外，所有菜单项都能接收Click事件
(D) 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
15、 以下关于文件的叙述中，错误的是
(A) 顺序文件中的记录一个接一个地顺序存放 (B) 随机文件中记录的长度是相同的 (C) FilePut是随机文件的写语句 (D) Read函数返回-1时表示顺序文件结束
16、 关于Microsoft.NET框架,下列说法中错误的是______。
(a) 它是创建、部署和运行新一代基于Internet应用程序的一个环境 (b) 它是Microsoft的新一代操作系统
(c) 它为开发人员提供一个统一的、面向对象的可扩展类库集(API) (d) 它是一种多语言、基于组件的应用程序开发和执行环境
17、 在VB.NET中,下面______是合法的用户自定义变量名。
(a) $-Name (b) Name-$ (c) $Name (d) Name$
18、 将数学式子Sin(2π)+[2a(7+b)+c]写成VB.NET表达式应该是_______。
（a）Sin(2*π)+(2a(7+b)+c) （c）Sin(2*π)+(2*a*(7+b)+c)
(b) Sin(2*3.14159)+[2*a*(7+b)+c] (d) Sin(2*3.14159)+(2*a*(7+b)+c)
19、 为创建一个自定义的上下文菜单，应______。
(a) 修改系统菜单
(b) 向窗体中添加多个标签控件，然后把菜单属性设置为True (c) 使用ContextMenu控件 (d) 创建主菜单控件
20、 在VB.NET中，若希望调用过程Proc后返回两个结果，需使用语句______。
(a) Sub Proc(ByVal n%,ByVal m%) (b) Sub Proc(ByVal n%,ByRef m%) （c）Sub Proc( n%, m%) (d) Sub Proc(ByRef n%, ByRef m%)
二、填空题（15分，每空1分）
1、 为使一个控件运行时看不见，应将该控件的 Visiable_________ 属性设置为
__false_______ 。
2、 为使加入到列表框的数据自动排序，应设置该控件的 __sorted_____ 属性为
____true_____ 。
3、 图片框的作用是 _用来显示位图，图元，JPEG,GIF等图片________ 。
4、 当单击滚动条的箭头时，滚动条的值增（或减）5，则该控件的_____smallchange___ 属
性为 ____5_____ 。
5、 为使计时器控件Timer1每隔0.5秒触发一次Tick事件，应设置该控件的
__interval_______ 属性为 ___500______ 。
6、 在程序运行时，需要打开Windows或Dos的应用程序，应当使用 __ shell ___ 函
数。
7、 表达式(5*5)\\(5/5)的值为__ 25 ___ 8、 全局变量必须在__ 标准 ___模块中定义。 9、 要使文本框在输入任何字符时都显示 * 号，则必须将文本框的 ___passwordchar______
属性设置为 ___*______。
10、 当运行程序时，系统自动执行启动窗体的 _ load ____ _ 事件过程。
三、按指定要求编写程序段（20分，第1、2题7分，第3题6分）
1、 用 Do…Loop 语句，编写计算 1!＋2!＋…＋10! 的程序段。
2、 从键盘输入100个学生的考试分数，输出其中的最高分和最低分。
3、 编写程序段，输入任意一个整数，判断其是否是素数。
四、写出下列事件过程的执行结果（21分，每题7分）
1、 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles MyBase.Click Const n = 3 Dim i As Integer
Dim f1 As Long, f2 As Long f2 = 468: f1 = 135 For i = 1 To n
TextBox1.Text = TextBox1.Text & \2 * I & \f2 = f2 - f1 f1 = f1 - f2 Next i
End Sub
2、 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles MyBase.Click
Dim x As Integer, y As Integer, z As Integer x = 2008: y = 2 For z = 1 To 3
TextBox1.Text = TextBox1.Text & \Call test1(x, y) Next z End Sub
Private Sub test1(ByVal x As Integer, ByRef y As Integer) Static z As Integer x = x + 2: y = y + 2 z = z + 5
TextBox1.Text = TextBox1.Text & \End Sub
3、 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles MyBase.Click Dim a(4, 4) As String
Dim i As Integer, j As Integer Dim c As Integer, s As String c = 64
For i = 1 To 4 For j = 1 To 4 c = c + 1
a(i, j) = Chr(c) Next j Next i
For i = 1 To 4 For j = i To 4 s = a(i, j) a(i, j) = a(j, i) a(j, i) = s Next j Next i
For i = 1 To 4 For j = 1 To 4
TextBox1.Text = TextBox1.Text & a(i, j) Next j
TextBox1.Text = TextBox1.Text & vbCrLf Next i End Sub
五、填空下列程序，实现各自功能（24分，每空2分）
1、 利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，
1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。
Private Sub Button1_Click(??) Handles Button1.Click Dim n As Integer Randomize
________（1）________ n1 = 0 ： n2 = 0 For i = 1 To n ________（2）________ If r = 1 Then n1 = n1 + 1 Else
________（3）________ End If Next
________（4）________ Text3.Text = n2 End Sub
2、 窗体上有一个简单组合框和二个命令按钮。单击“添加”按钮，将把组合框上部的文本
内容添加为组合框列表的首项并清除文本内容，若组合框列表的项数大于8，则删除组合框列表的末项。单击“删除”按钮，若组合框列表的项数大于4并且有选中的项，则把选中的项删去，否则用 Msgbox 提示“项数小于等于4或无选中的项！”。
Private Sub Form1_Load(??) Handles MyBase.Load Dim i As Integer