還有兩道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.NET編寫一個程序 ：編一求階乘的函數f(n),主調程序求組合數的程序，分別調用f(n),用來計算組合數的值

Private Sub Command1_Click()

Dim A, B, C

A = 10

B = 3

C = f(A) / (f(B) * f(A - B))

Print C

End Sub

Private Function f(n)

Dim I As Integer

f = 1

For I = 1 To n

f = f * I

Next I

End Function

VB.NET的題目哈 隨機產生20個大寫字母，求出現次數最多的字母及出現次數，還有求出現次數為0的字母有哪些

Imports System.Text.RegularExpressions

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim a As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Dim g() As Char = a.ToCharArray

Dim MyRandom As New Random

Dim bs As String = ""

For i = 1 To 20

bs = g(MyRandom.Next(0, g.GetUpperBound(0) + 1))

Next

Dim gs() As String = (From mt As Match In Regex.Matches(bs, "[A-Z]") Select mt.Value).ToArray

System.Array.Sort(gs)

gs = (From mt As Match In Regex.Matches(Join(gs, ""), "([A-Z])\1*") Select mt.Value).ToArray

Dim g_len() As Integer

g_len = (From mt As Match In Regex.Matches(Join(gs, ""), "([A-Z])\1*") Select mt.Length).ToArray ' 使用數組元素作為計數器g_len

System.Array.Sort(g_len, gs)

Label1.Text = "出現次數最多的字母：" gs(gs.GetUpperBound(0)).Substring(0, 1) " 共出現" g_len(g_len.GetUpperBound(0)) "次" vbCrLf "沒有出現的字母是：" Join(a.Split(bs.ToCharArray), "")

End Sub

End Class

《AutoCAD VBA & VB.NET開發基礎與實例教程 pdf

AutoCAD會了，要學會使用插件。如果自己學會開發的話，還是不錯的。教程的文件有些大，看附件下載。

VB.net中類的實例化

1.不正確

Dim abc As myClass，定義一個可以引用myClass類型對象的變量abc。這個abc變量存在于棧上。

abc=New myClass。New myClass創建myClass實例對象，這個對象存在于托管堆上。然后（同時）讓abc引用（指向）這個對象。

abc變量在棧上，而對象在托管堆上。

abc儲存的是對象的地址，而不是對象本身。

看下面的代碼

Dim a As myClass,b As myClass,c As myClass

a=New myClass

b=a

c=a

整個過程中只創建了一個myClass對象，位于托管堆上。

三個myClass類型的變量a、b、c位于棧上，都指向了這一個myClass對象

2.類的成員分 實例成員 和 靜態成員

實例成員 必須在實例對象上調用

靜態成員 可以直接調用，不需要實例對象。

當前名稱：vb.net經典例題教程,vb編程設計例題圖文
標題路徑：http://vcdvsql.cn/article6/hshgog.html

成都網站建設公司_創新互聯，為您提供域名注冊、微信公眾號、、品牌網站制作、網站設計公司、用戶體驗

廣告

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