還有兩道vb.net面試題，請大家?guī)兔Γx謝。

我很喜歡這種題目

成都創(chuàng)新互聯(lián)公司專注于溫泉企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站,成都商城網(wǎng)站開發(fā)。溫泉網(wǎng)站建設(shè)公司,為溫泉等地區(qū)提供建站服務(wù)。全流程按需求定制制作，專業(yè)設(shè)計，全程項目跟蹤，成都創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)

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

第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

中間的 _ 有問題，應(yīng)該去掉

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

注釋掉objShape = CType(objShape, clsTriangle)

刪除_后，得到結(jié)果

true

false

-330

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

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

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

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

先說明一下程序中的一個細(xì)節(jié)，也是問題比較容易忽略的

1400 0 1 2

1500 3 4

1600 5

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

備注）

定義rsgrp對應(yīng)acc_grp_cust_tbl ，rscust對應(yīng)cust_tbl

預(yù)先設(shè)置好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編寫一個程序 ：編一求階乘的函數(shù)f(n),主調(diào)程序求組合數(shù)的程序，分別調(diào)用f(n),用來計算組合數(shù)的值

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的題目哈 隨機產(chǎn)生20個大寫字母，求出現(xiàn)次數(shù)最多的字母及出現(xiàn)次數(shù)，還有求出現(xiàn)次數(shù)為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 ' 使用數(shù)組元素作為計數(shù)器g_len

System.Array.Sort(g_len, gs)

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

End Sub

End Class

《AutoCAD VBA & VB.NET開發(fā)基礎(chǔ)與實例教程 pdf

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

VB.net中類的實例化

1.不正確

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

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

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

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

看下面的代碼

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

a=New myClass

b=a

c=a

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

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

2.類的成員分 實例成員 和 靜態(tài)成員

實例成員 必須在實例對象上調(diào)用

靜態(tài)成員 可以直接調(diào)用，不需要實例對象。

當(dāng)前名稱：vb.net經(jīng)典例題教程,vb編程設(shè)計例題圖文
標(biāo)題路徑：http://chinadenli.net/article6/hshgog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供域名注冊、微信公眾號、、品牌網(wǎng)站制作、網(wǎng)站設(shè)計公司、用戶體驗

廣告

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