還有兩道vb.net面試題，請大家幫忙，謝謝。

我很喜歡這種題目

為漢壽等地區用戶提供了全套網頁設計制作服務，及漢壽網站建設行業解決方案。主營業務為網站設計制作、做網站、漢壽網站設計，以傳統方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業、用心的態度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

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

第7題，問題出在兩方面

Public Function CalculateArea(ByVal SideBase As Double, ByVal Height As Double, _ Optional

ByVal AssignToArea As Boolean = False) As Double

Dim Area As Double = (SideBase * Height) / 2

中間的 _ 有問題，應該去掉

還有objShape = CType(objShape, clsTriangle) 有錯誤，不能轉換

注釋掉objShape = CType(objShape, clsTriangle)

刪除_后，得到結果

true

false

-330

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

第8題，就是以acc_grp_cust_tbl表為基礎，查找cust_tbl并輸出

一般的話使用涉及兩個表的話使用SHAPE語句（以SQL為基礎的語句）

雖然兩者使用時差不多，但是理論比較難懂，我這里也不講了，我使用ADO+SQL方法

先說明一下程序中的一個細節，也是問題比較容易忽略的

1400 0 1 2

1500 3 4

1600 5

說明一個問題Cust_id1 Cust_id2 Cust_id3 Cust_id4 字段不是數值，而是類似字符的東西（因為可能是

備注）

定義rsgrp對應acc_grp_cust_tbl ，rscust對應cust_tbl

預先設置好rsgrp和rscust的連接(使用VB的方法，可以移植到VB.NET上）

do until rscust.eof

strline=rscust(0) " "

strSQL="SELECT * FROM CUST_TBL WHERE cust_id='" RSGRP(1) "' OR CUST_ID='" RSGRP(2) "' OR CUST_ID='" RSGRP(3) "' OR CUST_ID='" RSGRP(4) "'"

RSGRP.OPEN STRSQL

if rsgrp.recordcount0 then

rsgrp.movefirst

do until rsgrp.eof

strLine=strline rscust(3) " " rscust(2) "/"

rsgrp.movenext

loop

end if

rscust.close

strline=left(strline ,len(strline)-1)

'去除最后一個"/"

console.writeline(strline)

loop

高分求大學VB(Visual Basic 6.0)的模擬試題,附答案,非常急,496945778@qq.com

一、選擇題（每題2分，共計70分）

1.數據的存儲結構是指____。

A、存儲在外存中的數據

B、數據所占的存儲空間

C、數據在計算機中的順序存儲方式

D、數據的邏輯結構在計算機中的表示

2.下列關于棧的描述中錯誤的是：____。

A、棧是先進后出的線性表

B、棧只能順序存儲

C、棧具有記憶作用

D、對棧的插入與刪除操作中，不需要改變棧底指針

3.對于長度為n的線性表，在最壞情況下，下列各排序法所對應的比較次數中正確的是____。

A、冒泡排序為n/2

B、冒泡排序為n

C、快速排序為n

D、快速排序為n(n-1)/2

4.對長度為n的線性表進行順序查找，在最壞情況下所需要的比較次數為____。

A、log2n

B、n/2

C、n

D、n+1

5.下列對于線性鏈表的描述中正確的是____。

A、存儲空間不一定是連續，且各元素的存儲順序是任意的

B、存儲空間不一定是連續，且前件元素一定存儲在后件元素的前面

C、存儲空間必須連續，且前件元素一定存儲在后件元素的前面

D、存儲空間必須連續，且各元素的存儲順序是任意的

6.下列對于軟件測試的描述中正確的是____。

A、軟件測試的目的是證明程序是否正確

B、軟件測試的目的是使程序運行結果正確

C、軟件測試的目的是盡可能多地發現程序中的錯誤

D、軟件測試的目的是使程序符合結構化原則

7.為了使模塊盡可能獨立，要求____。

A、模塊的內聚程度要盡量高，且各模塊間的耦合程度要盡量強

B、模塊的內聚程度要盡量高，且各模塊間的耦合程度要盡量弱

C、模塊的內聚程度要盡量低，且各模塊間的耦合程度要盡量弱

D、模塊的內聚程度要盡量低，且各模塊間的耦合程度要盡量強

8.下列描述中正確的是____。

A、程序就是軟件

B、軟件開發不受計算機系統的限制

C、軟件既是邏輯實體，又是物理實體

D、軟件是程序、數據與相關文檔的集合

9.數據獨立性是數據技術的重要特點之一。所謂數據獨立性是指____。

A、數據與程序獨立存放

B、不同的數據被存放在不同的文件中

C、不同的數據只能被對應的應用程序所使用

D、以上三種說法都不對

10.用樹形結構表示實體之間聯系的模型是____。

A、關系模型

B、網狀模型

C、層次模型

D、以上三個都是

11.在窗體（名稱為Form1）上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫一個事件過程。程序運行后，如果在文本框中輸入一個字符，則把命令按鈕的標題設置為“計算機等級考試”。以下能實現上述操作的事件過程是

A、Private Sub Text1_Change()

Command1.Caption = "計算機等級考試"

End Sub

B、Private Sub Command1_Click()

Caption = "計算機等級考試"

End Sub

C、Private Sub Form_Click()

Text1.Caption = "計算機等級考試"

End Sub

D、Private Sub Command1_Click()

Text1.Text = "計算機等級考試"

End Sub

12.設a=5，b=4，c=3，d=2，下列表達式的值是

32*b Or a=c And bc Or cd

A、1

B、True

C、False

D、2

13.設a=”MicrosoftVisualBasic”，則以下使變量的b值為”VisualBasic”的語句是

A、b=Left(a,10)

B、b=Mid(a,10)

C、b=Right(a,10)

D、b=Mid(a,11,10)

14.假定有如下的窗體事件過程：

Private Sub Form_Click()

a$ = "Microsoft VisualBasic"

b$ = Right(a$, 5)

c$ = Mid(a$, 1, 9)

MsgBox a$, 34, b$, c$, 5

End Sub

程序運行后，單擊窗體，則在彈出的信息框的標題欄中顯示的信息是

A、Microsoft Visual

B、Microsoft

C、Basic

D、5

15.設a="a"，b="b"，c="c"，d="d"，執行語句x = IIf((a b) Or (c d), "A", "B")后，x的值為

A、"a"

B、"b"

C、"B"

D、"A"

16.為了使命令按鈕（名稱為Command1）右移200，應使用的語句是

A、Command1.Move -200

B、Command1.Move 200

C、Command1.Left = Command1.Left + 200

D、Command1.Left = Command1.Left - 200

17.在窗體上畫一個文本框，然后編寫如下事件過程：

Private Sub Form_Click()

x = InputBox("請輸入一個整數")

Print x + Text1.Text

End Sub

程序運行時，在文本框中輸入456，然后單擊窗體，在輸入對話框中輸入123，單擊“確定”按鈕后，在窗體上顯示的內容為

A、123

B、456

C、579

D、123456

18.在窗體上畫一個文本框和一個計時器控件，名稱分別為Text1和Timer1，在屬性窗口中把計時器的Interval屬性設置為1000，Enabled屬性設置為False。程序運行后，如果單擊命令按鈕，則每隔一秒中在文本框中顯示一次當前的時間。以下是實現上述操作的程序：

Private Sub Command1_Click()

Timer1._______

End Sub

Private Sub Timer1_Timer()

Text1.Text = Time

End Sub

在_____處應填入的內容是

A、Enabled = True

B、Enabled = False

C、Visible = True

D、Visible = False

19.假定在圖片框Picture1中裝入一個圖形，為了清除該圖形（不刪除圖片框），應采用的正確方法是

A、選擇圖片框，然后按Del鍵

B、執行語句 Picture1.Picture = LoadPicture("")

C、執行語句 Picture1.Picture = ""

D、選擇圖片框，在屬性窗口中選擇Picture屬性條，然后按回車鍵

20.在窗體上畫一個名稱為List1的列表框，一個名稱為Label1的標簽，列表框中顯示若干個項目，當單擊列表框中某個項目時，在標簽中顯示被選中項目的名稱。下列能正確實現上述操作的程序是

A、Private Sub List1_Click()

Label1.Caption = List1.ListIndex

End Sub

B、Private Sub List1_Click()

Label1.Name= List1.ListIndex

End Sub

C、Private Sub List1_Click()

Label1.Name = List1.Text

End Sub

D、Private Sub List1_Click()

Label1.Caption = List1.Text

End Sub

21.在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：

Private Sub Command1_Click()

Dim i As Integer, x As Integer

For i = 1 To 6

If i = 1 Then x = i

If i = 4 Then

x = x + 1

Else

x = x + 2

End If

Next i

Print x

End Sub

程序運行后，單擊命令按鈕，其輸出結果為

A、9

B、6

C、12

D、15

22.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程，

Private Sub Command1_Click()

c = "ABCD"

For n = 1 To 4

Print ____

Next

End Sub

程序運行后，單擊命令按鈕，要求在窗體上顯示如下內容：

D

CD

BCD

ABCD

則在____處應填入的內容為

A、Left(c,n)

B、Right(c,n)

C、Mid(c,n,1)

D、Mid(c,n,n)

23.執行以下程序段

Dim x As Integer, i As Integer

x = 0

For i = 20 To 1 Step -2

x = x + i \ 5

Next i

后，x的值為

A、16

B、17

C、18

D、19

24.在Visual Basic工程中，可以作為“啟動對象“的程序是

A、任何窗體或標準模塊

B、任何窗體或過程

C、Sub Main過程或其他任何模塊

D、Sub Main 過程或任何窗體

25.假定建立一個名稱為Command1的命令按鈕數組，則以下說法中錯誤的是

A、數組中每個命令按鈕的名稱（Name屬性）均為Command1

B、數組中每個命令按鈕的標題（Caption屬性）都一樣

C、數組中所有命令按鈕可以使用同一個事件過程

D、用名稱Command1（下標）可以訪問數組中的每一個命令按鈕

26.把窗體的KeyPreview屬性設置程為True，然后編寫如下事件過程

Private Sub Form_KeyPress(KeyAscii As Integer)

Dim ch As String

ch = Chr(KeyAscii)

KeyAscii = Asc(UCase(ch))

Print Chr(KeyAscii + 2)

End Sub

程序運行后，按鍵盤上的“A“鍵，則在窗體上顯示的內容是

A、A

B、B

C、C

D、D

27.在窗體上畫一個命令按鈕和一個文本框，名稱分別為Command1和Text1，然后編寫如下程序：

Private Sub Command1_Click()

a = InputBox("請輸入日期（1～31）")

t = "旅游景點：" _

IIf(a 0 And a = 10, "長城", "") _

IIf(a 10 And a = 20, "故宮", "") _

IIf(a 20 And a = 31, "頤和園", "")

Text1.Text = t

End Sub

程序運行后，如果從鍵盤上輸入16，則在文本框中顯示的內容是

A、旅游景點：長城故宮

B、旅游景點：長城頤和園

C、旅游景點：頤和園

D、旅游景點：故宮

28.在窗體上畫一個名稱為Label1的標簽，然后編寫如下事件過程：

Private Sub Form_Click()

Dim arr(10, 10) As Integer

Dim i As Integer, j As Integer

For i = 2 To 4

For j = 2 To 4

arr(i, j) = i * j

Next j

Next i

Label1.Caption = Str(arr(2, 2) + arr(3, 3))

End Sub

程序運行后，單擊窗體，在標簽中顯示的內容是

A、12

B、13

C、14

D、15

29.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：

Private Function fun(ByVal m As Integer)

If m Mod 2 = 0 Then

fun = 2

Else

fun = 1

End If

End Function

Private Sub Command1_Click()

Dim i As Integer, s As Integer

s = 0

For i = 1 To 5

s = s + fun(i)

Next i

Print s

End Sub

程序運行后，單擊命令按鈕，在窗體上顯示的是

A、6

B、7

C、8

D、9

30.閱讀程序：

Option Base 1

Dim arr() As Integer

Private Sub Form_Click()

Dim i As Integer, j As Integer

ReDim arr(3, 2)

For i = 1 To 3

For j = 1 To 2

arr(i, j) = i * 2 + j

Next j

Next i

ReDim Preserve arr(3, 4)

For j = 3 To 4

arr(3, j) = j + 9

Next j

Print arr(3, 2) + arr(3, 4)

End Sub

程序運行后，單擊窗體，輸出結果為

A、21

B、13

C、8

D、25

31.在窗體上畫一個名稱為 Command1 的命令按鈕，然后編寫如下程序：

Option Base 1

Private Sub Command1_Click()

Dim c As Integer,d As Integer

d=0

c=6

x=Array(2,4,6,8,10,12)

For i=1 To 6

If x(i)c Then

d=d+x(i)

Else

d=d-c

End If

Next i

Print d

End Sub

程序運行后，如果單擊命令按鈕，則在窗體上輸出的內容為____。

A、10

B、16

C、12

D、20

32.設有如下程序

Private Sub Command1_Click()

Dim c As Integer,d As Integer

c=4

d=InputBox("請輸入一個整數")

Do While d0

If dc Then

c=c+1

End If

d=InputBox("請輸入一個整數")

Loop

Print c+d

End Sub

程序運行后，單擊命令按鈕，如果在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9、0，則輸出結果是____。

A、12

B、11

C、10

D、9

33.在窗體上畫一個名稱為 Command1 的命令按鈕和一個名稱為 Text1 的文本框，在文本框中輸入以下字符串：

Microsoft Visual Basic Programming

然后編寫如下事件過程：

Private Sub Command1_Click()

Open "d:\temp\outf.txt" For Output As #1

For i=1 To Len(Text1.Text)

c=Mid(Text1.text,i,1)

If c="A" And c="Z" Then

Print #1,LCase(c)

End If

Next i

Close

End Sub

程序運行后，單擊命令按鈕，文件outf.txt中的內容是____。

A、MVBP

B、mvbp

C、M

V

B

P

D、m

v

b

p

A B C D

34.在窗體上畫一個名稱為 Command1 的命令按鈕，然后編寫如下程序：

Dim SW As Boolean

Function func(X As Integer)As Integer

If X20 Then

Y=X

Else

Y=20+X

End If

func=Y

End Function

Private Sub Form_MouseDown(Button As Integer,_

Shift As Integer,X As Single,Y As Single)

SW=False

End Sub

Private Sub Form_MouseUp(Button As Integer,_

Shift As Integer,X As Single,Y As Single)

SW=True

End Sub

Private Sub Command1_Click()

Dim intNum As Integer

intNum=InputBox("")

If SW Then

Print func(intNum)

End If

End Sub

程序運行后，單擊命令按鈕，將顯示一個輸入對話框，如果在對話框中輸入 25，則程序的執行結果為____。

A、輸出 0

B、輸出 25

C、輸出 45

D、無任何輸出

35.設有如下通用過程：

Public Sub Fun(a() As Integer,x As Integer)

For i=1 To 5

x=x+a(i)

Next

End Sub

窗體上畫一個名稱為 Text1 的文本框和一個名稱為 Command1 的命令按鈕。然后編寫如下的事件過程：

Private Sub Command1_Click()

Dim arr(5) As Integer,n As Integer

For i=1 To 5

arr(i)=i+i

Next

Fun arr,n

Text1.Text=Str(n)

End Sub

程序運行后，單擊命令按鈕，則在文本框中顯示的內容是____。

A、30

B、25

C、20

D、15

二、填空題（每空2分，共計30分）

1.某二叉樹中度為2的結點有18個，則該二叉樹中有____個葉子結點。

輸入答案，中間不含空格:

2.在面向對象方法中，類的實例稱為____。

輸入答案，中間不含空格:

3.診斷和改正程序中錯誤的工作通常稱為____。

輸入答案，中間不含空格:

4.在關系數據庫中，把數據表示成二維表，每一個二維表稱為____。

輸入答案，中間不含空格:

5.問題處理方案的正確而完整的描述稱為____。

輸入答案，中間不含空格:

6.以下語句的輸出結果是____。

Print Int(12345.6789*100+0.5)/100

輸入答案，中間不含空格:

7.在窗體上畫一個文本框和一個圖片框，然后編寫如下兩個事件過程：

Private Sub Form_Click()

Text1.text="VB程序設計"

End Sub

Private Sub Text1_Change()

Picture1.Print"VB Programming"

End Sub

程序運行后，單擊窗體，則在文本框中顯示的內容是____，而在圖片框中顯示的內容是____。

輸入答案，中間不含空格:

8.上一題

輸入答案，中間不含空格:

9.閱讀下面的程序：

Private Sub Form_Click()

Dim Check As Boolean,Counter As Integer

Check=True

Counter=5

Do

Do While Counter 20

Counter =Counter+1

If Counter=10 Then

Check=False

Exit Do

End If

Loop

Loop Until Check =False

Print Counter

End Sub

程序運行后，單擊窗體，輸出結果為____。

輸入答案，中間不含空格:

10.設有如下程序：

Private Sub Form_Click()

Dim a As Integer,s As Integer

n=8

s=0

Do

s=s+n

n=n-1

Loop While n0

Print s

End Sub

以上程序的功能是____。程序運行后，單擊窗體，輸出結果為____。

輸入答案，中間不含空格:

11.上一題

輸入答案，中間不含空格:

12.設有如下程序：

Option Base 1

Private Sub Command1_Click()

Dim arr1

Dim Min As Integer,i As Integer

arr1=Array(12,435,76,-24,78,54,866,43)

Min=____

For i=2 To 8

If arr1(i)Min Then ____

Next i

Print "最小值是：";Min

End Sub

以上程序的功能是：用 Array 函數建立一個含有8個元素的數組，

然后查找并輸出該數組中各元素的最小值。請填空。

輸入答案，中間不含空格:

13.上一題

輸入答案，中間不含空格:

14.在名稱為 Form1 的窗體上畫一個文本框，其名稱為 Text1，在屬性窗口中把該文本框的 MultiLine 屬性設置為 True，然后編寫如下的事件過程：

Private Sub Form_Click()

Open"d:\test\smtext1.txt"For Input As #1

Do While Not ____

Line Input #1,aspect$

whole$=whole$+aspect$+Chr$(13)+Chr(10)

Loop

Text1.Text=whole$

Chose #1

Open "d:\test\smtext2.txt"For Output As #1

Print #1,____

Close #1

End Sub

上述程序的功能是，把磁盤文件 smtext1.txt 的內容讀到內存并在文本框中顯示出來，

然后把該文本框中的內容存入磁盤文件 smtext2.txt。請填空。

輸入答案，中間不含空格:

15.上一題

輸入答案，中間不含空格:

答案

1 D

2 B

3 D

4 C

5 A

6 C

7 B

8 D

9 D

10 C

11 A

12 B

13 B

14 C

15 D

16 C

17 D

18 A

19 B

20 D

21 A

22 B

23 C

24 D

25 B

26 C

27 D

28 B

29 B

30 A

31 C

32 D

33 D

34 D

35 A

36 19

37 對象

38 程序調試

39 關系

40 算法

41 12345.68

42 VB程序設計

43 VB Programming

44 10

45 計算1到8的累加 （ 意思相同的語句）

46 36

47 12

48 Min=arr1(i)

49 EOF(1)

50 Text1.text

vb.net面試題，請大家幫忙，謝謝。

如果需要講詳細一點,那就加我QQ531412815

第4題,潛在的錯誤,這里的錯誤不是常規錯誤,屬于那種只有在運行是才知道的錯誤:

Catch ex As Exception

MsgBox(ex.StackTrace)

'永遠不會查找下面的錯誤

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!")

結構化錯誤處理永遠達不到下面這里,因為Catch ex As Exception 已經處理了所有錯誤.

第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語言，不過這里需要該很多，

我就不用了，那么就稍微復雜一點，使用FIND方法,不過有一點必須注意REF_ID必須排序，因為數據庫中

已經排好序了，我就不用排了。

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題：就是從一個集合中取元素輸出的問題

比較簡單的辦法就是使用遞歸

以下是使用VB的方法(可以移植到VB.NET上,因為我對VB.NET的數組到現在還不太會,所以就將就一下)

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是真正的遞歸函數,而Combination是用來預處理字符的

全局變量:

BUSE：用來確定是否使用過這個元素

lSTR：用來保存字符元素

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

實際測試成功，另外我對前三題很感興趣，希望能夠傳給我

網頁題目：關于vbnet模擬試題的信息
文章URL：http://m.newbst.com/article10/dddojdo.html

成都網站建設公司_創新互聯，為您提供移動網站建設、網站策劃、虛擬主機、Google、外貿建站、外貿網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯