VB模拟题2

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、 下列说法哪种正确？ __________（const,dim\\static\\public）

(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函数返回值的类型为 _________。（input函数格式、返回值）

(A) 数值 (B) 字符串

(C) 对象 (D) 数值或字符串（视输入的数据而定）

8、 语句Dim A(9 ，11)声明的数组A包含 _________个数组元素。（数组下标从0编号）

(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 （组合框的索引是从0编号的） (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后返回两个结果，需使用语句______（。byval,byref）

(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、 为使一个控件运行时看不见，应将该控件的 _________ 属性设置为 _________ 。 2、 为使加入到列表框的数据自动排序，应设置该控件的 _________ 属性为 _________ 。 3、 当单击滚动条的箭头时，滚动条的值增（或减）5，则该控件的________ 属性为

_________ 。

4、 为使计时器控件Timer1每隔0.5秒触发一次Tick事件，应设置该控件的 _________ 属性

为 _________ 。

5、 6、 7、 8、 9、

图片框的作用是 _________ 。

在程序运行时，需要打开Windows或Dos的应用程序，应当使用 __ ___ 函数。 表达式(5*5)\\(5/5)的值为__ ___ 全局变量必须在__ ___模块中定义。

要使文本框在输入任何字符时都显示 * 号，则必须将文本框的 _________ 属性设置为 _________。

三、填空下列程序，实现各自功能

1.利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 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(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim i As Integer For i = 0 To 7

Combo1.Items.Add ( \Next i End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ________（5）________ Combo1.Text = \

If ________（6）________ Then

Combo1.Items.RemoveAt Combo1.Items.Count () – 1 End If End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Combo1.Items.Count() > 4 And Combo1.SelectedIndex <> -1 Then ________（7）________ Else

________（8）________ End If End Sub

3.（优秀生选拔）文本文件“C:\\素材\\score.txt”中存放着n个学生的某科成绩（10 < n <= 60），每行仅存放一个学生的成绩。填空完成下列程序，使其逐个读入成绩，并显示在文本框 txtScore 中；同时将前6名成绩显示在文本框 txtTop6 中，程序的运行结果如图所示。请注意程序中给出的注释。

Private Sub btnTop6_Click(??) Handles btnTop6.Click Dim s(59), i, j, c, t As Integer, s1 As String

FileOpen(1, \素材\\score.txt\（9） ) '以顺序输入方式打开

文件

c = 0 s1 = \

Do While （10） '当文件尚未结束时，读下一个成绩 s(c) = Val( （11） ) '读取一个（一行）成绩 s1 = s1 & s(c) & vbCrLf c = c + 1 Loop

FileClose(1)

txtScore.Text = s1

For i = 0 To 5 '降序排出前六名成绩 For j = i + 1 To （12） If s(i) < s(j) Then

t = s(i) : s(i) = s(j) : s(j) = t End If Next Next s1 = \

For i = 0 To 5

s1 = s1 & s(i) & vbCrLf Next

txtTop6.Text = s1 End Sub

（1）n = Text1.Text （2）r = Int(Rnd + 0.5) （3）n2 = n2 + 1 （4）Text2.Text = n1

（5）Combo1.Items.Insert(0, Combo1.Text) （6）Combo1.Items.Count > 8

（7）Combo1.items.Remove(Combo1.selecteditem) 或者

Combo1.Items.RemoveAt(Combo1.SelectedIndex) （8）msgbox( \项数小于等于4或无选中的项！\

Private Sub btnTop6_Click(??) Handles btnTop6.Click Dim s(59), i, j, c, t As Integer, s1 As String

FileOpen(1, \素材\\score.txt\（9） ) '以顺序输入方式打开

文件

c = 0 s1 = \

Do While （10） '当文件尚未结束时，读下一个成绩 s(c) = Val( （11） ) '读取一个（一行）成绩 s1 = s1 & s(c) & vbCrLf c = c + 1 Loop

FileClose(1)

txtScore.Text = s1

For i = 0 To 5 '降序排出前六名成绩 For j = i + 1 To （12） If s(i) < s(j) Then

t = s(i) : s(i) = s(j) : s(j) = t End If Next Next s1 = \

For i = 0 To 5

s1 = s1 & s(i) & vbCrLf Next

txtTop6.Text = s1 End Sub

（1）n = Text1.Text （2）r = Int(Rnd + 0.5) （3）n2 = n2 + 1 （4）Text2.Text = n1

（5）Combo1.Items.Insert(0, Combo1.Text) （6）Combo1.Items.Count > 8

（7）Combo1.items.Remove(Combo1.selecteditem) 或者

Combo1.Items.RemoveAt(Combo1.SelectedIndex) （8）msgbox( \项数小于等于4或无选中的项！\

本文来源：https://www.bwwdw.com/article/4lkf.html