求vb大神写一个vb定义字符串数组数组的程序题，谢谢
点击联系发帖人
时间：2016-06-10 23:30
VB.NET考试复习题 跟答案
VB.NET考试复习题 一、选择题： 1、数学关系8y40表示成正确的VB表达式为（C） A、8=y40B、8=yAND40C、8=yANDy40D、8=yORy402、下列正确的赋值语句是（C） A、x+y=zB、2=x+yC、z=x+yD、x=Integer+23、MsgBox函数的返回值的类型是（B） A、整型B、字符串C、逻辑
VB.NET考试复习题&
一、选择题：&
1、数学关系8&y&40表示成正确的VB表达式为（&&C&&）&
A、8&=y&40&&&&&B、8&=y&AND&40&&&C、8&=y&AND&y&40&&&&D、8&=y&OR&y&40&2、下列正确的赋值语句是（&&C&&）&&&&
&&A、x+y=z&&&&&&&&B、2=x+y&&&&&&&&&C、z=x+y&&&&&&&D、x=Integer+2&3、MsgBox函数的返回值的类型是（&B&）&
A、整型&&&&&&&&B、字符串&&&&&&&&&&&C、逻辑型&&&&&&D、日期型&4、对象的性质和状态特性称为（&&C&&）&
A、事件&&&&&&&&B、方法&&&&&&&&&&C、属性&&&&&&&D、类&5、清除列表框的所有选项应选择下列哪种方法(&A&)&
A、&Clear&&&&&&B、Cls&&&&&&&&&&C、&ClearItem&&&D、&RemoveItem&
6、假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是(&&D&&)&A、&&bool_x&=&&False&&&&&&&&&&&&&&&&&B、&&bool_x&=&.False.&C、&&bool_x&=&#False#&&&&&&&&&&&&&&&&D、&&bool_x&=&False&
7、在Visual&Basic&.NET中最基本的对象是（&&C&&），它是应用程序的基石，是其他控件的容器。&
&&A、文本框&&&&&&B、命令按钮&&&&&&&&C、窗体&&&&&&D、标签&8、要使某控件在运行时不可显示，应对（&B&&）属性进行设置。&A、Enable&&&&&&B、Visible&&&&&&&C、Width&&&&&&D、MinButton&9、下列控件中，没有Text属性的是（&B&）。&
&A、分组框&&&&&&&B、列表框&&&&&&&&&&C、复选框&&&&&&D、单选按钮&10、与传统的程序设计语言相比，Visual&Basic最突出的特点是（&&C&&&）。&A、结构化程序设计&&&B、程序开发环境&&&C、事件驱动编程机制&&D、程序调试技术&11．下列控件中，没有Text属性的是___B___。&
&&(A)分组框&&&&&&&&(B)列表框&&&&&&&&(C)复选框&&&&（D）单选按钮&
12.列表框中的列表内容可通过&&&（&&A&&）&&属性设置。&(A)&&Text&&&&&&&&&&&&(B)&&List&&&&&&&&&&(C)&&ValueMember&&&&(D)&Items&13．要使某个控件在程序运行后可用，应使&&（&&&C&&&）&&属性值的True.&(A)Visible&&&(B)&Locked&&&&&&(C)&&Enabled&&&&(D)&&AllowDrop
14．引用列表框(ListBoxl)最后一个数据项应使用____D__语句。 (A) ListBox1.Items(ListBox1.SelectedIndex) & &(B)ListBoxl.List(ListBoxl.ListCount-1) & & & &(C) ListBox1.Items(ListBox1.Items.Count ) & & (D)ListBox1.Items(ListBox1.Items.Count - 1) 15．以下正确的语句是____A_____。&
(A)SaveFileDialogl.Filter=All Files| *.*| Pictures(*.Bmp)|*.Bmp&
(B)CommonDialogl.Filter=&All Files &|& *.* &|& Pictures(*.Bmp) &|& *.Bmp (C)CommonDialogl.Filter=&All Files|*.*|Pictures(*.Bmp)|*.Bmp& (D)CommonDialogl.Filter=|All Filesl| *.*|Pictures(*.Bmp)| *.Bmp| 16．目录列表框的Path属性的作用是( B &) &&
(A)显示当前驱动器或指定驱动器上的路径 &&修改：应该为路径 (B)显示当前驱动器或指定驱动器上的某目录下的文件名 &(C)显示根目录下的文件名 & & & & & & &(D)只显示当前路径下的文件 &&
二、填空题：&
1、要把文本框控件用作密码输入框，并且在程序启动后，向该控件输入密码时，只显示&*&，用户看不到密码是什么，那么应该修改该控件的__________ PasswordChar________ 属性为&*&即可。&
2、假定有一个设置颜色的通用对话框控件ColorDialog1，在程序中给一个标签控件（Label1）加入选定的前景色的语句代码是__me.Label1.BackColor= me.ColorDialog1.Color______。&
3、VB .NET提供了一种新的数据库访问技术，即___ ADO &(ActiveX Data Object_)_, 通过该技术，能方便地访问多种数据库中的数据。&
4、当进入VB .NET集成环境，发现没有显示&工具箱&窗口时，应选择___视图(V)__菜单的___工具箱____选项，使&工具箱&窗口显示。&
5、滚动条控件的___ location ___属性值，反映了滚动条滑块的当前取值。&
6、如果要定义计时器的计时时间间隔为2s,则应使其Interval属性值为_2000__。 7调用文件操作相关的命名空间，要使用如下代码_____system.io _____
8.改变窗体的标题为&我的程序&，应修改窗体的_______TXET___________属性。 9、要使窗体的大小不能通过鼠标拉拽改变，应修改窗体的_ MaxButton和MinButton _属性。&
10.要使文本框控件可以接受多行文本，需将其属性Multiline设置为__TRUE___。 11．菜单的热键指使用___ _ALT____键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个___ _&___符号，在菜单中这一字符会自动加上___下划线__，表示该字符是一个热键字符。&
12.如果在建立菜单时在标题文本框中输入一个 & _&_ ，那么菜单显示时形成一个分隔线。 &
三、判断题&
1、工具箱窗口中列出了一些基本控件，并且工具箱中的控件数量是固定不变的。（F） 2、除了用鼠标将控件拖拽到窗体，还可以双击工具箱中的控件将控件放在窗体上。（T） &3、对象的属性只能在属性窗口中设置。（F）&
4、若一条语句太长，可分为多行来写，在行的末尾加上下划线表示续行。（T） 5、表达式2+&3&的计算结果为23。（F）&
6、所有的控件都可以接收焦点，获取焦点的顺序由TabIndex属性指定。(T) 7、赋值语句两边的数据类型必须一致，否则无法赋值。（F） 8、定义变量时，如果未指定其数据类型，则该变量属于变体型。（F） 9、声明数组的语句：Dim a(10) As Integer , &该数组包含11个元素。（F） 10、For&Next循环中的步长必须是数值，可以是负数。（T）&
四、简答题&
1、什么是对象的属性、方法、事件？ &
对象，你就理解成窗体，控件只类的都是就行了。 属性，就是对象具有的性质，如窗体的Picture属性。 方法，对象所能做的动作，如窗体的Print,Cls,End方法等。 事件，如窗体的单击事件，双击事件等这些都是。&
2．建立一个VB.NET2008应用程序一般需要哪些步骤? &
设计界面 &编写代码 &调试程序
3.在VB.NET 2008集成开发环境中向窗体添加控件后，怎样打开代码窗口添加或编辑控件代码？(任意写出两种方法) &
1. 双击窗体或者窗体上的控件。 2. 右击窗体，选择&查看代码&。&
4. 简述在Visual Studio 2008对象属性设置的两种方法？ &1、用属性窗口修改&
2、用代码修改&
5. VB 2008集成开发环境有哪几个重要组成部分？ &
主窗体，窗体设计窗口，属性窗口，工程管理器窗口，窗体布局窗口，工具箱&
6. 什么是选择结构的嵌套？在嵌套时应遵循什么原则？&
选择结构的嵌套是指把一个选择结构放入另一个选择结构之内。 则称为选择结构的嵌套，在嵌套时应该注意语句的起始行不能相互交叉骑跨。&
7、列表框和组合框在使用时有什么不同？&
列表框：只能按列表形式显示并选择其中的内容，不带文本框，有两种样式（0:列表；1:带复选框的列表）&
下列组合框：可以下拉，也可以以文本框显示，有三种样式（0:带下拉文本框，文本框可编辑；1:文本框形式[加大高度时会变成类似文本框+列表框的形式]，文本框可编辑；2:固定下拉框，文本框的内容只可选择下列列表里的内容，不能手动编辑&
8、TextBox控件既可实现数据输入，也可实现数据输出。如果只想用TextBox控件实现数据输出，应该修改该控件的什么属性？&
1、Text1.Locked = True 2、Text1.Enabled = False &
四、阅读程序，写出结果&
1、执行下面程序, 当单击按钮Button1时，弹出的消息框显示的结果是__a=10 b=1 c=16&
i=11___。&
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&
& & & & Dim a As Integer, b As Integer, c As Integer, i As Integer & & & & a = 2 : b = 10 : c = 1 & & & & For i = c To 2 * b Step a & & & & & & a = a + 2
& & & & & & i = i + 1 & & & & & & c = 2 * c&
& & & & & & If a &= 10 Then Exit For & & & & & & b = b - 3 & & & & Next i&
& & & & MsgBox(&a=& & a.ToString() & & &b=& & b.ToString() & & &c=& & c.ToString() & & &i=& & i.ToString()) &End Sub &
2. 如下程序，当单击按钮Button1时，弹出的消息框显示的结果是___4____&
& & Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click & & & & Dim M(10) As Integer, x As Integer & & & & For k = 1 To 10 & & & & & & M(k) = 12 - k & & & & Next k & & & & x = 6&
& & & & MsgBox(M(2 + M(x)))&
3、执行下面程序, 当单击Form1时，列表框显示的结果是____ i=13 &j= -16______。 Option Explicit&
Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As &System.EventArgs) Handles MyBase.Click & & Dim i As Integer, j As Integer J=10&
For I=1 to j step 2 I=I+1 J=j-i Next I
ListBox1.Items.Add(&i=& & i & Space(6) & &j=& & j) End Sub &
4. 如下程序，运行的结果是_____x=6_____________ Public Function f(ByVal m%, ByVal n%) & & & & Do While m && n&
& & & & & & Do While m & n : m = m - n : Loop & & & & & & Do While n & m : n = n - m : Loop & & & & Loop & & & & F = m & & End Function &
& & Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click & & & & Dim x As Integer & & & & x = f(24, 18) & & & & MsgBox(&x=& & x) & & End Sub&
五、程序设计题&
1、设计一个登录窗体，并实现登录功能。要求如下：&
（1）、写出数据库的数据表及各表包括的主要字段名称、数据类型、是否为空、主键等。&
（2）、写一个函数（Function），判断用户输入的用户名和密码是否正确（即数据库中是否存在用户输入的用户名和密码信息），正确返回TRUE，否则返回FALSE。 （3）、在登录按钮中调用该函数，输入正确登录成功并弹出消息框；否则登录失败，给出失败消息框，当连续登录三次失败时，弹出消息框并关闭窗体退出。写出主要代码。
ListBox1.Items.Add(&i=& & i & Space(6) & &j=& & j) End Sub &
4. 如下程序，运行的结果是_____x=6_____________ Public Function f(ByVal m%, ByVal n%) & & & & Do While m && n&
& & & & & & Do While m & n : m = m - n : Loop & & & & & & Do While n & m : n = n - m : Loop & & & & Loop & & & & F = m & & End Function &
& & Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click & & & & Dim x As Integer & & & & x = f(24, 18) & & & & MsgBox(&x=& & x) & & End Sub&
五、程序设计题&
1、设计一个登录窗体，并实现登录功能。要求如下：&
（1）、写出数据库的数据表及各表包括的主要字段名称、数据类型、是否为空、主键等。&
（2）、写一个函数（Function），判断用户输入的用户名和密码是否正确（即数据库中是否存在用户输入的用户名和密码信息），正确返回TRUE，否则返回FALSE。 （3）、在登录按钮中调用该函数，输入正确登录成功并弹出消息框；否则登录失败，给出失败消息框，当连续登录三次失败时，弹出消息框并关闭窗体退出。写出主要代码。 & &&
2.请把下面的程序按照要求补充完整。程序要求计算水费，计算水费时有4种情况：生活用水，每吨1元；农业用水，每吨1.5元；工业用水，每吨2元；娱乐业用水，每吨6元。请编制程序，由用户 &
选择水费类型，程序根据用水吨数和水费类型计算应缴水费，如图1所示。 &
图1 &计算水费&
设计步骤如下：&
1) 建立应用程序用户界面和添加控件。在窗体上添加1个下拉列表框控件对象。设置如图2左所示。
2) 编写事件代码。 ' 窗体的Load事件&
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load&
& & ComboBox1.Items.Add(&生活用水(每吨1元)&) & & ComboBox1.Items.Add(&农业用水(每吨1.5元)&) & & ComboBox1.Items.Add(&工业用水(每吨2元)&) & & ComboBox1.Items.Add(&娱乐业用水(每吨6元)&) End Sub&
' 命令按钮&计算&的Click事件&
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click & & Dim a, b As Decimal &&
& & a = CDec(TextBox1.Text) & &请补充计算水费的程序段
If ComboBox1.SelectedIndex = 0 Then '判断下拉列表框选择的序号 & & & & b = a * 1&
& & ElseIf ComboBox1.SelectedIndex = 1 Then & & & & b = a * 1.5&
& & ElseIf ComboBox1.SelectedIndex = 2 Then & & & & b = a * 2&
& & ElseIf ComboBox1.SelectedIndex = 3 Then & & & & b = a * 6 & & End If & & &
TextBox2.Text = b End Sub&
3) 运行程序，选择水费类型并输入用水量后单击&计算&按钮，结果如图2右所示。
3. 请把下面的程序按照要求补充完整。程序功能：设计一个如图3所示的简易计算器，两个文本框中输入操作数（例如：12和3，在组合框中选定操作符号（+，-，*，/例如：*）后，单击&计算&按钮，结果显示在标签控件中中；若在单击&计算&按钮前，单击了保存复选按钮，则结果同时显示在列表框控件中。 设计步骤如下：
建立应用程序用户界面和添加控件。在窗体上添加1个下拉列表框控件对象。设置如图3左所示。
2) 编写事件代码。&
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load&
& & &Me.Left = 450: Me.Top = 250 &Label1.Text = & &:TextBox1.Text = & &&
&请补充在组合框ComboBox1控件中添加操作符号（+，-，*，/），并清空列表框ListBox1控件&
ComboBox1.Items.Add(&+&) & & & & ComboBox1.Items.Add(&-&) & & & & ComboBox1.Items.Add(&*&) & ComboBox1.Items.Add(&/&)&
& & & & ListBox1.Items.clear(& &) & & End Sub&
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As system.EventArgs) Handles Button1.Click & & & & Dim ioperate1 As Integer & & & & Dim ioperate2 As Integer & & & & Dim iresult As Integer & & & & Dim operater As Char & & & & Try&
& & & & & & ioperate1 = CInt(operate1.Text) & & & & & & operater = ComboBox1.Text & & & & & & ioperate2 = operate2.Value&
& & & & & & &&请补充利用简易计算器进行计算程序段 & & & & Select operater & & & & & & & & Case &+&&
& & & & & & & & & & iresult = ioperate1 + ioperate2 & & & & & & & & Case &-&&
& & & & & & & & & & iresult = ioperate1 - ioperate2 & & & & & & & & &Case &*&
& & & & & & & & & & iresult = ioperate1 * ioperate2 & & & & & & & & Case &/&&
& & & & & & & & & & iresult = ioperate1 / ioperate2 & & & & & & & & Case Else&
& & & & & & & & & & MessageBox.Show(&请选择运算符&) & & & & & & & & & & Exit Sub & & & & & & End Select&
& & & & & & Label1.Text = CStr(iresult)&
& & & & & & If CheckBox1.Checked = True Then ListBox1.Items.Add(CStr(iresult)) & & & & Catch ex As OverflowException&
& & & & & & Label1.Text = &计算数据溢出& & & & & & '除数为零 & & & & Catch ex As InvalidCastException&
& & & & & & Label1.Text = &无效数据& & & & & & & &'输入字符数据 & & & & Catch ex As Exception & & & & & & Label1.Text = ex.Message & & & & End Try End Sub&
3) 运行程序，结果如图3右所示。 &
4、设计一个登录窗体，当输入的用户名和密码均为admin时，登录成功并弹出消息框；否则登录失败，给出失败消息框，当连续登录三次失败时，弹出消息框并关闭窗体退出。写出主要代码。&
Public Class Form1&
Dim LoginCount As Integer = 0&
& & Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&
& & & & If TextBox1.Text = && Then&
& & & & & & MsgBox(&请输入用户名！&, rmation, &提示&) & & & & & & Return & & & & End If &
& & & & If TextBox2.Text = && Then&
& & & & & & MsgBox(&请输入密码！&, rmation, &提示&)
& & & & & & Return & & & & End If &
& & & & If LoginCount = 3 Then&
& & & & & & MsgBox(&登录失败已经达到三次，当日不能登录！&, rmation, &警告&) & & & & & & TextBox1.Text = && & & & & & & TextBox2.Text = && & & & & End If &
& & & & If TextBox1.Text = &admin& And TextBox2.Text = &admin& Then &
& & & & & & MsgBox(&登录成功！&, rmation, &提示&) & & & & & & TextBox1.Text = && & & & & & & TextBox2.Text = && &
& & & & Else&
& & & & & & If LoginCount = 3 Then&
& & & & & & & & MsgBox(&登录失败已经达到三次，当日不能登录！&, rmation, &警告&)&
& & & & & & & & TextBox1.Text = && & & & & & & & & TextBox2.Text = && & & & & & & & & Return & & & & & & End If&
& & & & & & LoginCount = LoginCount + 1&
& & & & & & MsgBox(&登录失败！请重新登录！&, rmation, &提示&) & & & & & & TextBox1.Text = && & & & & & & TextBox2.Text = && & & & & End If & & End Sub &
& & Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click & & & & Me.Close() & & End Sub & & End Class
(责任编辑：huang)
------分隔线----------------------------
VB.NET考试复习题 一、选择题： 1、数学关系8y40表示成正确的VB表达式为（C） A、8=y4...
下载安装包 7g多，解压开。运行 安装文件 ，下一步，下一步。最后成功。 激活： 填写 ...
1）字符串比较比较函数StrComp () 语法：StrComp (str1 As String , str2 As String [...您所在位置： &
 &  & 
VB题库—程序填空.doc161页
本文档一共被下载：
次 ,您可免费全文在线阅读后下载本文档
文档加载中...广告还剩秒
需要金币：50 &&
你可能关注的文档：
〖第1题〗『程序填空』1分题号:59
'【程序填空】
' 功能:输入一个数,若大于0,则显示"+";若小于0,
' 则显示 "-";若等于"0",则显示"零"。
Private Sub Command1_Click
ValText1.Text
Select Case x
'**********SPACE**********【?】 Label1.Caption
"+"Case Is
'**********SPACE**********【?】
'**********SPACE**********【?】 Label1.Caption
"零"End Select
答案:1Case Is
02Label1.Caption
"-"3Case 0 或 Case Else 或 Case Is
〖第2题〗『程序填空』1分题号:60
'【程序填空】
'功能:输入任何一个英文字母x,
'若x的值为"a","c","d-f" ,则显示x的大写字母;
'若x的值为"m","o","p-z",则显示x的小写字母;
'若x的值为其它的值,则显示xa(如输入的X的值是g,则显示ga)。
Private Sub Command1_Click
Text1.Text
'**********SPACE**********【?】
'**********SPACE**********Case 【?】 Label1.Caption
UCasexCase "m", "o", "p" To "z" Label1.Caption
LCasexCase Else
'**********SPACE**********
End Select
答案:1Select Case x2"a", "c", "d" To "f"3Label1.Caption
Trimx + "a" 或 Label1.Caption
〖第3题〗『程序填空』1分题号:36
'【程序填空】
'功能:以下程序的功能如图1。
Private Sub Form_Click
Dim a%, b%, c%, d!
Dim x1, x2
Dim p, q, r
InputBox"请输入a的值"
InputBox"请输入b的值"
InputBox"请输入c的值"
b * b - 4 * a * c
-b / 2 * a
'**********SPACE**********If 【?】 Thenr
Sqrd / 2 * ax1
p - rElsex1
'**********SPACE**********【?】Print "x1"; x1, "x2"; x2
'**********SPACE**********
Sqr-d / 2 * aPrint "x1"; "+"; "i", "x2"; "-"; "i"
d2End If3Else
〖第4题〗『程序填空』1分题号:51
'【程序填空】
'功能:下面的程序段用于建立文件并输出文件,文件内容如下:
Private Sub Form_Click
'**********SPACE**********
正在加载中，请稍后...VB.NET程序设计
&&&&您现在的位置：首页 ：
部门简介-->
1. 在Visual Studio.NET中创建的VB项目MyProject，其项目文件MyProject.vbproj的存储格式为A. 一般TXT格式&& B. 二进制格式&& C. HTML格式& D. XML格式正确答案：D&2. .NET构架中，异常处理机制是在__________实现的？&A. CLR层& B. BCL层& C. CLS层& D. Windows Froms和ASP.NET层正确答案：A&3. .NET构架中被用来访问数据库数据的组件集合称为：&A. ADO&& B. ADO.NET&& C. COM+&& D. Data Service .NET&正确答案：B&4. 在.NET 构架中，VB.NET程序被编译成A. 机器码& B. 汇编码& C. MSIL码& D. 脚本正确答案：C&5. MSIL是在________层中被解释成本地机器码的？&A. CLR层& B. BCL层& C. CLS层& D. Windows API&正确答案：A&6. 在MyFirst解决方案目录下的下列哪个文件中可以找到用户配置信息？&A. MyFirst.sln文件中& B. MyFirst.suo文件中C. MyFirst.vb文件中&& D. MyFirst.vbproj文件中正确答案：B&7. 在VB.NET中。定义类模块的关键字为：A. Class??End Class&& B. Struct??End Struct&C. Sub??End Sub&&&&&& D. Function??End Function&正确答案：A&8. 根据.NET的术语规范，VB.NET的类中的数据成员又称为：A. 域& B. 子项& C. 数据子项& D. 属性正确答案：A&9. 在VB.NET程序中，对象可执行的操作称为对象的A. 属性& B. 方法& C. 事件& D. 状态正确答案：B&10. VB.NET中，程序员修改了主窗体的某个属性后，发现无法启动程序，原因可能是：&A. 修改了主窗体的Caption属性& B. 修改了主窗体的isMainForm属性C. 修改了主窗体的Name属性&&&& D. 修改了Main函数正确答案：C&11. 在窗体的成员方法dosomthing中，将窗体位置居中显示，应调用哪个窗体方法？&A. Center()&& B. CenterToScreen()&& C. MoveToCenter()&& D. Show()&正确答案：B&12. 哪种窗体在关闭之前不允许用户与程序中其他窗体进行交互？&A. 主窗体& B. 对话框& C. 模态窗体& D. 非模态窗体正确答案：C&13. 在VB.NET中，一个布尔型变量占用的内存位数为A. 8位& B. 16位& C. 32位& D. 64位正确答案：C&14. VB.NET中，取字符串”this is a test”的第一个字符，并将其赋值给字符变量ch。下列代码哪组正确？（假设已经定义变量ch）&A. ch = Char(Mid(“this is a test”,0,1))&B. ch = CChar(Mid(“this is a test”,0,1))&C. ch = Char(Mid(“this is a test”,1,1))&D. ch = CChar(Mid(“this is a test”,1,1))&正确答案：B&15. Textbox控件限制用户输入字符长度的属性为:A. CharacterCasing& B. Length& C. MaxLength& D. AutoSize正确答案：C&16. 过程changeName中执行下列代码后，字符串firstName的值是什么？&Dim firstName as String = “Tom”&Dim secondName as String = firstName&secondName &= “Jerry”&A. Tom&& B. Jerry&& C. Tom Jerry&& D. Tom & Jerry&正确答案：A&17. 类Hello定义如下Public Class Hello&Public Message As String&……&End Class&现在需要将Message限定在本项目中可以访问，应该将限定符Public修改为A. Static&& B. Protected&& C. Friend&& D. Private&正确答案：C&18. 执行下列语句后，控制台输出什么结果Dim res as Integer = CType(“123.45”,Integer)&Console.Writeln(res)&A. 123&& B. 12345&& C. 0&& D. res&正确答案：A&19. 在VB.NET中，无返回值的过程称为________过程A. Sub&& B. Function&& C. Property&& D. Main&正确答案：A&20. 在模块MyModule中定义的过程ShowHelpInfo（如下），其访问权限为_________。Public Module MyModule&……&Sub ShowHelpInfo(String info)&MessageBox.Show(info)&End Sub&……End Module&A. 仅在MyModule中可以使用& B. 在本项目中可以使用C. 在本解决方案中可以使用&& D. 在派生模块中可以使用正确答案：C&21. 下列程序在控制台上的输出结果为_________。&Public Function MyFunc(i as Integer)&If i & 0 Then&Return 100&Else&Return "hello"&End If&End Function&Public Shared Sub Main()&Dim x As Employee&Console.WriteLine(TypeName(x.MyFunc(-1)) & "," & TypeName(x.MyFunc(1)))&End Sub&A. Integer,String&& B. String,Integer&& C. Object,Object&& D. String,String&正确答案：B&22. 下列主过程Main中执行完语句x.MyFunc(i)后，局部变量i的值为________。&Class test&Public Sub MyFunc(ByVal i As Integer)&i = i * 2&End Sub&End Class&Sub Main()&Dim x As new test&Dim i As Integer = 100&x.MyFunc(i)&End Sub&A. 0&B. 2&C. 100&D. 200&正确答案：C&23. 在调试VB.NET中，可以使用Visual Studio.NET的下列哪种窗口查看和修改位于当前文本中的所有变量？比如过程的所有局部变量。A．局部变量窗口& B.监视窗口& C.快速监视窗口& D.自动窗口正确答案：B&24. 已知数组arr进行以下定义： Dim arr() as Integer = {1,1,1,1,1}过程MySub定义如下：&Sub MySub(ByVal ar() As Integer, ByRef x As Integer)&Dim i As Integer&For i = 0 To UBound(ar) " 注：UBound(ar)求数组ar的下标上限&ar(i) = x&Next&x = 0&End Sub&则执行下列语句后，数组arr和变量data中的内容是什么？&Dim data As Integer = 2&MySub(arr, data)&A. arr={2,2,2,2,2} data=2&& B. arr={1,1,1,1,1} data=2&C. arr={2,2,2,2,2} data=0&& D. arr={1,1,1,1,1} data=0&正确答案：C&25. 表达式CInt(True)的值为A. False&& B. True&& C. 1&& D. -1&正确答案：D&26. 执行下列语句后，变量x的值为____________&Dim x as Integer = 0&x = 3/2&A. 0&& B. 1&& C. 2&& D. 3&正确答案：B&27. 下列布尔表达式的值为____________。True and True Xor True and False&A. True&& B. False&& C. OrElse&& D. AndAlso&正确答案：A&28. 下列表达式的值为____________。True and 100+10*3&12^2&A. True&& B. False&& C. 130&& D. 144&正确答案：A&29. 分析下列程序，当运行结束后，在控制台上的输出是什么？&Public Function Increment(ByRef value as Integer) AS Integer&value += 1&return value&End Function&Public Sub Main()&Dim n1 as Integer = 1&Dim n2 as Integer = 1&Dim result as Boolean&If n1=0 AndAlso Increment(n2)=1 Then&result = True&Else&result = False&End If&Console.Writeln(“n1=”& n1 & “,n2=”&n2)&End Sub&A. n1=1,n2=1&& B. n1=0,n2=2&& C. n1=1,n2=2&& D. n1=0,n2=1&正确答案：A&30. 在设计循环语句时，若有以下要求：1、在执行循环之前先测试条件表达式expression ；2、让代码循环执行到该条件表达式的值取“真”。则应使用下列哪种Do Loop循环语句？&A. Do Until expression ?? Loop&& B. Do ?? Loop Until expression&C. Do While expression ?? Loop&& D. Do ?? Loop While expression&正确答案：A&31. 在使用OpenFileDialog对话框控件时，希望通过对话框只查找C++文件的程序文件(*.CPP)文件和头文件(*.H)，则OpenFileDialog对象的Filter属性应如何设置？&A. “C++程序文件:*.CPP;C++头文件:*.H”&B. “C++程序文件|*.CPP|C++头文件|*.H”&C. “C++程序文件\*.CPP\C++头文件\*.H”&D. “C++程序文件-&*.CPP;C++头文件-&*.H”&正确答案：B&32. TextBox控件的PasswordChar属性的作用是A. 该属性是Boolean类型，表示是否使用*号隐藏输入的信息B. 该属性是String类型，表示输入的隐藏信息的实际内容C. 该属性是Char类型，表示是用哪个字符隐藏输入的信息D. 该属性在VB.NET中未使用正确答案：C&33. 为了使TextBox的ScrollBar真正起作用，应该将TextBox的“自动换行”功能取消。取消该功能，需要将TextBox控件的_______属性设置为False?&A. ScrollBars&& B. AcceptReturns&& C. WordWrap&& D. AutoSize&正确答案：C&34. 使用Masked Edit控件输入金额数字时，对输入有以下格式要求：&1、前面必须带$符号；2、金额最多为999999元，且每3位用逗号分割,高位不保留0； 3、整数部分对10元取整，即个位必须为0；4、小数部分保留2位,必须为0 。金额数字的例子如：123,450.00。根据该要求，则控件的Mask属性应为A. $999,99#.00&& B. $999,990.00&& C. $###,##0.00&& D. $###,##9.00&正确答案：B&35. 可以使用下列哪个函数来检测一个字符串的内容是不是数字格式？&A. IsNumeric&& B. IsNothing&& C. IsInteger&& D. IsNumber&正确答案：A&36. 在面向对象编程方法中，将对象的属性和方法用某种方法“包装”起来，使得要访问对象，必须通过那些被清楚定义的接口，这种“包装”的过程，在面向对象编程中称为A. encapsulation&& B. abstraction&& C. envelope&& D. implementation&正确答案：A&37. MyDS是一个System..Data.DataSet类型的对象，C：\MyDsInfo,XML中保存了另外一个System..Data.DataSet对象的模式信息。若想根据该模式信息在MyDS中创建一个临时的数据库，则首先应调用以下哪条语句？&A. MyDS.ReadXml (“C:\MyDsInfo.XML”)B. MyDS.ReadXmlSchema (“C:\.MyDsInfo .XML”)C. MyDS.WriteXml(“C:\MyDsInfo.XML”)D. MyDS.WritexmlSchema(“C:\MyDsInfo.XML”)正确答案：B&38. 类MyClass的定义如下：&Public Class MyClass1&Private data as String&End Class&则关键字Private在类的定义中的作用是：&A. 限定成员变量data只在本模块内部可以使用；&B. 限定成员变量data仅在类MyClass的成员方法中可以访问；&C. 限定成员变量data仅仅可在类以及子类的成员方法中访问D. 限定类MyClass仅在本模块中可以使用正确答案：B&39. 在VB.NET中，一般使用关键字________来标示重载方法。A. Overloads&& B. Overrides&& C. Shadows&& D. Public&正确答案：A&40. VB.NET中变量Obj和Obj2的声明如下：&Dim obj as new MyClass&Dim obj2 as MyClass = obj&则下面语句的作用是_______。obj = Nothing&A. 将obj引用的MyClass对象从托管堆中删除B. 将Obj引用的MyClass对象的引用计数减1&C. 将变量Obj转而引用Nothing对象D. 将变量Obj从内存中删除正确答案：B&41. .NET对象的最后一个引用被释放后多长时间后，对象占用的“托管堆”空间被.NET“垃圾收集”功能回收？&A. 最后一个引用被释放后马上回收对象B. 最后一个引用被释放后1分钟回收对象C. 最后一个引用被释放后1小时回收对象D. 最后一个引用被释放后的某个不确定的时刻正确答案：D&42. 对于VB.NET语句 Speed = Miles/Hours(其中Speed、Miles、Hours都是Double值)，当Hours=0时，该语句将引发A. 语法错误& B. 编译错误& C. 逻辑错误& D. 运行时错误正确答案：D&43. 当VB.NET程序出现逻辑错误后，可以使用________工具来隔离并改正代码中的逻辑错误？&A. 命令行下的Debug.exe&& B. 汇编工具C. Visual Studio.NET的调试工具& D. 任何一种语言的调试工具正确答案：C&44. 程序在语法上是合法的，在运行时也没有出现非法操作，但结果不合理，这种错误在VB.NET中称为A. 语法错误& B. 运行时错误& C. 逻辑错误& D. 不明错误正确答案：C&45. 在调试VB.NET程序时，Visual Studio.NET的“自动窗口”可以查看当前行语句以及其前、后各_____语句中的变量，并可以修改其值。A. 1行& B. 2行& C. 3行& D. 4行正确答案：C&46. Win窗体设计时，应该为工具栏的_________事件编写事件处理程序，以响应用户点击工具栏的按钮？&A. Click&& B. ButtonClick&& C. KeyDown&& D. MouseDown&正确答案：B&47. Win窗体的工具栏对象为ToolBar1。为了在工具栏中添加新的按钮，应该在对象ToolBar1的“属性”视图下编辑ToolBar1的_________属性A. Appearance&& B. ImageList&& C. Buttons&& D. ShowToolTips&正确答案：C&48. Win窗体的工具栏对象为ToolBar1。为了将工具栏中的所有按钮用图形显示，则应该在对象ToolBar1的“属性”视图下编辑ToolBar1的_________属性A. Appearance&& B. ImageList&& C. Buttons&& D. ShowToolTips&正确答案：B&49. 若不准备使用状态栏的窗格显示信息，则应该将_________属性设置为False。A. ShowPanels&& B. Panels&& C. Enabled&& D. Visible&正确答案：A&50. 如要实现菜单功能，应向菜单项的_________事件添加代码？&A. Command&& B. Click&& C. Popup&& D. Select&正确答案：B
VB.NET模拟试题2
1、按照变量的命名规则，下列变量名中不合法的是：（& ）A、strMystring& B、intCount& C、sng平均值& D、12Number2、在VB.NET中,一般使用关键词(&&&& )来表示重载方法.A. overloads&&&&&&&&&&& B. overridesC. shadows&&&&&&&&&&&&& D. public3、连接sql server2000数据库，使用哪种.net数据提供程序最优（ ）A.SQL SERVER.NET数据提供程序B.OLE DB.NET数据提供程序C.ODBC.NET数据提供程序D.ORACLE.NET数据提供程序4、.NET Framework类库中所以类型的根命名空间为（）A.System& B.Collection& C.System.Collection& D.Space5、Command对象对数据源执行命令，返回结果为单一值，使用Command对象的哪种方法()A.ExecuteReaderB.ExecuteNonQueryC.ExecuteScalarD.ExecuteXmlReader6、在Web表单的设计中，可以将页面的（& ）属性设置为Grid Layout ,以使用绝对位置排列页面上的可视元素。A.& showGrid&&&&&&&&&&&&&&&&&&&&& B.&& codePageC.& pageLayout&&&&&&&&&&&&&&&&&&& D.&& bgColor7、判断下列程序运行后x的值（&&&& ）？X=5X+=5A．& 5&&&&&& B．10&&&&&& C． 0&&& D．18、.NET构架中被用来访问数据库的组件集合称为(& )A.ADO.NET&&&& B.COM+&&&&& C. ADO&&&&& D. Data.Service.NET9、若需要从关系数据库中的表Employees中查看所有的记录，应使用SQL语句（&&&&&& ）&&& A．Insert * From Employees&&& B．Delete * From Employees&&& C．Update * From Employees&& D．Select * From Employees10、为了在程序中使用SqlServer .NET 数据提供程序，应在源程序工程中添加对程序集（&&&&&&&& ）的引用。&A. System.Data&&&&&&&&&&&&&&& B. System.Data.SqlClientC. System.Data.OleDb&&&&&&&&&& D. System.Data.Odbc11、如果要使文本框能够多行显示，则应使（&&& ）属性设为True。A． MultiLine&& B． MaxLength&&& C． SelLength&& D． Locked12、对文件进行读写操作时需要导入的名称空间是：（&&&&&&& ）A. system.data&&&&& B. system.io&&C. system.xml&&&&&& D. system.collections13、.NET Framework不支持的一种类型的用户界面为（）A.&Web窗体& B.Windows窗体& C.控制台应用程序& D.Unix14、下列代码执行后，变量IntY的值为（）IMPORTS SYSTEMCLASS MAINAPP& Public Shared Sub MAIN()Dim SngX As Single = 123.45Dim IntY As IntegerIntY = Convert.ToInt32(SngX)Console.WriteLine(IntY)& End SubEnd ClassA.&123& B.123.45& C.123.4& D.123.515、声明一个动态数组dim intX（）as integer，在使用intX之前，要重新定义intX，下面格式正确的是（& ）。A、ReDim IntX（）& B、Dim IntX（）&& C、Dim IntX（3）&& D、ReDim IntX（5）16、下列不属于类三要素是：（& ）A、属性&& B、方法&& C、过程&& D、事件17、要使窗体成为容器，需要设置窗体的（&& ）属性为True。A、Container&& B、MdiLayout&& C、Child&& D、IsMdiContainer18、类的继承的关键字为（）A.Overloads& B. Overridable& C. Inherits& D.Overrides19、进度条(ProgressBar)控件用来显示事务处理的进度,（）属性用来获取或设置进度栏的当前位置A.Maximum& B. Minimum& C. Name& D.Value20、下列声明事件的语句正确的为（）A.& Public Event proverb(ByVal agemsg As String)B.&Public proverb()C.&Public proverb(ByVal aegmsg As String)D.&Private proverb()21、请看以下代码：Dim X As Integer =2Select Case X&&&& Case 1&&&& MessageBox.Show(“Yes!”)&&&& Case 2MessageBox.Show(“No!”)&&&& Case 3MessageBox.Show(“Ok!”)Case ElseMessageBox.Show(“Sorry!”)&&&&&&&&&& End Select问运行后MessageBox将输出：（& ）A、Yes!&& B、No!&& C、Ok!&& D、Sorry!22、如果FOR语句中的步长值为正，则循环正常结束时（ ）。A．& 循环变量的终值&初值&&&& B．& 循环变量的终值&初值C．& 循环变量的终值=初值&&&& D．& 都错23、向列表框中填加一个新项目,正确的语句是（& ）。A． ListBox1.Items.Add (“How are You?”)B． ListBox1.Items.Insert (“How are You?”)C． ListBox1.Items.Add (2,“How are You?”)D． ListBox1.Items.Insert (2,“How are You?”&24、以下能够正确计算5!的程序是（& ） 。A.&&&Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I & NLabel1.Text = XEnd SubB.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1 : I = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I & N&&&&&&& Label1.Text = XEnd SubC.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1 : I = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I &= N&&&&&&& Label1.Text = XEnd SubD.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1 : I = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I & N&&&&&&& Label1.Text = XEnd Sub25、连接字符串设置如下，该连接的服务器的机器名为（&&&& ）。Dim cnNorthwind As new OleDbconnection&CnNorthwind.ConnectionString=”Provider=SQLOLEDB;Data Source=ProdServ01;” _+ “Initial Catalog=Pubs”+ “Integrated Security=SSPI”A.& Prodserv01B.& SQLOLEDBC.& PubsA.&SSPI26、使用（）方法可以使线程开始运行A.&Start& B.Sleep& C. Suspend& D.Abort27. （&&& ）标记标志着HTML文档的开始。A.& &HTML&&&&&&&&& B.& &BODY&C.& &P&&&&&&&&&&&& D.& &FORM&28、（&& ）标记标志着HTML文档文件体的开始。A． &HTML&&&&&&&&& B． &BODY&C． &P&&&&&&&&&&&& D． &FORM&29、标签控件的作用是（&&& ）。A．输入文本信息&&&&& B．& 编辑文本信息&&&&&&C．显示文本信息&&&&& D．& 相当于文本编辑器30、如果保留动态数组元素原来的值，在关键字Redim 后加（&& ）参数。A、Byref&&& B、Byval&&& C、Preserve&&& D、Static31、根据输入的整数X的值，给出相应的提示，要求如下：&&& 当 x &100时&&&&&&&&&&&&& 显示"X&100"当 100 &= x &= 500时&&&& 显示"100≤X≤500"当 x &500时&&&&&&&&&&&&& 显示" x&500"Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click&&&&&&& Dim x As Integer&&&&&&& Dim Y As String&&&&&&& x = InputBox("请输入x的值:")&&&& _____________________________&&&&&&&&&&& Case Is & 100&&&&&&&&&&&&&&& Y = "X&100"&&&&&&&&&&& Case 100 To 500&&&&&&&&&&&&&&& Y = "100≤X≤500"&&&&&&&&&&& Case Else&&&&&&&&&&&&&&& Y = " x &500 "&&&&&&& End Select&&&&&&& MsgBox(Y)End Sub32、 输入一个数，判断其为偶数还是奇数，并用消息框显示出结果，如“您输入的数8是偶数”。Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs)& Handles MyBase.Click&&&&&&&&& Dim X As Integer&&&&&&&&& Dim Y As String&&&&&&&&& X = InputBox("请输入X的值:")&&&&&&&& _____________________________&&&&&&&&& MsgBox("您输入的数" & X & Y)End Sub33、Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& ___________________&& ‘创建SqlConnection对象cnNorthwindcnNorthwind.ConnectionString = "Data Source = (local); Initial Catalog = N Integrated Security = SSPI;"&&&&&&& "创建SqlCommand类的对象&&&&&&& Dim cmdNorthwind As New SqlCommand&&&&&&& "设置属性值&&&&&&& cmdNorthwind.Connection = cnNorthwind&&&&&&& mandType = CommandType.Text&&&&&&& mandText = "INSERT INTO Products(ProductName,SupplierID,Discontinued)" & "VALUES ("玩具",2,0)"&&&&&&& cnNorthwind.Open()&&&&&& ___________________&&& " Command对象执行方法&&&&&&& MessageBox.Show("操作成功！")&&&&&&& cnNorthwind.Close()&&& End Sub34、以下代码计算11+21+31+……+91的整数和，请将程序补充完整。Dim sum as integerDim i as integerSum=0i=11While i&=100&& Sum=sum+i&&&&&&&&&&&&&&&&&End while35、为下面类的定义添加属性。Public Class PERSON&&&&&& ___________________&& " 定义NAME属性可读可写Private INNER_SEX As String&&&&&&& " 定义只读的属性过程AGE&&&&& Public ReadOnly Property AGE() As Integer&&&&&&& Get&&&&&&&&&& Return DateDiff(DateInterval.Year, INNER_BIRTHDAY, Now)&&&&&&& End Get&&&&& End Property&&&&& ………….End Class36、阅读程序，将其补充完整。&& Dim cn As New SqlConnection&&& cn.ConnectionString = "Data Source=(local); " & _Initial& Catalog=N" && "Integrated Security = SSPI;"&&& Dim strSql = "select ProductID, ProductName,UnitPrice from Products"&&&&&& Dim da As New SqlDataAdapter(strSql, cn)&&&&&& Dim ds As New DataSet&&&&&& cn.Open()&&&&&&& ___________________&&&&& DataGrid1.DataSource = ds.Tables("Products")&&&&&& cn.Close()End Sub37、求2!+5!+7!+10!Public Class Form1&&&&&& Inherits System.Windows.Forms.Form&&&&&& Dim SUM As Double&&& Sub F(ByVal N As Integer)&&&&&&&&& Dim I As Integer&&&&&&&&& Dim T As Double&&&&&&&&& T = 1&&&&&&&&& For I = 1 To N&&&&&&&&&&&&& T = T * I&&&&&&&&& Next&&&&&&&&& SUM = SUM + T&&&&& End Sub&&& Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs)& Handles MyBase.Click&&&&&&&&& _____________________________&&&&&&&&& MsgBox("2!+5!+7!+10!=" & SUM)End SubEnd Class38、阅读程序，将其补充完整&&% @ Page& Language="VB"& %&&HTML&&&&&&&&&& &body&&&&&&&&&&&& &% Dim I AS Integer&&&&&&&&&&&&& For& I=1& TO& 4& %&&&&&&&&&&&&&&& &font& size="&%I%&"& HELLO WORD! &/font&& &br&&&&&&&&&&&&& &% Next %&&&&&&&& &/body&&&&&&&&&&39、求 2 + 4 + …… + 200 的和。&& IMPORTS SYSTEMCLASS MAIN&&&&&&& Public Shared Sub MAIN()&&&&&&&&& Dim sum As Integer&&&&&&&&& Dim count As Integer&&&&&&&&& sum = 0: count= 0&&&&&&&&&&&&&&&& while count & 200&&&&&&&&&&&&&&&&& count + = 2&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& end while&&&&&&&&& Console.WriteLine("2+4+...+200=" + sum.tostring)&&&&&&&&& End Sub40、在窗体上画一个名称为Button1的命令按钮，然后编写如下事件过程：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x, i, j, n As Integerx = 0n = InputBox("请输入一个整数")For i = 1 To nFor j = 1 To ix = x + 1Next jNext imsgbox(x)End Sub程序运行后，单击命令按钮，如果输入3，则在消息框中显示的内容是（&&&&&&& ）。41、请看以下代码：Dim X As Integer =2Select Case X&&&& Case 1&&&&&&& MessageBox.Show(“Yes!”)&&&& Case 2MessageBox.Show(“No!”)&&&& Case 3MessageBox.Show(“Ok!”)Case ElseMessageBox.Show(“Sorry!”)& End Select问运行后MessageBox将输出：（& ）42、在窗体上画一个名称为Button1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：DIM& X,Y& As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickX = 5Y = 3Call proc(X, Y)Label1.TEXT = XLabel2.TEXT = YEnd SubSub proc(ByRef a As Integer, ByVal b As Integer)&&&&&&& a = a * a&&&&&&& b = b + bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是（&&& ）和（&&& ）。43、请看以下代码：Dim I As IntegerFor I = 0 to 10&&&&&&&&&&&&&&& I = I+2NextMessageBox.show ( I )问运行后MessageBox将输出：（&& ）44、NET Framework是开发平台的基础，它包括两个主要组件：（&&&&&& ）和.NET Framework类库。45、ASP.NET页面文件的后缀名是（&&&&& ）。46、Sub子过程的调用有两种方法：一种是使用（&&&&&&& ）语句，另一种是直接调用。47、对象具有的典型特征包括：（&&&& ）、（&&&& ）和方法。48、HTML标记中用来表示分段落的标记是（&&&&&&& ），用来表示换行的标记是（&&&&&& ）。49、数据读取器DataReader对象是一个简单的数据集，用于从数据源中检索（&& ）、（&&&& ）数据流。50、为类定义事件的关键字是（&&&&&&& ）。51、在对SQL Server 2000数据库操作时应选用（&&&&&&&&&& ）数据提供程序。52、过程调用中的参数传递有（&&&& ）、（&&&& ），其关键字分别是（&&&& ）、（&&&& ）。53、应用Response对象的（&&&&&&& ）方法可以将指定字符输出到客户端浏览器。54、Response对象的（&&&&&&& ）方法可以向浏览器发送另一个页面。55、与Request对象的Form和QueryString两种方法对应的表单提交方法分别是（&&&&& ）和（&&&&& ）。56、Server的（&&&&&&&& ）方法可将“网络虚拟路径”转换为“Web服务器上的实际路径”。57、下列哪个属于合法的变量名?(&&&& )A． _HOME&&&&&&& B. @email&&&&&&& C. integer&&&&&&&& D. $money58、在ADO.NET中，代表程序到数据库的连接对象为：（&&&&&& ）A& DataAdapter 对象&&&&&&&&&&&&&&&&&& B& DataSet 对象C.& Command 对象&&&&&&&&&&&&&&&&&&&&&& D.& Connection 对象59、若需要从关系数据库中的表Employees中查看所有的记录，应使用SQL语句（&&&&&& ）&&& A．Insert * From Employees&&& B．Delete * From Employees&&& C．Update * From Employees&& D．Select * From Employees60、 OleDbconnection cnNorthwind=new OleDbConnection();CnNorthwind.ConnectionString=”Provider=SQLOLEDB;”+&&&&&&&&&&&&&&&&&&&&&&&& “Data Source=ProdServ01;”+&&&&&&&&&&&&&&&&&&&&&&&&& “Initial Catalog=Pubs”+&&&&&&&&&&&&&&&&&&&&&&&&&& “Integrated Security=SSPI”;&则该连接的服务器的机器名为（&&&&&&&& ）。&&&&&&&&&&&&&&&&&&&&&&&&&&A.& Prodserv01B.& SQLOLEDBC.& PubsD.& SSPI61、employee 是sql server 2000数据库中的一个数据表，为执行下列sql语句，insert into employee& values(10,tom,1997)应调用命令对象（command对象）的哪个方法：（&&&&&&&& ）A. executescalarB. executexmlreaderC. executereaderD. executenonquery62、对文件进行读写操作时需要导入的名称空间是：（&&&&&&& ）A. system.data&&&&& B. system.io&&C. system.xml&&&&&& D. system.collections63、VB.NET中导入名称空间时用到的关键字是（&&&& ）。A．imports&&&&&&&& B．using&&&&&&& C．use&&&&&&&& D．import64、为创建在SQL Server 2000 中执行Select 语句的Command 对象，可先建立到SQL Server2000数据库的连接，然后使用连接对象的（&&&&&&&& ）方法创建SqlCommand对象。&A. Open&&&&&&&&&&&&&&&&&&&& B. OpenSQL&C. CreateCommand&&&&&&&&&&& D. CreateSQL65、 为了在程序中使用DataSet 类定义数据集对象，应在文件开始处添加对命名空间（&&&&&&&& ）的引用。&A. System.IO&&&&&&&&&& B. System.Utils&C. System.Data&&&&&&&& D. System.DataBase66、为了在程序中使用OleDb .NET 数据提供程序，应在源程序工程中添加对程序集（&&&&&&&& ）的引用。&A. System.Data&&&&&&&&&&&&&&& B. System.Data.SQL&C. System.Data.OleDb&&&&&&&&&& D. System.Data.Odbc67、当访问SQL Server 2000数据库中的数据，最好使用以下哪种.NET数据提供者连接到数据库？（&&&&&&&& ）A.& ODBC.NET&数据提供程序&&& B.& OLEDB.NET数据提供程序C.& XML.NET数据提供程序&&&&&&& D.& SQL Server.NET数据提供程序68.& 为下面类的定义添加属性。Public Class PERSON&&&&&& ___________________&& " 定义NAME属性可读可写Private INNER_SEX As String&&&&&&& " 定义只读的属性过程AGE&&&&& Public ReadOnly Property AGE() As Integer&&&&&&& Get&&&&&&&&&& Return DateDiff(DateInterval.Year, INNER_BIRTHDAY, Now)&&&&&&& End Get&&&&& End Property&&&&& ………….End Class69. 运行文件START.HTML后，在网页上输入用户名和密码，点击“登录”按钮，如果输入的用户名和密码分别为“PENGYOU”和“123“，则登录后的网页上会显示“OK,PENGYOU。键入的密码正确！”；否则会显示“SORRY,PENGYOU。您无权登录该网站！”START.HTML文件代码：&HTML&&TITLE&FORM ACTION TEST PAGE&/TITLE&&& &BODY&&&& &CENTER&&H3&登陆站点&/H3&&/CENTER&&&&& &HR&&&&&& &FORM ACTION=" VALIDATE.ASPX" METHOD="POST"&&&&&&&& 姓名:&INPUT TYPE="TEXT" NAME="USERNAME" SIZE=15& &BR&&&&&&&& 密码:&INPUT TYPE="PASSWORD" NAME="USERPASSWORD" SIZE=15&&BR&&&&& &INPUT TYPE="SUBMIT" VALUE="登录"&&&& &/FORM&&/BODY&&/HTML&VALIDATE.ASPS文件代码：&%IF REQUEST.FORM("USERNAME").TOLOWER ="PENGYOU" AND REQUEST.FORM("USERPASSWORD") ="123"& THEN&& _______________________________&&&& RESPONSE.WRITE("。键入的密码正确！")ELSE_______________________________&&&&& RESPONSE.WRITE("。您无权登陆该网站！" )END IF%&
VB.NET模拟试题3
一、概念题（20分，每题2分）1、 什么是.NET框架？2、 .NET框架在什么平台上运行？3、 .NET框架支持何种编程语言？4、 什么是Visual Basic .NET？5、 “类”包含的要素有哪些？“类”的特性有哪些？1、&简述VB.NET中类与对象的概念。2、&简述重载与重写的差异？3、&简述.NET数据提供程序的四个核心类4、&简述ASP.NET的工作原理。10、简述ASP.NET中REQUEST对象和RESPONSE对象的用途。
二、选择题（30分，每题1.5分）1、VB.NET中的各种窗体，可以实现（ 1 ）。A．自动隐藏&B．自动隐藏、任意停放&C．自动隐藏、任意停放、多重监视功能&D．不能任意停放，并且某个时刻只能选择一种监视方式。
2、Visual Studio.NET 中提供了（ 2 ）。&A．Web设计器及Windows Forms设计器。B．C#、VC++、VB三种集成开发环境。C．Windows Forms设计器D．Web设计器、Windows Forms设计器、XML设计器 、ASP.NET设计器、控制台应用程序等组件。
3、解决方案资源管理器的主要功能是 （ 3 ）。A．提供某个项目所有文件的直观视图，是用户和解决方案之间的双向接口。B．监视受控文件的当前状态。C．设置首选取项、阅读产品新闻、联系开发伙伴及访问其它信息。D．提供当前使用文件的有关信息。
4、在VB.NET中要把属性窗口打开，可以选择（ 4 ）。A． 按F5键打开属性窗口。B．“解决方案资源管理器”窗口中的“属性”菜单项。C．“视图”菜单中的“属性窗口”或F4键。D．“编辑”菜单中的“属性窗口”。
5、要使窗体的标题为“演示实例”，应修改窗体的（ 5 ）属性。A．Caption& B．Tip& C．Item&& D．Text
6、表达式 Num+=3代表的意思是（ 6 ）。A．Num=3&& B．Num=Num+3& C．Num+3=Num&& D． 3=Num
7、& 数据类型为Long的数据在内存中占用的字节数为（ 7 ），其类型标识符为（ 8 ）。（1）A．2&&&&& B． 4&&&& C．4&&&& D． 8&&（2）A．%&&&& B． &&&&& C．!&&&& D． #
8、声明一个窗体级变量时，可以在代码窗口中用（ 9 ）来声明。A．只能用Dim语句声明&B．只能用Private语句声明。&&&C．可以用Dim语句、Private语句、 Public语句进行声明。D．可能用Dim语句、Private语句、 Public语句、Static语句进行声明。
9、以下定义常量不正确的语句是（ 10 ）。A．Const& Num& As& Integer=200B．Const& Num1& As& Long=200, Sstr$=”World”C．Const& Sstr$=”World”D．Const& Num$=#World#
10、标签控件的作用是（& 11& ）。A．输入文本信息&&&&& B．& 编辑文本信息&&&&&&C．显示文本信息&&&&& D．& 相当于文本编辑器
11、如果要使文本框能够多行显示，则应使（ 12 ）属性设为True。A． MultiLine&& B． MaxLength&&& C． SelLength&& D． Locked
12、．如果要使命令按钮以图片形式显示，则应使（& 13& ）属性装入图片。A． BackGroundImage&& B． Image&&& C． ImageList&& D． ImageAlign
13、如果FOR语句中的步长值为正，则循环正常结束时（& 14& ）。A．& 循环变量的终值&初值&&&& B．& 循环变量的终值&初值&&&&&&&&C．& 循环变量的终值=初值&&&& D．& 都错
14、VB的对象相互独立，当添加一个对象后，设计阶段可通过（ 15& ）设置其属性。A. 对象浏览器&&&& B. 属性窗口&&&& C. 项目窗口&&&& D.代码窗口
15、图片框控件可显示图像，若想使图片框自动改变大小，以适应装入的图片，应修改SizeMode属性值为（& 16& ）。A.& Normal&&&& B. AutoSize&&& C. StretchImage&&& D. CenterImage
16、在VB.net中对字符串连接时，建议使用“&”而避免使用“+”，执行下面的代码后A与B的值分别为（ 17& ）。Dim X As StringDim Y As IntegerDim A As StringDim B As StringPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& X = 123 : Y = 123 : A = X + Y : B = X & Y&&&&&&& MsgBox(A)&&&&&&& MsgBox(B)&&& End SubA. “246”、“123123”&&&& B. 246、“123123”&&&C.& 123123、“123123”&&& D.“123123”、“123123”
17、在程序运行过程中要改变文本框中字体的大小，使用不正确的语句是（ 18 ）。A． TextBox1.Font=New System.Drawing.Font ("宋体", 14.0!, Drawing.FontStyle.Bold)B． TextBox1.Font=New System.Drawing.Font ("宋体", 16.0!)C． TextBox1.Font=New System.Drawing.Size (18.0!)D． TextBox1.Font= New Font("宋体", 14.0!)
18、要使文本框成为密码输入框，一般应修改文本框的（ 19 ）属性。A．PasswordChar属性和MaxLength属性，并且 MultiLine属性值只能为False。B．PasswordChar属性和MaxLength属性，并且Lines属性值只能为False。C．只修改PasswordChar属性值就可以了,其它属性可以不修改。D．PasswordChar属性和MaxLength属性， MultiLine属性值可以为True。
19、向列表框中填加一个新项目,正确的语句是（ 20）。A． ListBox1.Items.Add (“How are You?”)B． ListBox1.Items.Insert (“How are You?”)C． ListBox1.Items.Add (2,“How are You?”)D． ListBox1.Items.Insert (2,“How are You?”)
三、判断下列程序的运行结果（共20分，每题5分）1、窗体上有一个名为Button1的命令按钮和一个标签框，然后编写如下事件过程：Private Overloads Sub Button1_Click(ByVal sender As System.Object, ByVal e As_&&&&&&&&&&&&&&&&&&&&&&&&&&&& System.EventArgs) Handles Button1.Click&&&&&&& Dim num As Integer&&&&&&& num = 1&&&&&&& Do Until num & 6&&&&&&&&&&& Label1.Text = num&&&&&&&&&&& num = num + 2.4&&&&&&& LoopEnd Sub程序运行后，单击命令按钮，则在标签框上显示的内容是 (& 1& )。A.& 5.8&&&&&&& B.& 5&&&&C.& 7&&&&&&&&& D. 无数据输出
2、以下能够正确计算5!的程序是（& 2& ） 。A.&&&Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I & N&&&&&&& Label1.Text = XEnd SubB.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1 : I = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I & N&&&&&&& Label1.Text = XEnd SubC.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1 : I = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I &= N&&&&&&& Label1.Text = XEnd SubD.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1 : I = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I & N&&&&&&& Label1.Text = XEnd Sub3、窗体中有一个名称为Button1的命令按钮，和一个Label1控件对象，编写如下事件过程：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim n As String, x, i, j As Integer&&&&&&& x = 0&&&&&&& n = InputBox("请输入一个大于1的整数", "输入框")&&&&&&& For i = 1 To CInt(n)&&&&&&&&&&& For j = 1 To i&&&&&&&&&&&&&&& x = x + 1&&&&&&&&&&& Next j&&&&&&& Next i&&&&&&& Label1.Text = CStr(x)End Sub程序运行后，单击命令按钮，如果输入3，则在Label1显示的内容是&& (& 3& )&& 。A.& 3&&& B.&& 4&&&& C.& 5&&&& D.& 6
4、在窗体上放入一个名称为Button1命令按钮和两个名称分别为TextBox1、TextBox2两个文本框，然后编写如下事件过程：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim n, x As Integer&&&&&&& n = CInt(TextBox1.Text)&&&&&&& Select Case n&&&&&&&&&&& Case 1 To 20&&&&&&&&&&&&&&& x = 10&&&&&&&&&&& Case 2, 4, 6&&&&&&&&&&&&&&& x = 20&&&&&&&&&&& Case Is & 10&&&&&&&&&&&&&&& x = 30&&&&&&&&&&& Case 10&&&&&&&&&&&&&&& x = 40&&&&&&& End Select&&&&&&& TextBox2.Text = xEnd Sub程序运行后，在文本框TextBox1中输入10，然后单击命令按钮，则在TextBox2中显示的内容是（& 4& ） 。A. 10&& B.& 20&&& C.& 30&&&& D.& 40
四、填空（共20分，每空4分）1、编程实现以下功能：若输入的用户名不是大写或小写的“user”，则信息框显示“请重新输入用户名！”；若用户名输入正确而输入的密码不是“123” ，则信息框显示“请重新输入密码！”；若输入的次数超过3次，则退出。请完成“确认”按钮单击事件的程序编写。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Static num As Integer, username As String&&&&&&& username = "user"&&&&&&& num = num + 1&&&&&&& If& （& 1& ）&&&& Then&&&&&&&&&&& MsgBox("请重新输入用户名！")&&&&&&& ElseIf& （& 2&& ） Then&&&&&&&&&&& MsgBox("请重新输入密码！")&&&&&&& Else&&&&&&&&&&& If num = 3 Then End&&&&&&&&&&& MsgBox("欢迎进入!")&&&&&&& End IfEnd Sub2、要实现文本框中字体大小为20号字、宋体，显示“欢迎！”并闪烁：每隔100ms颜色变为绿色，每隔150ms颜色变为红色，请编写“闪烁”按钮的单击事件程序和定时器Timer的管理程序。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& （& 3& ）&&&&&&& TextBox1.Text = "欢迎！"&&&&&&& Timer1.Enabled = True&&&&&&& Timer2.Enabled = TrueEnd Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick&&&&&&& （& 4& ）End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick&&&&&&& （& 5& ）End Sub
五、判断程序的运行结果（共10分，每题5分）1、窗体上有两个标签Label1和Label2，还有一个按钮Button1。应用程序运行时，单击Button1，预测以下代码的输出：
Public Class Form1Inherits System.Windows.Forms.FormDim J As Integer& Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& J = Item_Status("I60", 90)&&&&&&& Label2.Text = "The units sold is: " & J& End Sub
& Public Function Item_Status(ByVal ItemCode As String, ByVal Amount As Single) As Integer&&&&&&& Amount = Amount + 90&&&&&&& Label1.Text = "For the Item Code: " & ItemCode&&&&&&& Return Amount& End FunctionEnd Class
2、窗体Form1上有一个标签Label1和一个按钮Button1。以下代码被添加至Form1的Code Editor窗口中。运行时单击Button1将会有什么结果？
Public Class Form1&&& Inherits System.Windows.Forms.FormDim Monthly_Salary As Integer&&& Dim Annual_Salary As Integer = 40000&&& Dim months As Integer = 12&&& Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Monthly_Salary = Calculate_Average(Annual_Salary, months)&&&&&&& Label1.Text = "The salary earned per month is: " & Monthly_Salary&&& End Sub
&&& Public Function Calculate_Average(ByVal asalary As Integer, ByVal mnths As Integer) As Integer&&&&&&& asalary = asalary \ mnths&&&&&&& Return asalaryEnd FunctionEnd ClassVB.NET笔试模拟考试题3答案一、概念题（20分，每题2分）1、什么是.NET框架？答： .NET框架是为了方便应用程序开发而设计的新型平台。.NET有两个主要组成部分，通用语言运行时和.NET类库。通用语言运行时用来管理应用程序代码，它支持诸如内存管理和线程管理等服务。.NET类库是用于应用程序开发的可重用类的集合。2、 .NET框架在什么平台上运行？答：.NET框架可运行于Windows NT、 Windows 2000、Windows 9x和Windows ME。3、 .NET框架支持何种编程语言？答：任何语言均可使用.NET框架。当前，你可用多种语言编写.NET程序，例如C++、Visual Basic .NET、JScript和C#。一些第三方语言将来也可用于开发.NET框架应用程序。这些语言包括COBOL、Eiffel、Perl、Python和Smalltalk。4、什么是Visual Basic .NET？答： Visual Basic .NET是最新版的Visual Basic，它可以方便地创建Web和n层的应用程序。它支持多种功能，诸如Windows和Web窗体，用于数据库连接的ADO.NET，改善的类型安全性，面向对象功能，以及可视化继承，从而协助你创建和部署可扩展Web站点。5、“类”包含的要素有哪些？“类”的特性有哪些？答：“类”包含的要素有：属性（Properties）、方法（Methods）、事件（Events）。&&& “类”的特性有：抽象性、封装性、继承性、多态性。6、简述VB.NET中类与对象的概念。答：所谓“类”就是描述一系列实体的共同特征的一个概念，它是一个描述并且是一个抽象的描述。“对象”是“类”的可用“实例”，所以创建对象的动作就称为“类的实例化”。7、简述重载与重写的差异？答：重载、重写是很容易混淆的类似概念。虽然所有这两种技术都使您得以创建同名的成员，但它们之间有一些重要的差异：&&重载的成员用于提供属性或方法的不同版本，这些版本具有相同名称但是接受不同数量的参数或者接受不同数据类型的参数。l&&重写的属性和方法用于替换在派生类中不适合继承的属性或方法。重写的成员必须接受同一数据类型和参数数量。派生类继承重写的成员。l8、简述.NET数据提供程序的四个核心类答：&类&描述XxxConnection&建立与特定数据源的连接。例如，SqlConnection类连接到SQL Server数据源XxxCommand&对数据源执行命令。例如，SqlCommand类能在SQL Server数据源中执行存储过程和SQL语句XxxDataReader&从数据源中读取只向前的且只读的数据流。例如，SqlDataReader类可以从SQl Server数据源的表中读取行。通过XxxCommand类的ExecuteReader方法返回的结果集通常与Select SQL语句的结果一样XxxDataAdapter&用XxxDataAdapter对象填充DataSet，并解析数据源的更新。例如，SqlDataAdapter类能过来DataSet和SQL Server数据源的后台数据之间的交互9、简述ASP.NET的工作原理。答：可以将ASP.NET页面简单地看成一般的HTML页面，页面上包含标记有特殊功能的段。ASP.NET模块分析ASPX文件的内容，并将文件内容分解成单独的命令以建立代码的整体结构。完成此工作后，ASP.NET模块将各命令放置到预定义的类中。然后这个类被用来定义一个特殊的ASP.NET Page对象。该对象要完成的任务之一就是生成HTML流，这些HTML流可以返回到IIS，再从IIS返回到客户端。10、简述ASP.NET中REQUEST对象和RESPONSE对象的用途。答：REQUEST对象：每次当客户从Web服务器请求一个页面时，Web服务器就发送一个响应。Response 对象是HttpResponse类的一个实例，它被用来管理服务器返回给客户的响应。该对象的一个最常见的应用方式就是使用Write方法将变量的内容或其他HTML代码返回给客户。Request对象主要的功能是从客户端得到数据，常用的3种取得数据的方法是Request.Form、Request.QueryString、Request，第3种是前两种的一个缩写，可以取代前两种情况。而前两种主要对应的是Form提交时的两种不同的提交方法，分别是Post方法和Get方法。
二、选择题（30分，每题1.5分）答案：（1）C& （2）D& （3）A& （4）C& （5）D& （6）B& （7）D& （8）B& （9）C（10）D& （11）C& （12）A& （13）B& （14）A& （15）B& （16）C& （17）A&（18）C& （19）C& （20）A&&
三、判断下列程序的运行结果（共20分，每题5分）答案：1、B& 2、C& 3、D& 4、A
四、填空（共20分，每空4分）答案：（1）&TextBox1.Text && username.ToUpper And num & 3（2）&TextBox2.Text && "123" And num & 3（3）&TextBox1.Font = New System.Drawing.Font("宋体", 20.0!)（4）&TextBox1.ForeColor = Color.Green（5）&TextBox1.ForeColor = Color.Red
五、判断程序的运行结果（共10分，每题5分）1、窗体上有两个标签Label1和Label2，还有一个按钮Button1。应用程序运行时，单击Button1，预测以下代码的输出：答案：Label1显示：For the Item Code：I60Label2显示：The units sold is：1802、窗体Form1上有一个标签Label1和一个按钮Button1。以下代码被添加至Form1的Code Editor窗口中。运行时单击Button1将会有什么结果？答案：Label1显示：The salary earned per month is：3333}
VB.NET考试复习题 一、选择题： 1、数学关系8y40表示成正确的VB表达式为（C） A、8=y40B、8=yAND40C、8=yANDy40D、8=yORy402、下列正确的赋值语句是（C） A、x+y=zB、2=x+yC、z=x+yD、x=Integer+23、MsgBox函数的返回值的类型是（B） A、整型B、字符串C、逻辑
VB.NET考试复习题&
一、选择题：&
1、数学关系8&y&40表示成正确的VB表达式为（&&C&&）&
A、8&=y&40&&&&&B、8&=y&AND&40&&&C、8&=y&AND&y&40&&&&D、8&=y&OR&y&40&2、下列正确的赋值语句是（&&C&&）&&&&
&&A、x+y=z&&&&&&&&B、2=x+y&&&&&&&&&C、z=x+y&&&&&&&D、x=Integer+2&3、MsgBox函数的返回值的类型是（&B&）&
A、整型&&&&&&&&B、字符串&&&&&&&&&&&C、逻辑型&&&&&&D、日期型&4、对象的性质和状态特性称为（&&C&&）&
A、事件&&&&&&&&B、方法&&&&&&&&&&C、属性&&&&&&&D、类&5、清除列表框的所有选项应选择下列哪种方法(&A&)&
A、&Clear&&&&&&B、Cls&&&&&&&&&&C、&ClearItem&&&D、&RemoveItem&
6、假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是(&&D&&)&A、&&bool_x&=&&False&&&&&&&&&&&&&&&&&B、&&bool_x&=&.False.&C、&&bool_x&=&#False#&&&&&&&&&&&&&&&&D、&&bool_x&=&False&
7、在Visual&Basic&.NET中最基本的对象是（&&C&&），它是应用程序的基石，是其他控件的容器。&
&&A、文本框&&&&&&B、命令按钮&&&&&&&&C、窗体&&&&&&D、标签&8、要使某控件在运行时不可显示，应对（&B&&）属性进行设置。&A、Enable&&&&&&B、Visible&&&&&&&C、Width&&&&&&D、MinButton&9、下列控件中，没有Text属性的是（&B&）。&
&A、分组框&&&&&&&B、列表框&&&&&&&&&&C、复选框&&&&&&D、单选按钮&10、与传统的程序设计语言相比，Visual&Basic最突出的特点是（&&C&&&）。&A、结构化程序设计&&&B、程序开发环境&&&C、事件驱动编程机制&&D、程序调试技术&11．下列控件中，没有Text属性的是___B___。&
&&(A)分组框&&&&&&&&(B)列表框&&&&&&&&(C)复选框&&&&（D）单选按钮&
12.列表框中的列表内容可通过&&&（&&A&&）&&属性设置。&(A)&&Text&&&&&&&&&&&&(B)&&List&&&&&&&&&&(C)&&ValueMember&&&&(D)&Items&13．要使某个控件在程序运行后可用，应使&&（&&&C&&&）&&属性值的True.&(A)Visible&&&(B)&Locked&&&&&&(C)&&Enabled&&&&(D)&&AllowDrop
14．引用列表框(ListBoxl)最后一个数据项应使用____D__语句。 (A) ListBox1.Items(ListBox1.SelectedIndex) & &(B)ListBoxl.List(ListBoxl.ListCount-1) & & & &(C) ListBox1.Items(ListBox1.Items.Count ) & & (D)ListBox1.Items(ListBox1.Items.Count - 1) 15．以下正确的语句是____A_____。&
(A)SaveFileDialogl.Filter=All Files| *.*| Pictures(*.Bmp)|*.Bmp&
(B)CommonDialogl.Filter=&All Files &|& *.* &|& Pictures(*.Bmp) &|& *.Bmp (C)CommonDialogl.Filter=&All Files|*.*|Pictures(*.Bmp)|*.Bmp& (D)CommonDialogl.Filter=|All Filesl| *.*|Pictures(*.Bmp)| *.Bmp| 16．目录列表框的Path属性的作用是( B &) &&
(A)显示当前驱动器或指定驱动器上的路径 &&修改：应该为路径 (B)显示当前驱动器或指定驱动器上的某目录下的文件名 &(C)显示根目录下的文件名 & & & & & & &(D)只显示当前路径下的文件 &&
二、填空题：&
1、要把文本框控件用作密码输入框，并且在程序启动后，向该控件输入密码时，只显示&*&，用户看不到密码是什么，那么应该修改该控件的__________ PasswordChar________ 属性为&*&即可。&
2、假定有一个设置颜色的通用对话框控件ColorDialog1，在程序中给一个标签控件（Label1）加入选定的前景色的语句代码是__me.Label1.BackColor= me.ColorDialog1.Color______。&
3、VB .NET提供了一种新的数据库访问技术，即___ ADO &(ActiveX Data Object_)_, 通过该技术，能方便地访问多种数据库中的数据。&
4、当进入VB .NET集成环境，发现没有显示&工具箱&窗口时，应选择___视图(V)__菜单的___工具箱____选项，使&工具箱&窗口显示。&
5、滚动条控件的___ location ___属性值，反映了滚动条滑块的当前取值。&
6、如果要定义计时器的计时时间间隔为2s,则应使其Interval属性值为_2000__。 7调用文件操作相关的命名空间，要使用如下代码_____system.io _____
8.改变窗体的标题为&我的程序&，应修改窗体的_______TXET___________属性。 9、要使窗体的大小不能通过鼠标拉拽改变，应修改窗体的_ MaxButton和MinButton _属性。&
10.要使文本框控件可以接受多行文本，需将其属性Multiline设置为__TRUE___。 11．菜单的热键指使用___ _ALT____键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个___ _&___符号，在菜单中这一字符会自动加上___下划线__，表示该字符是一个热键字符。&
12.如果在建立菜单时在标题文本框中输入一个 & _&_ ，那么菜单显示时形成一个分隔线。 &
三、判断题&
1、工具箱窗口中列出了一些基本控件，并且工具箱中的控件数量是固定不变的。（F） 2、除了用鼠标将控件拖拽到窗体，还可以双击工具箱中的控件将控件放在窗体上。（T） &3、对象的属性只能在属性窗口中设置。（F）&
4、若一条语句太长，可分为多行来写，在行的末尾加上下划线表示续行。（T） 5、表达式2+&3&的计算结果为23。（F）&
6、所有的控件都可以接收焦点，获取焦点的顺序由TabIndex属性指定。(T) 7、赋值语句两边的数据类型必须一致，否则无法赋值。（F） 8、定义变量时，如果未指定其数据类型，则该变量属于变体型。（F） 9、声明数组的语句：Dim a(10) As Integer , &该数组包含11个元素。（F） 10、For&Next循环中的步长必须是数值，可以是负数。（T）&
四、简答题&
1、什么是对象的属性、方法、事件？ &
对象，你就理解成窗体，控件只类的都是就行了。 属性，就是对象具有的性质，如窗体的Picture属性。 方法，对象所能做的动作，如窗体的Print,Cls,End方法等。 事件，如窗体的单击事件，双击事件等这些都是。&
2．建立一个VB.NET2008应用程序一般需要哪些步骤? &
设计界面 &编写代码 &调试程序
3.在VB.NET 2008集成开发环境中向窗体添加控件后，怎样打开代码窗口添加或编辑控件代码？(任意写出两种方法) &
1. 双击窗体或者窗体上的控件。 2. 右击窗体，选择&查看代码&。&
4. 简述在Visual Studio 2008对象属性设置的两种方法？ &1、用属性窗口修改&
2、用代码修改&
5. VB 2008集成开发环境有哪几个重要组成部分？ &
主窗体，窗体设计窗口，属性窗口，工程管理器窗口，窗体布局窗口，工具箱&
6. 什么是选择结构的嵌套？在嵌套时应遵循什么原则？&
选择结构的嵌套是指把一个选择结构放入另一个选择结构之内。 则称为选择结构的嵌套，在嵌套时应该注意语句的起始行不能相互交叉骑跨。&
7、列表框和组合框在使用时有什么不同？&
列表框：只能按列表形式显示并选择其中的内容，不带文本框，有两种样式（0:列表；1:带复选框的列表）&
下列组合框：可以下拉，也可以以文本框显示，有三种样式（0:带下拉文本框，文本框可编辑；1:文本框形式[加大高度时会变成类似文本框+列表框的形式]，文本框可编辑；2:固定下拉框，文本框的内容只可选择下列列表里的内容，不能手动编辑&
8、TextBox控件既可实现数据输入，也可实现数据输出。如果只想用TextBox控件实现数据输出，应该修改该控件的什么属性？&
1、Text1.Locked = True 2、Text1.Enabled = False &
四、阅读程序，写出结果&
1、执行下面程序, 当单击按钮Button1时，弹出的消息框显示的结果是__a=10 b=1 c=16&
i=11___。&
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&
& & & & Dim a As Integer, b As Integer, c As Integer, i As Integer & & & & a = 2 : b = 10 : c = 1 & & & & For i = c To 2 * b Step a & & & & & & a = a + 2
& & & & & & i = i + 1 & & & & & & c = 2 * c&
& & & & & & If a &= 10 Then Exit For & & & & & & b = b - 3 & & & & Next i&
& & & & MsgBox(&a=& & a.ToString() & & &b=& & b.ToString() & & &c=& & c.ToString() & & &i=& & i.ToString()) &End Sub &
2. 如下程序，当单击按钮Button1时，弹出的消息框显示的结果是___4____&
& & Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click & & & & Dim M(10) As Integer, x As Integer & & & & For k = 1 To 10 & & & & & & M(k) = 12 - k & & & & Next k & & & & x = 6&
& & & & MsgBox(M(2 + M(x)))&
3、执行下面程序, 当单击Form1时，列表框显示的结果是____ i=13 &j= -16______。 Option Explicit&
Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As &System.EventArgs) Handles MyBase.Click & & Dim i As Integer, j As Integer J=10&
For I=1 to j step 2 I=I+1 J=j-i Next I
ListBox1.Items.Add(&i=& & i & Space(6) & &j=& & j) End Sub &
4. 如下程序，运行的结果是_____x=6_____________ Public Function f(ByVal m%, ByVal n%) & & & & Do While m && n&
& & & & & & Do While m & n : m = m - n : Loop & & & & & & Do While n & m : n = n - m : Loop & & & & Loop & & & & F = m & & End Function &
& & Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click & & & & Dim x As Integer & & & & x = f(24, 18) & & & & MsgBox(&x=& & x) & & End Sub&
五、程序设计题&
1、设计一个登录窗体，并实现登录功能。要求如下：&
（1）、写出数据库的数据表及各表包括的主要字段名称、数据类型、是否为空、主键等。&
（2）、写一个函数（Function），判断用户输入的用户名和密码是否正确（即数据库中是否存在用户输入的用户名和密码信息），正确返回TRUE，否则返回FALSE。 （3）、在登录按钮中调用该函数，输入正确登录成功并弹出消息框；否则登录失败，给出失败消息框，当连续登录三次失败时，弹出消息框并关闭窗体退出。写出主要代码。
ListBox1.Items.Add(&i=& & i & Space(6) & &j=& & j) End Sub &
4. 如下程序，运行的结果是_____x=6_____________ Public Function f(ByVal m%, ByVal n%) & & & & Do While m && n&
& & & & & & Do While m & n : m = m - n : Loop & & & & & & Do While n & m : n = n - m : Loop & & & & Loop & & & & F = m & & End Function &
& & Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click & & & & Dim x As Integer & & & & x = f(24, 18) & & & & MsgBox(&x=& & x) & & End Sub&
五、程序设计题&
1、设计一个登录窗体，并实现登录功能。要求如下：&
（1）、写出数据库的数据表及各表包括的主要字段名称、数据类型、是否为空、主键等。&
（2）、写一个函数（Function），判断用户输入的用户名和密码是否正确（即数据库中是否存在用户输入的用户名和密码信息），正确返回TRUE，否则返回FALSE。 （3）、在登录按钮中调用该函数，输入正确登录成功并弹出消息框；否则登录失败，给出失败消息框，当连续登录三次失败时，弹出消息框并关闭窗体退出。写出主要代码。 & &&
2.请把下面的程序按照要求补充完整。程序要求计算水费，计算水费时有4种情况：生活用水，每吨1元；农业用水，每吨1.5元；工业用水，每吨2元；娱乐业用水，每吨6元。请编制程序，由用户 &
选择水费类型，程序根据用水吨数和水费类型计算应缴水费，如图1所示。 &
图1 &计算水费&
设计步骤如下：&
1) 建立应用程序用户界面和添加控件。在窗体上添加1个下拉列表框控件对象。设置如图2左所示。
2) 编写事件代码。 ' 窗体的Load事件&
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load&
& & ComboBox1.Items.Add(&生活用水(每吨1元)&) & & ComboBox1.Items.Add(&农业用水(每吨1.5元)&) & & ComboBox1.Items.Add(&工业用水(每吨2元)&) & & ComboBox1.Items.Add(&娱乐业用水(每吨6元)&) End Sub&
' 命令按钮&计算&的Click事件&
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click & & Dim a, b As Decimal &&
& & a = CDec(TextBox1.Text) & &请补充计算水费的程序段
If ComboBox1.SelectedIndex = 0 Then '判断下拉列表框选择的序号 & & & & b = a * 1&
& & ElseIf ComboBox1.SelectedIndex = 1 Then & & & & b = a * 1.5&
& & ElseIf ComboBox1.SelectedIndex = 2 Then & & & & b = a * 2&
& & ElseIf ComboBox1.SelectedIndex = 3 Then & & & & b = a * 6 & & End If & & &
TextBox2.Text = b End Sub&
3) 运行程序，选择水费类型并输入用水量后单击&计算&按钮，结果如图2右所示。
3. 请把下面的程序按照要求补充完整。程序功能：设计一个如图3所示的简易计算器，两个文本框中输入操作数（例如：12和3，在组合框中选定操作符号（+，-，*，/例如：*）后，单击&计算&按钮，结果显示在标签控件中中；若在单击&计算&按钮前，单击了保存复选按钮，则结果同时显示在列表框控件中。 设计步骤如下：
建立应用程序用户界面和添加控件。在窗体上添加1个下拉列表框控件对象。设置如图3左所示。
2) 编写事件代码。&
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load&
& & &Me.Left = 450: Me.Top = 250 &Label1.Text = & &:TextBox1.Text = & &&
&请补充在组合框ComboBox1控件中添加操作符号（+，-，*，/），并清空列表框ListBox1控件&
ComboBox1.Items.Add(&+&) & & & & ComboBox1.Items.Add(&-&) & & & & ComboBox1.Items.Add(&*&) & ComboBox1.Items.Add(&/&)&
& & & & ListBox1.Items.clear(& &) & & End Sub&
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As system.EventArgs) Handles Button1.Click & & & & Dim ioperate1 As Integer & & & & Dim ioperate2 As Integer & & & & Dim iresult As Integer & & & & Dim operater As Char & & & & Try&
& & & & & & ioperate1 = CInt(operate1.Text) & & & & & & operater = ComboBox1.Text & & & & & & ioperate2 = operate2.Value&
& & & & & & &&请补充利用简易计算器进行计算程序段 & & & & Select operater & & & & & & & & Case &+&&
& & & & & & & & & & iresult = ioperate1 + ioperate2 & & & & & & & & Case &-&&
& & & & & & & & & & iresult = ioperate1 - ioperate2 & & & & & & & & &Case &*&
& & & & & & & & & & iresult = ioperate1 * ioperate2 & & & & & & & & Case &/&&
& & & & & & & & & & iresult = ioperate1 / ioperate2 & & & & & & & & Case Else&
& & & & & & & & & & MessageBox.Show(&请选择运算符&) & & & & & & & & & & Exit Sub & & & & & & End Select&
& & & & & & Label1.Text = CStr(iresult)&
& & & & & & If CheckBox1.Checked = True Then ListBox1.Items.Add(CStr(iresult)) & & & & Catch ex As OverflowException&
& & & & & & Label1.Text = &计算数据溢出& & & & & & '除数为零 & & & & Catch ex As InvalidCastException&
& & & & & & Label1.Text = &无效数据& & & & & & & &'输入字符数据 & & & & Catch ex As Exception & & & & & & Label1.Text = ex.Message & & & & End Try End Sub&
3) 运行程序，结果如图3右所示。 &
4、设计一个登录窗体，当输入的用户名和密码均为admin时，登录成功并弹出消息框；否则登录失败，给出失败消息框，当连续登录三次失败时，弹出消息框并关闭窗体退出。写出主要代码。&
Public Class Form1&
Dim LoginCount As Integer = 0&
& & Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&
& & & & If TextBox1.Text = && Then&
& & & & & & MsgBox(&请输入用户名！&, rmation, &提示&) & & & & & & Return & & & & End If &
& & & & If TextBox2.Text = && Then&
& & & & & & MsgBox(&请输入密码！&, rmation, &提示&)
& & & & & & Return & & & & End If &
& & & & If LoginCount = 3 Then&
& & & & & & MsgBox(&登录失败已经达到三次，当日不能登录！&, rmation, &警告&) & & & & & & TextBox1.Text = && & & & & & & TextBox2.Text = && & & & & End If &
& & & & If TextBox1.Text = &admin& And TextBox2.Text = &admin& Then &
& & & & & & MsgBox(&登录成功！&, rmation, &提示&) & & & & & & TextBox1.Text = && & & & & & & TextBox2.Text = && &
& & & & Else&
& & & & & & If LoginCount = 3 Then&
& & & & & & & & MsgBox(&登录失败已经达到三次，当日不能登录！&, rmation, &警告&)&
& & & & & & & & TextBox1.Text = && & & & & & & & & TextBox2.Text = && & & & & & & & & Return & & & & & & End If&
& & & & & & LoginCount = LoginCount + 1&
& & & & & & MsgBox(&登录失败！请重新登录！&, rmation, &提示&) & & & & & & TextBox1.Text = && & & & & & & TextBox2.Text = && & & & & End If & & End Sub &
& & Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click & & & & Me.Close() & & End Sub & & End Class
(责任编辑：huang)
------分隔线----------------------------
VB.NET考试复习题 一、选择题： 1、数学关系8y40表示成正确的VB表达式为（C） A、8=y4...
下载安装包 7g多，解压开。运行 安装文件 ，下一步，下一步。最后成功。 激活： 填写 ...
1）字符串比较比较函数StrComp () 语法：StrComp (str1 As String , str2 As String [...您所在位置： &
 &  & 
VB题库—程序填空.doc161页
本文档一共被下载：
次 ,您可免费全文在线阅读后下载本文档
文档加载中...广告还剩秒
需要金币：50 &&
你可能关注的文档：
〖第1题〗『程序填空』1分题号:59
'【程序填空】
' 功能:输入一个数,若大于0,则显示"+";若小于0,
' 则显示 "-";若等于"0",则显示"零"。
Private Sub Command1_Click
ValText1.Text
Select Case x
'**********SPACE**********【?】 Label1.Caption
"+"Case Is
'**********SPACE**********【?】
'**********SPACE**********【?】 Label1.Caption
"零"End Select
答案:1Case Is
02Label1.Caption
"-"3Case 0 或 Case Else 或 Case Is
〖第2题〗『程序填空』1分题号:60
'【程序填空】
'功能:输入任何一个英文字母x,
'若x的值为"a","c","d-f" ,则显示x的大写字母;
'若x的值为"m","o","p-z",则显示x的小写字母;
'若x的值为其它的值,则显示xa(如输入的X的值是g,则显示ga)。
Private Sub Command1_Click
Text1.Text
'**********SPACE**********【?】
'**********SPACE**********Case 【?】 Label1.Caption
UCasexCase "m", "o", "p" To "z" Label1.Caption
LCasexCase Else
'**********SPACE**********
End Select
答案:1Select Case x2"a", "c", "d" To "f"3Label1.Caption
Trimx + "a" 或 Label1.Caption
〖第3题〗『程序填空』1分题号:36
'【程序填空】
'功能:以下程序的功能如图1。
Private Sub Form_Click
Dim a%, b%, c%, d!
Dim x1, x2
Dim p, q, r
InputBox"请输入a的值"
InputBox"请输入b的值"
InputBox"请输入c的值"
b * b - 4 * a * c
-b / 2 * a
'**********SPACE**********If 【?】 Thenr
Sqrd / 2 * ax1
p - rElsex1
'**********SPACE**********【?】Print "x1"; x1, "x2"; x2
'**********SPACE**********
Sqr-d / 2 * aPrint "x1"; "+"; "i", "x2"; "-"; "i"
d2End If3Else
〖第4题〗『程序填空』1分题号:51
'【程序填空】
'功能:下面的程序段用于建立文件并输出文件,文件内容如下:
Private Sub Form_Click
'**********SPACE**********
正在加载中，请稍后...VB.NET程序设计
&&&&您现在的位置：首页 ：
部门简介-->
1. 在Visual Studio.NET中创建的VB项目MyProject，其项目文件MyProject.vbproj的存储格式为A. 一般TXT格式&& B. 二进制格式&& C. HTML格式& D. XML格式正确答案：D&2. .NET构架中，异常处理机制是在__________实现的？&A. CLR层& B. BCL层& C. CLS层& D. Windows Froms和ASP.NET层正确答案：A&3. .NET构架中被用来访问数据库数据的组件集合称为：&A. ADO&& B. ADO.NET&& C. COM+&& D. Data Service .NET&正确答案：B&4. 在.NET 构架中，VB.NET程序被编译成A. 机器码& B. 汇编码& C. MSIL码& D. 脚本正确答案：C&5. MSIL是在________层中被解释成本地机器码的？&A. CLR层& B. BCL层& C. CLS层& D. Windows API&正确答案：A&6. 在MyFirst解决方案目录下的下列哪个文件中可以找到用户配置信息？&A. MyFirst.sln文件中& B. MyFirst.suo文件中C. MyFirst.vb文件中&& D. MyFirst.vbproj文件中正确答案：B&7. 在VB.NET中。定义类模块的关键字为：A. Class??End Class&& B. Struct??End Struct&C. Sub??End Sub&&&&&& D. Function??End Function&正确答案：A&8. 根据.NET的术语规范，VB.NET的类中的数据成员又称为：A. 域& B. 子项& C. 数据子项& D. 属性正确答案：A&9. 在VB.NET程序中，对象可执行的操作称为对象的A. 属性& B. 方法& C. 事件& D. 状态正确答案：B&10. VB.NET中，程序员修改了主窗体的某个属性后，发现无法启动程序，原因可能是：&A. 修改了主窗体的Caption属性& B. 修改了主窗体的isMainForm属性C. 修改了主窗体的Name属性&&&& D. 修改了Main函数正确答案：C&11. 在窗体的成员方法dosomthing中，将窗体位置居中显示，应调用哪个窗体方法？&A. Center()&& B. CenterToScreen()&& C. MoveToCenter()&& D. Show()&正确答案：B&12. 哪种窗体在关闭之前不允许用户与程序中其他窗体进行交互？&A. 主窗体& B. 对话框& C. 模态窗体& D. 非模态窗体正确答案：C&13. 在VB.NET中，一个布尔型变量占用的内存位数为A. 8位& B. 16位& C. 32位& D. 64位正确答案：C&14. VB.NET中，取字符串”this is a test”的第一个字符，并将其赋值给字符变量ch。下列代码哪组正确？（假设已经定义变量ch）&A. ch = Char(Mid(“this is a test”,0,1))&B. ch = CChar(Mid(“this is a test”,0,1))&C. ch = Char(Mid(“this is a test”,1,1))&D. ch = CChar(Mid(“this is a test”,1,1))&正确答案：B&15. Textbox控件限制用户输入字符长度的属性为:A. CharacterCasing& B. Length& C. MaxLength& D. AutoSize正确答案：C&16. 过程changeName中执行下列代码后，字符串firstName的值是什么？&Dim firstName as String = “Tom”&Dim secondName as String = firstName&secondName &= “Jerry”&A. Tom&& B. Jerry&& C. Tom Jerry&& D. Tom & Jerry&正确答案：A&17. 类Hello定义如下Public Class Hello&Public Message As String&……&End Class&现在需要将Message限定在本项目中可以访问，应该将限定符Public修改为A. Static&& B. Protected&& C. Friend&& D. Private&正确答案：C&18. 执行下列语句后，控制台输出什么结果Dim res as Integer = CType(“123.45”,Integer)&Console.Writeln(res)&A. 123&& B. 12345&& C. 0&& D. res&正确答案：A&19. 在VB.NET中，无返回值的过程称为________过程A. Sub&& B. Function&& C. Property&& D. Main&正确答案：A&20. 在模块MyModule中定义的过程ShowHelpInfo（如下），其访问权限为_________。Public Module MyModule&……&Sub ShowHelpInfo(String info)&MessageBox.Show(info)&End Sub&……End Module&A. 仅在MyModule中可以使用& B. 在本项目中可以使用C. 在本解决方案中可以使用&& D. 在派生模块中可以使用正确答案：C&21. 下列程序在控制台上的输出结果为_________。&Public Function MyFunc(i as Integer)&If i & 0 Then&Return 100&Else&Return "hello"&End If&End Function&Public Shared Sub Main()&Dim x As Employee&Console.WriteLine(TypeName(x.MyFunc(-1)) & "," & TypeName(x.MyFunc(1)))&End Sub&A. Integer,String&& B. String,Integer&& C. Object,Object&& D. String,String&正确答案：B&22. 下列主过程Main中执行完语句x.MyFunc(i)后，局部变量i的值为________。&Class test&Public Sub MyFunc(ByVal i As Integer)&i = i * 2&End Sub&End Class&Sub Main()&Dim x As new test&Dim i As Integer = 100&x.MyFunc(i)&End Sub&A. 0&B. 2&C. 100&D. 200&正确答案：C&23. 在调试VB.NET中，可以使用Visual Studio.NET的下列哪种窗口查看和修改位于当前文本中的所有变量？比如过程的所有局部变量。A．局部变量窗口& B.监视窗口& C.快速监视窗口& D.自动窗口正确答案：B&24. 已知数组arr进行以下定义： Dim arr() as Integer = {1,1,1,1,1}过程MySub定义如下：&Sub MySub(ByVal ar() As Integer, ByRef x As Integer)&Dim i As Integer&For i = 0 To UBound(ar) " 注：UBound(ar)求数组ar的下标上限&ar(i) = x&Next&x = 0&End Sub&则执行下列语句后，数组arr和变量data中的内容是什么？&Dim data As Integer = 2&MySub(arr, data)&A. arr={2,2,2,2,2} data=2&& B. arr={1,1,1,1,1} data=2&C. arr={2,2,2,2,2} data=0&& D. arr={1,1,1,1,1} data=0&正确答案：C&25. 表达式CInt(True)的值为A. False&& B. True&& C. 1&& D. -1&正确答案：D&26. 执行下列语句后，变量x的值为____________&Dim x as Integer = 0&x = 3/2&A. 0&& B. 1&& C. 2&& D. 3&正确答案：B&27. 下列布尔表达式的值为____________。True and True Xor True and False&A. True&& B. False&& C. OrElse&& D. AndAlso&正确答案：A&28. 下列表达式的值为____________。True and 100+10*3&12^2&A. True&& B. False&& C. 130&& D. 144&正确答案：A&29. 分析下列程序，当运行结束后，在控制台上的输出是什么？&Public Function Increment(ByRef value as Integer) AS Integer&value += 1&return value&End Function&Public Sub Main()&Dim n1 as Integer = 1&Dim n2 as Integer = 1&Dim result as Boolean&If n1=0 AndAlso Increment(n2)=1 Then&result = True&Else&result = False&End If&Console.Writeln(“n1=”& n1 & “,n2=”&n2)&End Sub&A. n1=1,n2=1&& B. n1=0,n2=2&& C. n1=1,n2=2&& D. n1=0,n2=1&正确答案：A&30. 在设计循环语句时，若有以下要求：1、在执行循环之前先测试条件表达式expression ；2、让代码循环执行到该条件表达式的值取“真”。则应使用下列哪种Do Loop循环语句？&A. Do Until expression ?? Loop&& B. Do ?? Loop Until expression&C. Do While expression ?? Loop&& D. Do ?? Loop While expression&正确答案：A&31. 在使用OpenFileDialog对话框控件时，希望通过对话框只查找C++文件的程序文件(*.CPP)文件和头文件(*.H)，则OpenFileDialog对象的Filter属性应如何设置？&A. “C++程序文件:*.CPP;C++头文件:*.H”&B. “C++程序文件|*.CPP|C++头文件|*.H”&C. “C++程序文件\*.CPP\C++头文件\*.H”&D. “C++程序文件-&*.CPP;C++头文件-&*.H”&正确答案：B&32. TextBox控件的PasswordChar属性的作用是A. 该属性是Boolean类型，表示是否使用*号隐藏输入的信息B. 该属性是String类型，表示输入的隐藏信息的实际内容C. 该属性是Char类型，表示是用哪个字符隐藏输入的信息D. 该属性在VB.NET中未使用正确答案：C&33. 为了使TextBox的ScrollBar真正起作用，应该将TextBox的“自动换行”功能取消。取消该功能，需要将TextBox控件的_______属性设置为False?&A. ScrollBars&& B. AcceptReturns&& C. WordWrap&& D. AutoSize&正确答案：C&34. 使用Masked Edit控件输入金额数字时，对输入有以下格式要求：&1、前面必须带$符号；2、金额最多为999999元，且每3位用逗号分割,高位不保留0； 3、整数部分对10元取整，即个位必须为0；4、小数部分保留2位,必须为0 。金额数字的例子如：123,450.00。根据该要求，则控件的Mask属性应为A. $999,99#.00&& B. $999,990.00&& C. $###,##0.00&& D. $###,##9.00&正确答案：B&35. 可以使用下列哪个函数来检测一个字符串的内容是不是数字格式？&A. IsNumeric&& B. IsNothing&& C. IsInteger&& D. IsNumber&正确答案：A&36. 在面向对象编程方法中，将对象的属性和方法用某种方法“包装”起来，使得要访问对象，必须通过那些被清楚定义的接口，这种“包装”的过程，在面向对象编程中称为A. encapsulation&& B. abstraction&& C. envelope&& D. implementation&正确答案：A&37. MyDS是一个System..Data.DataSet类型的对象，C：\MyDsInfo,XML中保存了另外一个System..Data.DataSet对象的模式信息。若想根据该模式信息在MyDS中创建一个临时的数据库，则首先应调用以下哪条语句？&A. MyDS.ReadXml (“C:\MyDsInfo.XML”)B. MyDS.ReadXmlSchema (“C:\.MyDsInfo .XML”)C. MyDS.WriteXml(“C:\MyDsInfo.XML”)D. MyDS.WritexmlSchema(“C:\MyDsInfo.XML”)正确答案：B&38. 类MyClass的定义如下：&Public Class MyClass1&Private data as String&End Class&则关键字Private在类的定义中的作用是：&A. 限定成员变量data只在本模块内部可以使用；&B. 限定成员变量data仅在类MyClass的成员方法中可以访问；&C. 限定成员变量data仅仅可在类以及子类的成员方法中访问D. 限定类MyClass仅在本模块中可以使用正确答案：B&39. 在VB.NET中，一般使用关键字________来标示重载方法。A. Overloads&& B. Overrides&& C. Shadows&& D. Public&正确答案：A&40. VB.NET中变量Obj和Obj2的声明如下：&Dim obj as new MyClass&Dim obj2 as MyClass = obj&则下面语句的作用是_______。obj = Nothing&A. 将obj引用的MyClass对象从托管堆中删除B. 将Obj引用的MyClass对象的引用计数减1&C. 将变量Obj转而引用Nothing对象D. 将变量Obj从内存中删除正确答案：B&41. .NET对象的最后一个引用被释放后多长时间后，对象占用的“托管堆”空间被.NET“垃圾收集”功能回收？&A. 最后一个引用被释放后马上回收对象B. 最后一个引用被释放后1分钟回收对象C. 最后一个引用被释放后1小时回收对象D. 最后一个引用被释放后的某个不确定的时刻正确答案：D&42. 对于VB.NET语句 Speed = Miles/Hours(其中Speed、Miles、Hours都是Double值)，当Hours=0时，该语句将引发A. 语法错误& B. 编译错误& C. 逻辑错误& D. 运行时错误正确答案：D&43. 当VB.NET程序出现逻辑错误后，可以使用________工具来隔离并改正代码中的逻辑错误？&A. 命令行下的Debug.exe&& B. 汇编工具C. Visual Studio.NET的调试工具& D. 任何一种语言的调试工具正确答案：C&44. 程序在语法上是合法的，在运行时也没有出现非法操作，但结果不合理，这种错误在VB.NET中称为A. 语法错误& B. 运行时错误& C. 逻辑错误& D. 不明错误正确答案：C&45. 在调试VB.NET程序时，Visual Studio.NET的“自动窗口”可以查看当前行语句以及其前、后各_____语句中的变量，并可以修改其值。A. 1行& B. 2行& C. 3行& D. 4行正确答案：C&46. Win窗体设计时，应该为工具栏的_________事件编写事件处理程序，以响应用户点击工具栏的按钮？&A. Click&& B. ButtonClick&& C. KeyDown&& D. MouseDown&正确答案：B&47. Win窗体的工具栏对象为ToolBar1。为了在工具栏中添加新的按钮，应该在对象ToolBar1的“属性”视图下编辑ToolBar1的_________属性A. Appearance&& B. ImageList&& C. Buttons&& D. ShowToolTips&正确答案：C&48. Win窗体的工具栏对象为ToolBar1。为了将工具栏中的所有按钮用图形显示，则应该在对象ToolBar1的“属性”视图下编辑ToolBar1的_________属性A. Appearance&& B. ImageList&& C. Buttons&& D. ShowToolTips&正确答案：B&49. 若不准备使用状态栏的窗格显示信息，则应该将_________属性设置为False。A. ShowPanels&& B. Panels&& C. Enabled&& D. Visible&正确答案：A&50. 如要实现菜单功能，应向菜单项的_________事件添加代码？&A. Command&& B. Click&& C. Popup&& D. Select&正确答案：B
VB.NET模拟试题2
1、按照变量的命名规则，下列变量名中不合法的是：（& ）A、strMystring& B、intCount& C、sng平均值& D、12Number2、在VB.NET中,一般使用关键词(&&&& )来表示重载方法.A. overloads&&&&&&&&&&& B. overridesC. shadows&&&&&&&&&&&&& D. public3、连接sql server2000数据库，使用哪种.net数据提供程序最优（ ）A.SQL SERVER.NET数据提供程序B.OLE DB.NET数据提供程序C.ODBC.NET数据提供程序D.ORACLE.NET数据提供程序4、.NET Framework类库中所以类型的根命名空间为（）A.System& B.Collection& C.System.Collection& D.Space5、Command对象对数据源执行命令，返回结果为单一值，使用Command对象的哪种方法()A.ExecuteReaderB.ExecuteNonQueryC.ExecuteScalarD.ExecuteXmlReader6、在Web表单的设计中，可以将页面的（& ）属性设置为Grid Layout ,以使用绝对位置排列页面上的可视元素。A.& showGrid&&&&&&&&&&&&&&&&&&&&& B.&& codePageC.& pageLayout&&&&&&&&&&&&&&&&&&& D.&& bgColor7、判断下列程序运行后x的值（&&&& ）？X=5X+=5A．& 5&&&&&& B．10&&&&&& C． 0&&& D．18、.NET构架中被用来访问数据库的组件集合称为(& )A.ADO.NET&&&& B.COM+&&&&& C. ADO&&&&& D. Data.Service.NET9、若需要从关系数据库中的表Employees中查看所有的记录，应使用SQL语句（&&&&&& ）&&& A．Insert * From Employees&&& B．Delete * From Employees&&& C．Update * From Employees&& D．Select * From Employees10、为了在程序中使用SqlServer .NET 数据提供程序，应在源程序工程中添加对程序集（&&&&&&&& ）的引用。&A. System.Data&&&&&&&&&&&&&&& B. System.Data.SqlClientC. System.Data.OleDb&&&&&&&&&& D. System.Data.Odbc11、如果要使文本框能够多行显示，则应使（&&& ）属性设为True。A． MultiLine&& B． MaxLength&&& C． SelLength&& D． Locked12、对文件进行读写操作时需要导入的名称空间是：（&&&&&&& ）A. system.data&&&&& B. system.io&&C. system.xml&&&&&& D. system.collections13、.NET Framework不支持的一种类型的用户界面为（）A.&Web窗体& B.Windows窗体& C.控制台应用程序& D.Unix14、下列代码执行后，变量IntY的值为（）IMPORTS SYSTEMCLASS MAINAPP& Public Shared Sub MAIN()Dim SngX As Single = 123.45Dim IntY As IntegerIntY = Convert.ToInt32(SngX)Console.WriteLine(IntY)& End SubEnd ClassA.&123& B.123.45& C.123.4& D.123.515、声明一个动态数组dim intX（）as integer，在使用intX之前，要重新定义intX，下面格式正确的是（& ）。A、ReDim IntX（）& B、Dim IntX（）&& C、Dim IntX（3）&& D、ReDim IntX（5）16、下列不属于类三要素是：（& ）A、属性&& B、方法&& C、过程&& D、事件17、要使窗体成为容器，需要设置窗体的（&& ）属性为True。A、Container&& B、MdiLayout&& C、Child&& D、IsMdiContainer18、类的继承的关键字为（）A.Overloads& B. Overridable& C. Inherits& D.Overrides19、进度条(ProgressBar)控件用来显示事务处理的进度,（）属性用来获取或设置进度栏的当前位置A.Maximum& B. Minimum& C. Name& D.Value20、下列声明事件的语句正确的为（）A.& Public Event proverb(ByVal agemsg As String)B.&Public proverb()C.&Public proverb(ByVal aegmsg As String)D.&Private proverb()21、请看以下代码：Dim X As Integer =2Select Case X&&&& Case 1&&&& MessageBox.Show(“Yes!”)&&&& Case 2MessageBox.Show(“No!”)&&&& Case 3MessageBox.Show(“Ok!”)Case ElseMessageBox.Show(“Sorry!”)&&&&&&&&&& End Select问运行后MessageBox将输出：（& ）A、Yes!&& B、No!&& C、Ok!&& D、Sorry!22、如果FOR语句中的步长值为正，则循环正常结束时（ ）。A．& 循环变量的终值&初值&&&& B．& 循环变量的终值&初值C．& 循环变量的终值=初值&&&& D．& 都错23、向列表框中填加一个新项目,正确的语句是（& ）。A． ListBox1.Items.Add (“How are You?”)B． ListBox1.Items.Insert (“How are You?”)C． ListBox1.Items.Add (2,“How are You?”)D． ListBox1.Items.Insert (2,“How are You?”&24、以下能够正确计算5!的程序是（& ） 。A.&&&Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I & NLabel1.Text = XEnd SubB.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1 : I = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I & N&&&&&&& Label1.Text = XEnd SubC.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1 : I = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I &= N&&&&&&& Label1.Text = XEnd SubD.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1 : I = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I & N&&&&&&& Label1.Text = XEnd Sub25、连接字符串设置如下，该连接的服务器的机器名为（&&&& ）。Dim cnNorthwind As new OleDbconnection&CnNorthwind.ConnectionString=”Provider=SQLOLEDB;Data Source=ProdServ01;” _+ “Initial Catalog=Pubs”+ “Integrated Security=SSPI”A.& Prodserv01B.& SQLOLEDBC.& PubsA.&SSPI26、使用（）方法可以使线程开始运行A.&Start& B.Sleep& C. Suspend& D.Abort27. （&&& ）标记标志着HTML文档的开始。A.& &HTML&&&&&&&&& B.& &BODY&C.& &P&&&&&&&&&&&& D.& &FORM&28、（&& ）标记标志着HTML文档文件体的开始。A． &HTML&&&&&&&&& B． &BODY&C． &P&&&&&&&&&&&& D． &FORM&29、标签控件的作用是（&&& ）。A．输入文本信息&&&&& B．& 编辑文本信息&&&&&&C．显示文本信息&&&&& D．& 相当于文本编辑器30、如果保留动态数组元素原来的值，在关键字Redim 后加（&& ）参数。A、Byref&&& B、Byval&&& C、Preserve&&& D、Static31、根据输入的整数X的值，给出相应的提示，要求如下：&&& 当 x &100时&&&&&&&&&&&&& 显示"X&100"当 100 &= x &= 500时&&&& 显示"100≤X≤500"当 x &500时&&&&&&&&&&&&& 显示" x&500"Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click&&&&&&& Dim x As Integer&&&&&&& Dim Y As String&&&&&&& x = InputBox("请输入x的值:")&&&& _____________________________&&&&&&&&&&& Case Is & 100&&&&&&&&&&&&&&& Y = "X&100"&&&&&&&&&&& Case 100 To 500&&&&&&&&&&&&&&& Y = "100≤X≤500"&&&&&&&&&&& Case Else&&&&&&&&&&&&&&& Y = " x &500 "&&&&&&& End Select&&&&&&& MsgBox(Y)End Sub32、 输入一个数，判断其为偶数还是奇数，并用消息框显示出结果，如“您输入的数8是偶数”。Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs)& Handles MyBase.Click&&&&&&&&& Dim X As Integer&&&&&&&&& Dim Y As String&&&&&&&&& X = InputBox("请输入X的值:")&&&&&&&& _____________________________&&&&&&&&& MsgBox("您输入的数" & X & Y)End Sub33、Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& ___________________&& ‘创建SqlConnection对象cnNorthwindcnNorthwind.ConnectionString = "Data Source = (local); Initial Catalog = N Integrated Security = SSPI;"&&&&&&& "创建SqlCommand类的对象&&&&&&& Dim cmdNorthwind As New SqlCommand&&&&&&& "设置属性值&&&&&&& cmdNorthwind.Connection = cnNorthwind&&&&&&& mandType = CommandType.Text&&&&&&& mandText = "INSERT INTO Products(ProductName,SupplierID,Discontinued)" & "VALUES ("玩具",2,0)"&&&&&&& cnNorthwind.Open()&&&&&& ___________________&&& " Command对象执行方法&&&&&&& MessageBox.Show("操作成功！")&&&&&&& cnNorthwind.Close()&&& End Sub34、以下代码计算11+21+31+……+91的整数和，请将程序补充完整。Dim sum as integerDim i as integerSum=0i=11While i&=100&& Sum=sum+i&&&&&&&&&&&&&&&&&End while35、为下面类的定义添加属性。Public Class PERSON&&&&&& ___________________&& " 定义NAME属性可读可写Private INNER_SEX As String&&&&&&& " 定义只读的属性过程AGE&&&&& Public ReadOnly Property AGE() As Integer&&&&&&& Get&&&&&&&&&& Return DateDiff(DateInterval.Year, INNER_BIRTHDAY, Now)&&&&&&& End Get&&&&& End Property&&&&& ………….End Class36、阅读程序，将其补充完整。&& Dim cn As New SqlConnection&&& cn.ConnectionString = "Data Source=(local); " & _Initial& Catalog=N" && "Integrated Security = SSPI;"&&& Dim strSql = "select ProductID, ProductName,UnitPrice from Products"&&&&&& Dim da As New SqlDataAdapter(strSql, cn)&&&&&& Dim ds As New DataSet&&&&&& cn.Open()&&&&&&& ___________________&&&&& DataGrid1.DataSource = ds.Tables("Products")&&&&&& cn.Close()End Sub37、求2!+5!+7!+10!Public Class Form1&&&&&& Inherits System.Windows.Forms.Form&&&&&& Dim SUM As Double&&& Sub F(ByVal N As Integer)&&&&&&&&& Dim I As Integer&&&&&&&&& Dim T As Double&&&&&&&&& T = 1&&&&&&&&& For I = 1 To N&&&&&&&&&&&&& T = T * I&&&&&&&&& Next&&&&&&&&& SUM = SUM + T&&&&& End Sub&&& Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs)& Handles MyBase.Click&&&&&&&&& _____________________________&&&&&&&&& MsgBox("2!+5!+7!+10!=" & SUM)End SubEnd Class38、阅读程序，将其补充完整&&% @ Page& Language="VB"& %&&HTML&&&&&&&&&& &body&&&&&&&&&&&& &% Dim I AS Integer&&&&&&&&&&&&& For& I=1& TO& 4& %&&&&&&&&&&&&&&& &font& size="&%I%&"& HELLO WORD! &/font&& &br&&&&&&&&&&&&& &% Next %&&&&&&&& &/body&&&&&&&&&&39、求 2 + 4 + …… + 200 的和。&& IMPORTS SYSTEMCLASS MAIN&&&&&&& Public Shared Sub MAIN()&&&&&&&&& Dim sum As Integer&&&&&&&&& Dim count As Integer&&&&&&&&& sum = 0: count= 0&&&&&&&&&&&&&&&& while count & 200&&&&&&&&&&&&&&&&& count + = 2&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& end while&&&&&&&&& Console.WriteLine("2+4+...+200=" + sum.tostring)&&&&&&&&& End Sub40、在窗体上画一个名称为Button1的命令按钮，然后编写如下事件过程：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x, i, j, n As Integerx = 0n = InputBox("请输入一个整数")For i = 1 To nFor j = 1 To ix = x + 1Next jNext imsgbox(x)End Sub程序运行后，单击命令按钮，如果输入3，则在消息框中显示的内容是（&&&&&&& ）。41、请看以下代码：Dim X As Integer =2Select Case X&&&& Case 1&&&&&&& MessageBox.Show(“Yes!”)&&&& Case 2MessageBox.Show(“No!”)&&&& Case 3MessageBox.Show(“Ok!”)Case ElseMessageBox.Show(“Sorry!”)& End Select问运行后MessageBox将输出：（& ）42、在窗体上画一个名称为Button1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：DIM& X,Y& As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickX = 5Y = 3Call proc(X, Y)Label1.TEXT = XLabel2.TEXT = YEnd SubSub proc(ByRef a As Integer, ByVal b As Integer)&&&&&&& a = a * a&&&&&&& b = b + bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是（&&& ）和（&&& ）。43、请看以下代码：Dim I As IntegerFor I = 0 to 10&&&&&&&&&&&&&&& I = I+2NextMessageBox.show ( I )问运行后MessageBox将输出：（&& ）44、NET Framework是开发平台的基础，它包括两个主要组件：（&&&&&& ）和.NET Framework类库。45、ASP.NET页面文件的后缀名是（&&&&& ）。46、Sub子过程的调用有两种方法：一种是使用（&&&&&&& ）语句，另一种是直接调用。47、对象具有的典型特征包括：（&&&& ）、（&&&& ）和方法。48、HTML标记中用来表示分段落的标记是（&&&&&&& ），用来表示换行的标记是（&&&&&& ）。49、数据读取器DataReader对象是一个简单的数据集，用于从数据源中检索（&& ）、（&&&& ）数据流。50、为类定义事件的关键字是（&&&&&&& ）。51、在对SQL Server 2000数据库操作时应选用（&&&&&&&&&& ）数据提供程序。52、过程调用中的参数传递有（&&&& ）、（&&&& ），其关键字分别是（&&&& ）、（&&&& ）。53、应用Response对象的（&&&&&&& ）方法可以将指定字符输出到客户端浏览器。54、Response对象的（&&&&&&& ）方法可以向浏览器发送另一个页面。55、与Request对象的Form和QueryString两种方法对应的表单提交方法分别是（&&&&& ）和（&&&&& ）。56、Server的（&&&&&&&& ）方法可将“网络虚拟路径”转换为“Web服务器上的实际路径”。57、下列哪个属于合法的变量名?(&&&& )A． _HOME&&&&&&& B. @email&&&&&&& C. integer&&&&&&&& D. $money58、在ADO.NET中，代表程序到数据库的连接对象为：（&&&&&& ）A& DataAdapter 对象&&&&&&&&&&&&&&&&&& B& DataSet 对象C.& Command 对象&&&&&&&&&&&&&&&&&&&&&& D.& Connection 对象59、若需要从关系数据库中的表Employees中查看所有的记录，应使用SQL语句（&&&&&& ）&&& A．Insert * From Employees&&& B．Delete * From Employees&&& C．Update * From Employees&& D．Select * From Employees60、 OleDbconnection cnNorthwind=new OleDbConnection();CnNorthwind.ConnectionString=”Provider=SQLOLEDB;”+&&&&&&&&&&&&&&&&&&&&&&&& “Data Source=ProdServ01;”+&&&&&&&&&&&&&&&&&&&&&&&&& “Initial Catalog=Pubs”+&&&&&&&&&&&&&&&&&&&&&&&&&& “Integrated Security=SSPI”;&则该连接的服务器的机器名为（&&&&&&&& ）。&&&&&&&&&&&&&&&&&&&&&&&&&&A.& Prodserv01B.& SQLOLEDBC.& PubsD.& SSPI61、employee 是sql server 2000数据库中的一个数据表，为执行下列sql语句，insert into employee& values(10,tom,1997)应调用命令对象（command对象）的哪个方法：（&&&&&&&& ）A. executescalarB. executexmlreaderC. executereaderD. executenonquery62、对文件进行读写操作时需要导入的名称空间是：（&&&&&&& ）A. system.data&&&&& B. system.io&&C. system.xml&&&&&& D. system.collections63、VB.NET中导入名称空间时用到的关键字是（&&&& ）。A．imports&&&&&&&& B．using&&&&&&& C．use&&&&&&&& D．import64、为创建在SQL Server 2000 中执行Select 语句的Command 对象，可先建立到SQL Server2000数据库的连接，然后使用连接对象的（&&&&&&&& ）方法创建SqlCommand对象。&A. Open&&&&&&&&&&&&&&&&&&&& B. OpenSQL&C. CreateCommand&&&&&&&&&&& D. CreateSQL65、 为了在程序中使用DataSet 类定义数据集对象，应在文件开始处添加对命名空间（&&&&&&&& ）的引用。&A. System.IO&&&&&&&&&& B. System.Utils&C. System.Data&&&&&&&& D. System.DataBase66、为了在程序中使用OleDb .NET 数据提供程序，应在源程序工程中添加对程序集（&&&&&&&& ）的引用。&A. System.Data&&&&&&&&&&&&&&& B. System.Data.SQL&C. System.Data.OleDb&&&&&&&&&& D. System.Data.Odbc67、当访问SQL Server 2000数据库中的数据，最好使用以下哪种.NET数据提供者连接到数据库？（&&&&&&&& ）A.& ODBC.NET&数据提供程序&&& B.& OLEDB.NET数据提供程序C.& XML.NET数据提供程序&&&&&&& D.& SQL Server.NET数据提供程序68.& 为下面类的定义添加属性。Public Class PERSON&&&&&& ___________________&& " 定义NAME属性可读可写Private INNER_SEX As String&&&&&&& " 定义只读的属性过程AGE&&&&& Public ReadOnly Property AGE() As Integer&&&&&&& Get&&&&&&&&&& Return DateDiff(DateInterval.Year, INNER_BIRTHDAY, Now)&&&&&&& End Get&&&&& End Property&&&&& ………….End Class69. 运行文件START.HTML后，在网页上输入用户名和密码，点击“登录”按钮，如果输入的用户名和密码分别为“PENGYOU”和“123“，则登录后的网页上会显示“OK,PENGYOU。键入的密码正确！”；否则会显示“SORRY,PENGYOU。您无权登录该网站！”START.HTML文件代码：&HTML&&TITLE&FORM ACTION TEST PAGE&/TITLE&&& &BODY&&&& &CENTER&&H3&登陆站点&/H3&&/CENTER&&&&& &HR&&&&&& &FORM ACTION=" VALIDATE.ASPX" METHOD="POST"&&&&&&&& 姓名:&INPUT TYPE="TEXT" NAME="USERNAME" SIZE=15& &BR&&&&&&&& 密码:&INPUT TYPE="PASSWORD" NAME="USERPASSWORD" SIZE=15&&BR&&&&& &INPUT TYPE="SUBMIT" VALUE="登录"&&&& &/FORM&&/BODY&&/HTML&VALIDATE.ASPS文件代码：&%IF REQUEST.FORM("USERNAME").TOLOWER ="PENGYOU" AND REQUEST.FORM("USERPASSWORD") ="123"& THEN&& _______________________________&&&& RESPONSE.WRITE("。键入的密码正确！")ELSE_______________________________&&&&& RESPONSE.WRITE("。您无权登陆该网站！" )END IF%&
VB.NET模拟试题3
一、概念题（20分，每题2分）1、 什么是.NET框架？2、 .NET框架在什么平台上运行？3、 .NET框架支持何种编程语言？4、 什么是Visual Basic .NET？5、 “类”包含的要素有哪些？“类”的特性有哪些？1、&简述VB.NET中类与对象的概念。2、&简述重载与重写的差异？3、&简述.NET数据提供程序的四个核心类4、&简述ASP.NET的工作原理。10、简述ASP.NET中REQUEST对象和RESPONSE对象的用途。
二、选择题（30分，每题1.5分）1、VB.NET中的各种窗体，可以实现（ 1 ）。A．自动隐藏&B．自动隐藏、任意停放&C．自动隐藏、任意停放、多重监视功能&D．不能任意停放，并且某个时刻只能选择一种监视方式。
2、Visual Studio.NET 中提供了（ 2 ）。&A．Web设计器及Windows Forms设计器。B．C#、VC++、VB三种集成开发环境。C．Windows Forms设计器D．Web设计器、Windows Forms设计器、XML设计器 、ASP.NET设计器、控制台应用程序等组件。
3、解决方案资源管理器的主要功能是 （ 3 ）。A．提供某个项目所有文件的直观视图，是用户和解决方案之间的双向接口。B．监视受控文件的当前状态。C．设置首选取项、阅读产品新闻、联系开发伙伴及访问其它信息。D．提供当前使用文件的有关信息。
4、在VB.NET中要把属性窗口打开，可以选择（ 4 ）。A． 按F5键打开属性窗口。B．“解决方案资源管理器”窗口中的“属性”菜单项。C．“视图”菜单中的“属性窗口”或F4键。D．“编辑”菜单中的“属性窗口”。
5、要使窗体的标题为“演示实例”，应修改窗体的（ 5 ）属性。A．Caption& B．Tip& C．Item&& D．Text
6、表达式 Num+=3代表的意思是（ 6 ）。A．Num=3&& B．Num=Num+3& C．Num+3=Num&& D． 3=Num
7、& 数据类型为Long的数据在内存中占用的字节数为（ 7 ），其类型标识符为（ 8 ）。（1）A．2&&&&& B． 4&&&& C．4&&&& D． 8&&（2）A．%&&&& B． &&&&& C．!&&&& D． #
8、声明一个窗体级变量时，可以在代码窗口中用（ 9 ）来声明。A．只能用Dim语句声明&B．只能用Private语句声明。&&&C．可以用Dim语句、Private语句、 Public语句进行声明。D．可能用Dim语句、Private语句、 Public语句、Static语句进行声明。
9、以下定义常量不正确的语句是（ 10 ）。A．Const& Num& As& Integer=200B．Const& Num1& As& Long=200, Sstr$=”World”C．Const& Sstr$=”World”D．Const& Num$=#World#
10、标签控件的作用是（& 11& ）。A．输入文本信息&&&&& B．& 编辑文本信息&&&&&&C．显示文本信息&&&&& D．& 相当于文本编辑器
11、如果要使文本框能够多行显示，则应使（ 12 ）属性设为True。A． MultiLine&& B． MaxLength&&& C． SelLength&& D． Locked
12、．如果要使命令按钮以图片形式显示，则应使（& 13& ）属性装入图片。A． BackGroundImage&& B． Image&&& C． ImageList&& D． ImageAlign
13、如果FOR语句中的步长值为正，则循环正常结束时（& 14& ）。A．& 循环变量的终值&初值&&&& B．& 循环变量的终值&初值&&&&&&&&C．& 循环变量的终值=初值&&&& D．& 都错
14、VB的对象相互独立，当添加一个对象后，设计阶段可通过（ 15& ）设置其属性。A. 对象浏览器&&&& B. 属性窗口&&&& C. 项目窗口&&&& D.代码窗口
15、图片框控件可显示图像，若想使图片框自动改变大小，以适应装入的图片，应修改SizeMode属性值为（& 16& ）。A.& Normal&&&& B. AutoSize&&& C. StretchImage&&& D. CenterImage
16、在VB.net中对字符串连接时，建议使用“&”而避免使用“+”，执行下面的代码后A与B的值分别为（ 17& ）。Dim X As StringDim Y As IntegerDim A As StringDim B As StringPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& X = 123 : Y = 123 : A = X + Y : B = X & Y&&&&&&& MsgBox(A)&&&&&&& MsgBox(B)&&& End SubA. “246”、“123123”&&&& B. 246、“123123”&&&C.& 123123、“123123”&&& D.“123123”、“123123”
17、在程序运行过程中要改变文本框中字体的大小，使用不正确的语句是（ 18 ）。A． TextBox1.Font=New System.Drawing.Font ("宋体", 14.0!, Drawing.FontStyle.Bold)B． TextBox1.Font=New System.Drawing.Font ("宋体", 16.0!)C． TextBox1.Font=New System.Drawing.Size (18.0!)D． TextBox1.Font= New Font("宋体", 14.0!)
18、要使文本框成为密码输入框，一般应修改文本框的（ 19 ）属性。A．PasswordChar属性和MaxLength属性，并且 MultiLine属性值只能为False。B．PasswordChar属性和MaxLength属性，并且Lines属性值只能为False。C．只修改PasswordChar属性值就可以了,其它属性可以不修改。D．PasswordChar属性和MaxLength属性， MultiLine属性值可以为True。
19、向列表框中填加一个新项目,正确的语句是（ 20）。A． ListBox1.Items.Add (“How are You?”)B． ListBox1.Items.Insert (“How are You?”)C． ListBox1.Items.Add (2,“How are You?”)D． ListBox1.Items.Insert (2,“How are You?”)
三、判断下列程序的运行结果（共20分，每题5分）1、窗体上有一个名为Button1的命令按钮和一个标签框，然后编写如下事件过程：Private Overloads Sub Button1_Click(ByVal sender As System.Object, ByVal e As_&&&&&&&&&&&&&&&&&&&&&&&&&&&& System.EventArgs) Handles Button1.Click&&&&&&& Dim num As Integer&&&&&&& num = 1&&&&&&& Do Until num & 6&&&&&&&&&&& Label1.Text = num&&&&&&&&&&& num = num + 2.4&&&&&&& LoopEnd Sub程序运行后，单击命令按钮，则在标签框上显示的内容是 (& 1& )。A.& 5.8&&&&&&& B.& 5&&&&C.& 7&&&&&&&&& D. 无数据输出
2、以下能够正确计算5!的程序是（& 2& ） 。A.&&&Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I & N&&&&&&& Label1.Text = XEnd SubB.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1 : I = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I & N&&&&&&& Label1.Text = XEnd SubC.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1 : I = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I &= N&&&&&&& Label1.Text = XEnd SubD.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim N As Integer&&&&&&& Dim X As Integer&&&&&&& Dim I As Integer&&&&&&& N = 5 : X = 1 : I = 1&&&&&&& Do&&&&&&&&&&& X = X * I : I = I + 1&&&&&&& Loop While I & N&&&&&&& Label1.Text = XEnd Sub3、窗体中有一个名称为Button1的命令按钮，和一个Label1控件对象，编写如下事件过程：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim n As String, x, i, j As Integer&&&&&&& x = 0&&&&&&& n = InputBox("请输入一个大于1的整数", "输入框")&&&&&&& For i = 1 To CInt(n)&&&&&&&&&&& For j = 1 To i&&&&&&&&&&&&&&& x = x + 1&&&&&&&&&&& Next j&&&&&&& Next i&&&&&&& Label1.Text = CStr(x)End Sub程序运行后，单击命令按钮，如果输入3，则在Label1显示的内容是&& (& 3& )&& 。A.& 3&&& B.&& 4&&&& C.& 5&&&& D.& 6
4、在窗体上放入一个名称为Button1命令按钮和两个名称分别为TextBox1、TextBox2两个文本框，然后编写如下事件过程：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Dim n, x As Integer&&&&&&& n = CInt(TextBox1.Text)&&&&&&& Select Case n&&&&&&&&&&& Case 1 To 20&&&&&&&&&&&&&&& x = 10&&&&&&&&&&& Case 2, 4, 6&&&&&&&&&&&&&&& x = 20&&&&&&&&&&& Case Is & 10&&&&&&&&&&&&&&& x = 30&&&&&&&&&&& Case 10&&&&&&&&&&&&&&& x = 40&&&&&&& End Select&&&&&&& TextBox2.Text = xEnd Sub程序运行后，在文本框TextBox1中输入10，然后单击命令按钮，则在TextBox2中显示的内容是（& 4& ） 。A. 10&& B.& 20&&& C.& 30&&&& D.& 40
四、填空（共20分，每空4分）1、编程实现以下功能：若输入的用户名不是大写或小写的“user”，则信息框显示“请重新输入用户名！”；若用户名输入正确而输入的密码不是“123” ，则信息框显示“请重新输入密码！”；若输入的次数超过3次，则退出。请完成“确认”按钮单击事件的程序编写。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Static num As Integer, username As String&&&&&&& username = "user"&&&&&&& num = num + 1&&&&&&& If& （& 1& ）&&&& Then&&&&&&&&&&& MsgBox("请重新输入用户名！")&&&&&&& ElseIf& （& 2&& ） Then&&&&&&&&&&& MsgBox("请重新输入密码！")&&&&&&& Else&&&&&&&&&&& If num = 3 Then End&&&&&&&&&&& MsgBox("欢迎进入!")&&&&&&& End IfEnd Sub2、要实现文本框中字体大小为20号字、宋体，显示“欢迎！”并闪烁：每隔100ms颜色变为绿色，每隔150ms颜色变为红色，请编写“闪烁”按钮的单击事件程序和定时器Timer的管理程序。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& （& 3& ）&&&&&&& TextBox1.Text = "欢迎！"&&&&&&& Timer1.Enabled = True&&&&&&& Timer2.Enabled = TrueEnd Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick&&&&&&& （& 4& ）End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick&&&&&&& （& 5& ）End Sub
五、判断程序的运行结果（共10分，每题5分）1、窗体上有两个标签Label1和Label2，还有一个按钮Button1。应用程序运行时，单击Button1，预测以下代码的输出：
Public Class Form1Inherits System.Windows.Forms.FormDim J As Integer& Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& J = Item_Status("I60", 90)&&&&&&& Label2.Text = "The units sold is: " & J& End Sub
& Public Function Item_Status(ByVal ItemCode As String, ByVal Amount As Single) As Integer&&&&&&& Amount = Amount + 90&&&&&&& Label1.Text = "For the Item Code: " & ItemCode&&&&&&& Return Amount& End FunctionEnd Class
2、窗体Form1上有一个标签Label1和一个按钮Button1。以下代码被添加至Form1的Code Editor窗口中。运行时单击Button1将会有什么结果？
Public Class Form1&&& Inherits System.Windows.Forms.FormDim Monthly_Salary As Integer&&& Dim Annual_Salary As Integer = 40000&&& Dim months As Integer = 12&&& Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&&&&&&& Monthly_Salary = Calculate_Average(Annual_Salary, months)&&&&&&& Label1.Text = "The salary earned per month is: " & Monthly_Salary&&& End Sub
&&& Public Function Calculate_Average(ByVal asalary As Integer, ByVal mnths As Integer) As Integer&&&&&&& asalary = asalary \ mnths&&&&&&& Return asalaryEnd FunctionEnd ClassVB.NET笔试模拟考试题3答案一、概念题（20分，每题2分）1、什么是.NET框架？答： .NET框架是为了方便应用程序开发而设计的新型平台。.NET有两个主要组成部分，通用语言运行时和.NET类库。通用语言运行时用来管理应用程序代码，它支持诸如内存管理和线程管理等服务。.NET类库是用于应用程序开发的可重用类的集合。2、 .NET框架在什么平台上运行？答：.NET框架可运行于Windows NT、 Windows 2000、Windows 9x和Windows ME。3、 .NET框架支持何种编程语言？答：任何语言均可使用.NET框架。当前，你可用多种语言编写.NET程序，例如C++、Visual Basic .NET、JScript和C#。一些第三方语言将来也可用于开发.NET框架应用程序。这些语言包括COBOL、Eiffel、Perl、Python和Smalltalk。4、什么是Visual Basic .NET？答： Visual Basic .NET是最新版的Visual Basic，它可以方便地创建Web和n层的应用程序。它支持多种功能，诸如Windows和Web窗体，用于数据库连接的ADO.NET，改善的类型安全性，面向对象功能，以及可视化继承，从而协助你创建和部署可扩展Web站点。5、“类”包含的要素有哪些？“类”的特性有哪些？答：“类”包含的要素有：属性（Properties）、方法（Methods）、事件（Events）。&&& “类”的特性有：抽象性、封装性、继承性、多态性。6、简述VB.NET中类与对象的概念。答：所谓“类”就是描述一系列实体的共同特征的一个概念，它是一个描述并且是一个抽象的描述。“对象”是“类”的可用“实例”，所以创建对象的动作就称为“类的实例化”。7、简述重载与重写的差异？答：重载、重写是很容易混淆的类似概念。虽然所有这两种技术都使您得以创建同名的成员，但它们之间有一些重要的差异：&&重载的成员用于提供属性或方法的不同版本，这些版本具有相同名称但是接受不同数量的参数或者接受不同数据类型的参数。l&&重写的属性和方法用于替换在派生类中不适合继承的属性或方法。重写的成员必须接受同一数据类型和参数数量。派生类继承重写的成员。l8、简述.NET数据提供程序的四个核心类答：&类&描述XxxConnection&建立与特定数据源的连接。例如，SqlConnection类连接到SQL Server数据源XxxCommand&对数据源执行命令。例如，SqlCommand类能在SQL Server数据源中执行存储过程和SQL语句XxxDataReader&从数据源中读取只向前的且只读的数据流。例如，SqlDataReader类可以从SQl Server数据源的表中读取行。通过XxxCommand类的ExecuteReader方法返回的结果集通常与Select SQL语句的结果一样XxxDataAdapter&用XxxDataAdapter对象填充DataSet，并解析数据源的更新。例如，SqlDataAdapter类能过来DataSet和SQL Server数据源的后台数据之间的交互9、简述ASP.NET的工作原理。答：可以将ASP.NET页面简单地看成一般的HTML页面，页面上包含标记有特殊功能的段。ASP.NET模块分析ASPX文件的内容，并将文件内容分解成单独的命令以建立代码的整体结构。完成此工作后，ASP.NET模块将各命令放置到预定义的类中。然后这个类被用来定义一个特殊的ASP.NET Page对象。该对象要完成的任务之一就是生成HTML流，这些HTML流可以返回到IIS，再从IIS返回到客户端。10、简述ASP.NET中REQUEST对象和RESPONSE对象的用途。答：REQUEST对象：每次当客户从Web服务器请求一个页面时，Web服务器就发送一个响应。Response 对象是HttpResponse类的一个实例，它被用来管理服务器返回给客户的响应。该对象的一个最常见的应用方式就是使用Write方法将变量的内容或其他HTML代码返回给客户。Request对象主要的功能是从客户端得到数据，常用的3种取得数据的方法是Request.Form、Request.QueryString、Request，第3种是前两种的一个缩写，可以取代前两种情况。而前两种主要对应的是Form提交时的两种不同的提交方法，分别是Post方法和Get方法。
二、选择题（30分，每题1.5分）答案：（1）C& （2）D& （3）A& （4）C& （5）D& （6）B& （7）D& （8）B& （9）C（10）D& （11）C& （12）A& （13）B& （14）A& （15）B& （16）C& （17）A&（18）C& （19）C& （20）A&&
三、判断下列程序的运行结果（共20分，每题5分）答案：1、B& 2、C& 3、D& 4、A
四、填空（共20分，每空4分）答案：（1）&TextBox1.Text && username.ToUpper And num & 3（2）&TextBox2.Text && "123" And num & 3（3）&TextBox1.Font = New System.Drawing.Font("宋体", 20.0!)（4）&TextBox1.ForeColor = Color.Green（5）&TextBox1.ForeColor = Color.Red
五、判断程序的运行结果（共10分，每题5分）1、窗体上有两个标签Label1和Label2，还有一个按钮Button1。应用程序运行时，单击Button1，预测以下代码的输出：答案：Label1显示：For the Item Code：I60Label2显示：The units sold is：1802、窗体Form1上有一个标签Label1和一个按钮Button1。以下代码被添加至Form1的Code Editor窗口中。运行时单击Button1将会有什么结果？答案：Label1显示：The salary earned per month is：3333}
我要回帖
更多关于 vb 字节数组转字符串 的文章
更多推荐
- ·百度惠生活如何入驻是不是没有了，怎么找不到了呢？
- ·百度惠生活如何入驻取消了吗？
- ·王红亮大二网络营销实训报告践研究
- ·户内各个功能室内空间功能区划分尺度由哪三个部分组成？
- ·抖店团购达人小程序和团长联系软件推荐？
- ·中国足球竞彩网竞彩网有谁能帮帮我？
- ·发微信红包2.22什么意思二二块一角啥意思
- ·现在去新加坡推拿可行买苹果设备是否可行，买电脑回来可以直接带回来吗价格大
- ·孕夫爱回家全集百度云百度云
- ·滴滴顺风车优惠券领取跨城券显示无法使用
- ·自己家大姐在做面膜 贴针灸面膜是什么我在微信上怎么推荐说呢?
- ·电信有身高157的女孩子矮吗门子吗
- ·话费怎么充手机话费充值微信红包包
- ·广西联通在广州联通空中充分公司有分公司吗
- ·苹果6苹果5wifi信号差有问题可以修复吗怎么修复
- ·台币图片是新台币面值及图片么
- ·夏普夏普的电视机怎么样开机后显示配置入口请输入密码，可是并没有设置过密码，输入无线密码也不对
- ·下了个 流量多多流量交换系统 订了个20元的流量 1g 结果查话费的时候 话费扣了35块多
- ·win10电脑带耳机有声音不带win10的耳机没有声音音怎么解决
- ·is无线联通机顶盒无线连接显示网洛环境差是怎么回事
- ·求vb大神写一个vb定义字符串数组数组的程序题，谢谢
- ·怎样用微信在项城阳光风景舞蹈学校搜查人给人点赞
- ·http://pan.sobaidupan.com/mbox/homepage?short=bn74uhp
- ·天津电视台足球仲夏夜20160610
- ·吃两棕子要运动几蛙泳一小时消耗的热量才能消耗
- ·登山极剧烈运动后小腿抽筋脚会什么抽筋
- ·福州市有没有南宁超越健身年卡团购
- ·足球竞猜足球比分直播有谁了解吗？
- ·打麻将高手打牌思路必赢咒语
- ·彪马鞋码比耐克大么的鞋码欧码只有半码像35.5 36.5 37.5 没有整数码像36 37 38吗？耐克的欧
- ·无锡市山北哪里有儿童学游泳的最佳年龄地方?最好在山北地区，有去专业的游泳
- ·丹东籍篮球运动员看球球吧去哪里
- ·网上卖的阿迪达斯鞋子尺码表是真的吗
- ·左胳膊肌肉外侧长出像肌肉一样的，硬硬的没有疼痛可是只有一个胳膊肌肉有？
- ·罗马尼亚代购哪些划算赢半球怎么算
- ·女生篮球球服大小球有什么玩的项目呢？
