vb习题参考答案

1、一、选择题1.VB.NET ”this is a test”ch假ch） Bch = Char(Mid(“this is a test”,0,1)ch = CChar(Mid(“this is a test”,0,1)ch = Char(Mid(“this is a test”,1,1)ch = CChar(Mid(“this is a test”,1,1)Textbox控件限制用户输入字符长度的属性为:CCharacterCasingB. LengthC. MaxLengthD. AutoSizechangeNamefirstName的值是什么？ ADim firstName as Stri

2、ng = “Tom”Dim secondName as String = firstNamesecondName &= “Jerry”A. TomB. JerryC. Tom JerryD. Tom & Jerry执行下列语句后，控制台输出什么结果A Dim res as Integer = CType(“123.45”,Integer) Console.Writeln(res)A. 123B. 12345C. 0D. res在VB.NET中，无返回值的过程称为A过程SubB. FunctionC. PropertyD. Main在模块MyModule 中定义的过程ShowHelpInfo（如

3、下），其访问权限为CPublic Module MyModuleSub ShowHelpInfo(String info) MessageBox.Show(info)End SubEnd ModuleA. MyModule 中可以使用 B. 在本项目中可以使用C. 在本解决方案中可以使用 D. 在派生模块中可以使用下列程序在控制台上的输出结果B。Public Function MyFunc(i as Integer) If i 0 ThenReturn 100 ElseReturn helloEnd IfEnd FunctionPublic Shared Sub Dim x As Employ

4、eeConsole.WriteLine(TypeName(x.MyFunc(-1) & , & TypeName(x.MyFunc(1) End SubA. Integer,StringB. String,IntegerC. Object,ObjectD. String,String下列主过程Main 中执行完语句x.MyFunc(i)后，局部变量i 的值为C。Class testPublic Sub MyFunc(ByVal i As Integer) i = i * 2End Sub End Class Sub Main()Dim x As new testDim i As Integer

5、 = 100 x.MyFunc(i)End Sub02C. 100D. 200在调试VB.NET 中，可以使用Visual Studio.NET 量？比如过程的所有局部变量。B局部变量窗口 B.监视窗口 C.快速监视窗口 D.自动窗口arr Dim arr() as Integer = 1,1,1,1,1过程 MySub 定义如下：Sub MySub(ByVal ar() As Integer, ByRef x As Integer) Dim i As IntegerFor i = 0 To UBound(ar) 注：UBound(ar)求数组 ar 的下标上限ar(i) = x Nextx

6、= 0 End 则执行下列语句后，数组 arr 和变量 data 中的内容是什么？ CDim data As Integer = 2 MySub(arr, data)A. arr=2,2,2,2,2 data=2B. arr=1,1,1,1,1 data=2C. arr=2,2,2,2,2 data=0D. arr=1,1,1,1,1 data=0CInt(True)的值为FalseB. TrueC. 1D. -1执行下列语句后，变量x的值为B Dim x as Integer = 0 x = 3/2A. 0B. 1C. 2D. 3下列布尔表达式的值为A。True and True Xor T

7、rue and FalseTrueB. FalseC. OrElseD. AndAlso下列表达式的值为A。True and 100+10*3*.CPP;C+头文件-*.H”TextBoxPasswordChar CBoolean 类型，表示是否使用号隐藏输入的信息String 类型，表示输入的隐藏信息的实际内容Char 类型，表示是用哪个字符隐藏输入的信息该属性在VB.NET 中未使用为了使TextBox的ScrollBar 真正起作用，应该将TextBox的“自动换行”功能取消。取消该功能，需将TextBox控件的属性设置为False? CScrollBarsB. AcceptReturn

8、sC. WordWrapD. AutoSizeMasked Edit B1$999999 3 ,0310元取整，即个位必须为 0；4、小数部分保留 2 位,必须为 0 。金额数字的例子如：123,450.00。根据该要求，则控件的Mask属性应A. $999,99#.00B. $999,990.00C. $#,#0.00D. $#,#9.00AIsNumericB. IsNothingC. IsIntegerD. IsNumberMyClass的定义如下： Public Class MyClass1Private data as String则关键字Private 在类的定义中的作用是：dat

9、a 只在本模块内部可以使用；data 仅在类MyClass的成员方法中可以访问；data 仅仅可在类以及子类的成员方法中访问MyClass仅在本模块中可以使用在VB.NET 中，一般使用关键字A来标示重载方法。OverloadsB. OverridesC. ShadowsD. Public对于VB.NET 语句 Speed = Miles/Hours(其中Speed、Miles、Hours Double 值)，当Hours=0 时， 该语句将引发 D语法错误 B. 编译错误 C. 逻辑错误 D. 运行时错误当VB.NET 程序出现逻辑错误后，可以使用C工具来隔离并改正代码中的逻辑错误？命令行下

10、的Debug.exeB. 汇编工具C. Visual Studio.NET 的调试工具 D. 任何一种语言的调试工具VB.NETC语法错误 B. 运行时错误 C. 逻辑错误 D. 不明错误在调试VB.NET 程序时，Visual Studio.NET 的“自动窗口”可以查看当前行语句以及其前、后各C 语句中的变量，并可以修改其值。1 行 B. 2 行 C. 3 D. 4 行Win 窗体设计时应该为工具栏B事件编写事件处理程序以响应用户点击工具栏的按钮？ClickB. ButtonClickC. KeyDownD. MouseDownWin窗体的工具栏对象为ToolBar1。为了在工具栏中添加新

11、的按钮，应该在对象ToolBar1 的“属性”图下编辑ToolBar1 C属性AppearanceB. ImageListC. ButtonsD. ShowToolTipsWin ToolBar1。为了将工具栏中的所有按钮用图形显示，则应该在对象ToolBar1的“属性”视图下编辑ToolBar1 的B属性AppearanceB. ImageListC. ButtonsD. ShowToolTips若不准备使用状态栏的窗格显示信息，则应该A属性设置为False。ShowPanelsB. PanelsC. EnabledD. Visible如要实现菜单功能，应向菜单项B事件添加代码？Comman

12、dB. ClickC. PopupD. Select数学函数式Sin25写成VB.NET表达式是D。Asin25Bsin(25)Csin(25)35下列哪组语句可以将变量、B 的值互换B。AA=B:B=ABA=A+B:B=AB:A=A+B CC=A:A=B:B=CDA=(A+B)/2:B=(AB)/2“x是小于100 的非负数”，用VB.NET 表达式表示正确的是C。A0 x100B0=x100 C0=x And x 00D0=x Or VB.NET 中，修改了主窗体的某个属性后，发现无法启动程序，原因可能是C。caption属性ismainform属性修改了主窗体的name属性main 函数

13、在模块MyModule 中定义的过程ShowHelpInfo，其访问权限为C 。Public Module MyModuleSub ShowHelpInfo(String info) MessageBoxShow(info)End SubEnd Module仅在MyModule 中可以使用B在本项目中可以使用C在本解决方案中可以使用D在派生模块中可以使39在VB.NET 中，无返回值的过程称为A过程。ASubBFunctionCPropertyDmain二、分析题已知数组arr 进行以下定义：Dim arr() as Integer = 1,1,1,1,1过程 MySub 定义如下：Sub M

14、ySub(ByVal ar() As Integer, ByRef x As Integer) Dim i As IntegerFor i = 0 To UBound(ar) 注：UBound(ar)求数组ar 的下标上限ar(i) = x Nextx = 0 End Sub则执行下列语句后，数组arr 和变量data 中的内容是 (arr（2，2，2，2，2）data=0)。Dim data As Integer = 2 MySub(arr, data)以下代码：x=Microsoft visualbasic left( “ gbc13”,1)&Mid( “ pool”,2,2)Micros

15、oftvisualbasicright(“god”,1)变量x 等gold。在窗体上放入一个名称为Button1 命令按钮和两个名称分别为TextBox1TextBox2 文本框，然后编写如下事件过程：PrivateSubButton1_Click(ByValsenderAsSystem Object,ByValeSystemEventArgs) Handles Button1ClickDim n, x As Integern = CInt(TextBox1Text) Select Case nCase 1 To 20 x = 10Case 2, 4, 6x = 20Case Is 6 Lab

16、el1Text = num num = num + 24 LoopEnd Sub。三、综合题用户界面图，并写出主要代码。用户界面图，并写出主要代码。（略）2 界面对象属性设置FormNameForm1Text已知两点计算两点距离和方位角TextBox1NameTextBox1TextTextBox2NameTextBoxTextTextBox3NameTextBox3TextTextBox4NameTextBox4TextTextBox5NameTextBox5TextBox6NameTextBox6TextLabel1NameLabel1Textx1Label2NameLabel2Texty

17、1Label3NameLabel3Textx2Label4NameLabel4Texty2Label5NameLabel5Text距离S=Label6NameLabel6ButtonTextName方位角a=Button1Text计算代码：Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x1, y1, x2, y2, dx, dy, r,SAsDouble定义变量Dim pi = 3.1

18、415926x1 = y1 = x2 = y2 = dx = x1 - x2dy = y1 - y2r = Math.Atan(Math.Abs(dy) / Math.Abs(dx) S = Math.Sqrt(x1 - x2) 2 + (y1 - y2) 2) TextBox5.Text = SIf dx 0 And dy 0 Then TextBox6.Text = rElseIf dx 0 Then TextBox6.Text = pi - rElseIf dx 0 And dy 0 And dy 0 Then TextBox6.Text = 2 * pi - rEnd IfEnd Sub End Class此题角度为弧度，还可以改进1.界面定义常量求纵坐标增量求横坐标增量计算象限角第一象限第二象限第三象限第四象限显示坐标方位角代码:Public Class Form1Private Sub Button1_Click(ByVal sender As System.Obj