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