vb習(xí)題參考答案

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控件限制用戶輸入字符長(zhǎng)度的屬性為:CCharacterCasingB. LengthC. MaxLengthD. AutoSizechangeNamefirstName的值是什么？ ADim firstName as Stri

2、ng = “Tom”Dim secondName as String = firstNamesecondName &= “Jerry”A. TomB. JerryC. Tom JerryD. Tom & Jerry執(zhí)行下列語句后，控制臺(tái)輸出什么結(jié)果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、下），其訪問權(quán)限為CPublic Module MyModuleSub ShowHelpInfo(String info) MessageBox.Show(info)End SubEnd ModuleA. MyModule 中可以使用 B. 在本項(xiàng)目中可以使用C. 在本解決方案中可以使用 D. 在派生模塊中可以使用下列程序在控制臺(tái)上的輸出結(jié)果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 中執(zhí)行完語句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在調(diào)試VB.NET 中，可以使用Visual Studio.NET 量？比如過程的所有局部變量。B局部變量窗口 B.監(jiān)視窗口 C.快速監(jiān)視窗口 D.自動(dòng)窗口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)求數(shù)組 ar 的下標(biāo)上限ar(i) = x Nextx

6、= 0 End 則執(zhí)行下列語句后，數(shù)組 arr 和變量 data 中的內(nèi)容是什么？ 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執(zhí)行下列語句后，變量x的值為B Dim x as Integer = 0 x = 3/2A. 0B. 1C. 2D. 3下列布爾表達(dá)式的值為A。True and True Xor T

7、rue and FalseTrueB. FalseC. OrElseD. AndAlso下列表達(dá)式的值為A。True and 100+10*3*.CPP;C+頭文件-*.H”TextBoxPasswordChar CBoolean 類型，表示是否使用號(hào)隱藏輸入的信息String 類型，表示輸入的隱藏信息的實(shí)際內(nèi)容Char 類型，表示是用哪個(gè)字符隱藏輸入的信息該屬性在VB.NET 中未使用為了使TextBox的ScrollBar 真正起作用，應(yīng)該將TextBox的“自動(dòng)換行”功能取消。取消該功能，需將TextBox控件的屬性設(shè)置為False? CScrollBarsB. AcceptReturn

8、sC. WordWrapD. AutoSizeMasked Edit B1$999999 3 ,0310元取整，即個(gè)位必須為 0；4、小數(shù)部分保留 2 位,必須為 0 。金額數(shù)字的例子如：123,450.00。根據(jù)該要求，則控件的Mask屬性應(yīng)A. $999,99#.00B. $999,990.00C. $#,#0.00D. $#,#9.00AIsNumericB. IsNothingC. IsIntegerD. IsNumberMyClass的定義如下： Public Class MyClass1Private data as String則關(guān)鍵字Private 在類的定義中的作用是：dat

9、a 只在本模塊內(nèi)部可以使用；data 僅在類MyClass的成員方法中可以訪問；data 僅僅可在類以及子類的成員方法中訪問MyClass僅在本模塊中可以使用在VB.NET 中，一般使用關(guān)鍵字A來標(biāo)示重載方法。OverloadsB. OverridesC. ShadowsD. Public對(duì)于VB.NET 語句 Speed = Miles/Hours(其中Speed、Miles、Hours Double 值)，當(dāng)Hours=0 時(shí)， 該語句將引發(fā) D語法錯(cuò)誤 B. 編譯錯(cuò)誤 C. 邏輯錯(cuò)誤 D. 運(yùn)行時(shí)錯(cuò)誤當(dāng)VB.NET 程序出現(xiàn)邏輯錯(cuò)誤后，可以使用C工具來隔離并改正代碼中的邏輯錯(cuò)誤？命令行下

10、的Debug.exeB. 匯編工具C. Visual Studio.NET 的調(diào)試工具 D. 任何一種語言的調(diào)試工具VB.NETC語法錯(cuò)誤 B. 運(yùn)行時(shí)錯(cuò)誤 C. 邏輯錯(cuò)誤 D. 不明錯(cuò)誤在調(diào)試VB.NET 程序時(shí)，Visual Studio.NET 的“自動(dòng)窗口”可以查看當(dāng)前行語句以及其前、后各C 語句中的變量，并可以修改其值。1 行 B. 2 行 C. 3 D. 4 行Win 窗體設(shè)計(jì)時(shí)應(yīng)該為工具欄B事件編寫事件處理程序以響應(yīng)用戶點(diǎn)擊工具欄的按鈕？ClickB. ButtonClickC. KeyDownD. MouseDownWin窗體的工具欄對(duì)象為ToolBar1。為了在工具欄中添加新

11、的按鈕，應(yīng)該在對(duì)象ToolBar1 的“屬性”圖下編輯ToolBar1 C屬性AppearanceB. ImageListC. ButtonsD. ShowToolTipsWin ToolBar1。為了將工具欄中的所有按鈕用圖形顯示，則應(yīng)該在對(duì)象ToolBar1的“屬性”視圖下編輯ToolBar1 的B屬性AppearanceB. ImageListC. ButtonsD. ShowToolTips若不準(zhǔn)備使用狀態(tài)欄的窗格顯示信息，則應(yīng)該A屬性設(shè)置為False。ShowPanelsB. PanelsC. EnabledD. Visible如要實(shí)現(xiàn)菜單功能，應(yīng)向菜單項(xiàng)B事件添加代碼？Comman

12、dB. ClickC. PopupD. Select數(shù)學(xué)函數(shù)式Sin25寫成VB.NET表達(dá)式是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 的非負(fù)數(shù)”，用VB.NET 表達(dá)式表示正確的是C。A0 x100B0=x100 C0=x And x 00D0=x Or VB.NET 中，修改了主窗體的某個(gè)屬性后，發(fā)現(xiàn)無法啟動(dòng)程序，原因可能是C。caption屬性ismainform屬性修改了主窗體的name屬性main 函數(shù)

13、在模塊MyModule 中定義的過程ShowHelpInfo，其訪問權(quán)限為C 。Public Module MyModuleSub ShowHelpInfo(String info) MessageBoxShow(info)End SubEnd Module僅在MyModule 中可以使用B在本項(xiàng)目中可以使用C在本解決方案中可以使用D在派生模塊中可以使39在VB.NET 中，無返回值的過程稱為A過程。ASubBFunctionCPropertyDmain二、分析題已知數(shù)組arr 進(jìn)行以下定義：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)求數(shù)組ar 的下標(biāo)上限ar(i) = x Nextx = 0 End Sub則執(zhí)行下列語句后，數(shù)組arr 和變量data 中的內(nèi)容是 (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。在窗體上放入一個(gè)名稱為Button1 命令按鈕和兩個(gè)名稱分別為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 界面對(duì)象屬性設(shè)置FormNameForm1Text已知兩點(diǎn)計(jì)算兩點(diǎn)距離和方位角TextBox1NameTextBox1TextTextBox2NameTextBoxTextTextBox3NameTextBox3TextTextBox4NameTextBox4TextTextBox5NameTextBox5TextBox6NameTextBox6TextLabel1NameLabel1Textx1Label2NameLabel2Texty

17、1Label3NameLabel3Textx2Label4NameLabel4Texty2Label5NameLabel5Text距離S=Label6NameLabel6ButtonTextName方位角a=Button1Text計(jì)算代碼：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此題角度為弧度，還可以改進(jìn)1.界面定義常量求縱坐標(biāo)增量求橫坐標(biāo)增量計(jì)算象限角第一象限第二象限第三象限第四象限顯示坐標(biāo)方位角代碼:Public Class Form1Private Sub Button1_Click(ByVal sender As System.Obj