求陜西師范大學(xué)vb上機(jī)考試考試題

選擇題

成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),三山企業(yè)網(wǎng)站建設(shè),三山品牌網(wǎng)站建設(shè),網(wǎng)站定制,三山網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷,網(wǎng)絡(luò)優(yōu)化,三山網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

1 下面4個(gè)選項(xiàng)中屬于字符型數(shù)據(jù)的是( )

A "Hello" B Hello' C Hello D #Hello

2 初學(xué)者、業(yè)余愛好者在開發(fā)基于windows的應(yīng)用程序時(shí)適宜使用的開發(fā)工具是（）。

A Visual Studio 2005 Express Edition

B Visual Studio 2005 Team Test Edition

C Visual Studio 2005 Team Developer Edition

D Visual Studio 2005 Team Architect Edition

3 若dim a() as integer={1,2,3,4,5},則a.length的值（）

A 是4 B 是5 C Null D 是6

4 定義字符串變量：

Dim strInput As String=“VisualBasic2005”

Dim strSubStr1 As String

計(jì)算子串：strSubStr1 = strInput.Remove(2, 4)

則strInput的值為：

A VisualBasic B ViBasic2005 C sual D alBa

5 要使TextBox控件能夠顯示多行，應(yīng)設(shè)置（）屬性為True

A VisibleB Enabled C MultiLine D Text

6 下列賦值語(yǔ)句正確的是( )

A A=B+CB –B=A C 2=A+B D B+C=A

7 當(dāng)在文本框中輸入“ABCD”時(shí)，標(biāo)簽上顯示的是（）。

Sub TextBox1_TextChanged(……) Handles TextBox1.TextChanged

Label1.Text =TextBox1.Text

End Sub

A ABCD B A C AABABCABCD

B

C

D D A

Ab

ABC

ABCD

8 Sub過程與Function過程最根本的區(qū)別是()

A Function過程可以有形參，Sub過程不可以

B Sub過程可以直接使用過程名調(diào)用，而Function過程不可以

C Sub過程不能返回值，而Function過程能返回值

D 兩種過程的參數(shù)傳遞方式不同

9 對(duì)下列程序段，說法正確的是()###btnQuit.SetBounds(10,80,200,50)

A btnQuit對(duì)象的左邊界距窗體的左邊界是10像素，上邊界距窗體的上邊界為80像素

B btnQuit對(duì)象的左邊界距屏幕的左邊界為200像素，上邊界距屏幕的上邊界為50像素

C btnQuit對(duì)象的寬度為200像素，高度為80像素

D btnQuit對(duì)象的高度為80像素，寬度為200像素

10 Dim str1,str2 As String ### str1="北京奧運(yùn)2008" ### str2=str1.Substring(0,4) ### 那么str2的值為（ ）

A 北京 B 北京奧運(yùn) C 奧運(yùn) D 是2008

11 按照匈牙利表示法，前綴為lbl表示哪一個(gè)控件。

A Button B Label C ListBox D TextBox

12 數(shù)學(xué)關(guān)系式3x10表示成正確的vb.net表達(dá)式為

A 3=x=10 B 3x and x10 C x3 or x10 D 3x x10

13 要使文本框中的文字不能修改，應(yīng)對(duì)（）屬性進(jìn)行設(shè)置。

A Locked B Visible C Enable D ReadOnly

14 按照匈牙利表示法，TextBox控件的前綴是（）

A btn B lst C mnu D txt

15 調(diào)用子過程后可以通過形參來改變兩個(gè)實(shí)參值的語(yǔ)句是（）。

A Sub f1(ByVal n as integer,ByVal m as Integer)

B Sub f2(ByRef n as integer,ByVal m as Integer)

C Sub f3(ByRef n as integer,ByRef m as Integer)

D Sub f4(ByVal n as integer,ByRef m as Integer)

16 數(shù)學(xué)關(guān)系式x10或者x0表示成正確的vb.net表達(dá)式為

A 10x0 B x0 and x10 C x0 or x10 D 0x x10

17 可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是( )

A Ltrim B Rtrim C Trim D Mid

18 以下變量名是正確的（）

A 是_a1 B 是123a C 是For D 是as

19 下面程序求兩個(gè)數(shù)中的小數(shù)（）不正確

A min1=iif(xy,x,y)

B if xy then ###min1=x###else###min1=y###end

C ifmin1=IIF(xy,y,x)

D if yx then ###min1=y ###end if###min1=x

20 下列程序段的執(zhí)行后，變量a,k的值分別為

Dim a,k as integer

a=5

For k=1 To 0

a=a * k

Next k

A -1 6 B -1 16 C 1 5 D 11 21

AABBC ACCAB BBDDC CCADC

選擇題百度文庫(kù)中還有好多

操作題

1．請(qǐng)編寫函數(shù)fun()，其功能是：計(jì)算2-500之間（包括2，500）素?cái)?shù)的個(gè)數(shù),并將其作為返回值。

注意：不得改動(dòng)程序已有的任何代碼。編寫完成后至少執(zhí)行一次你的程序以驗(yàn)證正確性（運(yùn)行后點(diǎn)擊“計(jì)算”按鈕）。

2．請(qǐng)編寫函數(shù)fun(a)，其函數(shù)功能是：計(jì)算a的階乘，并返回結(jié)果。

注意：不得改動(dòng)程序已有的任何代碼。編寫完成后至少執(zhí)行一次你的程序以驗(yàn)證正確性（運(yùn)行后點(diǎn)擊“計(jì)算”按鈕）

3．．請(qǐng)編寫函數(shù)f(x)，其功能是：判斷一個(gè)大于或等于3的正整數(shù)是否是素?cái)?shù)，

如果是素?cái)?shù)函數(shù)返回1，否則返回0。例如：輸入37，函數(shù)返回1；輸入40，函數(shù)返回0。

注意：不得改動(dòng)程序已有的任何代碼。編寫完成后至少執(zhí)行一次你的程序以驗(yàn)證正確性（運(yùn)行后點(diǎn)擊“判斷”按鈕）。

4．請(qǐng)編寫函數(shù)f(a)，其功能是：計(jì)算一個(gè)長(zhǎng)度為5的一維整形數(shù)組a中最大值與最小值的差，并作為函數(shù)的返回值。

例如：從文本框中輸入1 5 8 9 2，差為8。

數(shù)組中的值需要自己在文本框中輸入。

注意：不得改動(dòng)程序已有的任何代碼。編寫完成后至少執(zhí)行一次你的程序以驗(yàn)證正確性（運(yùn)行后點(diǎn)擊“計(jì)算”按鈕）。

vb.net面試題，請(qǐng)大家?guī)兔Γx謝。

如果需要講詳細(xì)一點(diǎn),那就加我QQ531412815

第4題,潛在的錯(cuò)誤,這里的錯(cuò)誤不是常規(guī)錯(cuò)誤,屬于那種只有在運(yùn)行是才知道的錯(cuò)誤:

Catch ex As Exception

MsgBox(ex.StackTrace)

'永遠(yuǎn)不會(huì)查找下面的錯(cuò)誤

Catch ex As ArgumentNullException

MsgBox("Input Test box cannot be null.")

Catch ex As OverflowException

MsgBox("Input Test box 2 cannot be zero!")

Catch ex As FormatException

MsgBox("Input Test box should be numeric format!")

結(jié)構(gòu)化錯(cuò)誤處理永遠(yuǎn)達(dá)不到下面這里,因?yàn)镃atch ex As Exception 已經(jīng)處理了所有錯(cuò)誤.

第5題：

00123

1000 60.50

2000 60.00

3500 59.50

---- -----

6500 60.00

00124

3000 60.50

---- -----

3000 60.50

00125

2000 59.50

1000 58.00

---- -----

3000 58.75

就是按照Ref_ID 分類，有一種方法就是按照Ref_ID 分組，也就是使用SQL語(yǔ)言，不過這里需要該很多，

我就不用了，那么就稍微復(fù)雜一點(diǎn)，使用FIND方法,不過有一點(diǎn)必須注意REF_ID必須排序，因?yàn)閿?shù)據(jù)庫(kù)中

已經(jīng)排好序了，我就不用排了。

Dim rst as ADODB.Recordset

dim refID as string

Rst = GetRecordset

Do While Not rst.EOF

refid=rst(0)

Console.writeline(rst.Fields("Ref_ID")

do

Console.writeline rst.Fields("Qty") vbcrlf rst.Fields("Price"))

rst.MoveNext()

loop while rst(0)=refid

Loop

第6題：就是從一個(gè)集合中取元素輸出的問題

比較簡(jiǎn)單的辦法就是使用遞歸

以下是使用VB的方法(可以移植到VB.NET上,因?yàn)槲覍?duì)VB.NET的數(shù)組到現(xiàn)在還不太會(huì),所以就將就一下)

Dim bUse() As Boolean

Dim lStr() As String * 1

Dim nCount As Byte

-----------------------------------------------------------------------------------

Public Sub Combination(lstStr As String)

Dim i As Byte

Dim j As Byte

Dim StrLen As Byte

StrLen = Len(lstStr)

ReDim bUse(1 To StrLen) As Boolean

ReDim lStr(1 To StrLen) As String * 1

For i = 1 To StrLen

lStr(i) = Mid(lstStr, i, 1)

Next

For i = 1 To StrLen

nCount = i

GoWith StrLen, 1, 0, ""

Next

End Sub

------------------------------------------------------------------------------------

Public Sub GoWith(ECount As Byte, nStart As Byte, Deep As Byte, lastStr As String)

Dim i As Byte

If Deep = nCount Then

Debug.Print lastStr

Exit Sub

End If

For i = nStart To ECount

If Not bUse(i) Then

bUse(i) = True

GoWith ECount, i, Deep + 1, lastStr lStr(i)

bUse(i) = False

End If

Next

End Sub

--------------------------------------------------------------------------------------

Private Sub Form_Load()

Combination "wxyz"

End Sub

--------------------------------------------------------------------------------------

其中GOWITH是真正的遞歸函數(shù),而Combination是用來預(yù)處理字符的

全局變量:

BUSE：用來確定是否使用過這個(gè)元素

lSTR：用來保存字符元素

NCOUNT：用來限制遞歸函數(shù)的深度，換句話說，就是輸出元素組中的元素個(gè)數(shù)

實(shí)際測(cè)試成功，另外我對(duì)前三題很感興趣，希望能夠傳給我

VB.NET程序設(shè)計(jì)題，緊急啊，明天考試了

Public?Class?Form3

Dim?A(19)?As?Integer?'聲明數(shù)組20個(gè)

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

Label1.Text?=?""

Label3.Text?=?""

Randomize()

Dim?i?As?Integer

For?i?=?0?To?UBound(A)

A(i)?=?CInt(Rnd()?*?400?+?100)'隨機(jī)數(shù)100~500

Label1.Text?=?A(i)??"??"

If?(i?+?1)?Mod?5?=?0?Then??'每5個(gè)數(shù)就換行

Label1.Text?=?vbCrLf

End?If

Next

Dim?mina?As?Integer

mina?=?Amin(A)

If?mina??0?Then

Label3.Text?=?"比第一個(gè)數(shù)組元素值大的數(shù)組元素中值最小的是："??mina

Else

Label3.Text?=?"沒有比第一個(gè)數(shù)組元素大數(shù)！"

End?If

End?Sub

Function?Amin(ByVal?Aa()?As?Integer)?As?Integer

Dim?first?As?Integer

Dim?tmpmin?As?Integer

Dim?j,?i?As?Integer

Dim?tmpa()?As?Integer?=?A

first?=?A(0)??'第一個(gè)數(shù)出來

For?j?=?1?To?UBound(tmpa)?’從第二個(gè)數(shù)冒泡

tmpmin?=?tmpa(j)

For?i?=?j?To?UBound(tmpa)

If?tmpa(i)??tmpmin?Then?'從小數(shù)到大數(shù)冒泡

tmpa(j)?=?tmpa(i)

tmpa(i)?=?tmpmin

tmpmin?=?tmpa(j)

End?If

Next

Next

For?i?=?0?To?UBound(tmpa)

If?tmpa(i)??first?Then?’從小數(shù)開始比較，如果小比第一個(gè)元數(shù)大就退出

tmpmin?=?tmpa(i)?'?取到比第一個(gè)元數(shù)大的數(shù)

Exit?For

End?If

Next

Return?tmpmin?'返回值

End?Function

End?Class

《vb.net程序設(shè)計(jì)》題目

1.目前.NET開發(fā)環(huán)境提供了那些程序設(shè)計(jì)語(yǔ)言的開發(fā)功能：visual C#和visual basic ，其實(shí)還有J#2.JIT是什么的縮寫：Just-In-Time3.對(duì)象的什么屬性在程序運(yùn)行過程中，只能被引用，不能被修改：不記得了

4.要使某個(gè)控件在程序啟動(dòng)后，能看見，但不能用，應(yīng)使該控件的enabled屬性為：false

5.程序啟動(dòng)后，要使某個(gè)控件獲得焦點(diǎn)，應(yīng)使用該控件的 Focus 方法

6.checkbox控件的 Checked 屬性決定了該控件的狀態(tài)

7.要使textbox控件在程序啟動(dòng)后，只能顯示只定內(nèi)容，不能修改，應(yīng)使readonly屬性值為：true8.滾動(dòng)條控件的 Value 屬性值，反映了滾動(dòng)條滑快的當(dāng)前取值

9.改變窗體的標(biāo)題，應(yīng)修改窗體的 Text 屬性

10.程序運(yùn)行過程中，要向listbox控件中添加一項(xiàng)，應(yīng)該使用 Items.Add 方法

新聞名稱：vb.net考試題的簡(jiǎn)單介紹
網(wǎng)站路徑：http://chinadenli.net/article42/dsipdec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制網(wǎng)站、網(wǎng)頁(yè)設(shè)計(jì)公司、網(wǎng)站內(nèi)鏈、虛擬主機(jī)、品牌網(wǎng)站建設(shè)、網(wǎng)站排名

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)