還有兩道vb.net面試題，請(qǐng)大家?guī)兔?，謝謝。

我很喜歡這種題目

創(chuàng)新互聯(lián)建站專(zhuān)注于企業(yè)營(yíng)銷(xiāo)型網(wǎng)站、網(wǎng)站重做改版、五常網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、HTML5、購(gòu)物商城網(wǎng)站建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁(yè)設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性?xún)r(jià)比高，為五常等各大城市提供網(wǎng)站開(kāi)發(fā)制作服務(wù)。

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

第7題，問(wèn)題出在兩方面

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

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

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

注釋掉objShape = CType(objShape, clsTriangle)

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

true

false

-330

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

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

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

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

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

1400 0 1 2

1500 3 4

1600 5

說(shuō)明一個(gè)問(wèn)題Cust_id1 Cust_id2 Cust_id3 Cust_id4 字段不是數(shù)值，而是類(lèi)似字符的東西（因?yàn)榭赡苁?/p>

備注）

定義rsgrp對(duì)應(yīng)acc_grp_cust_tbl ，rscust對(duì)應(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)

'去除最后一個(gè)"/"

console.writeline(strline)

loop

用VB.NET編寫(xiě)一個(gè)程序 ：編一求階乘的函數(shù)f(n),主調(diào)程序求組合數(shù)的程序，分別調(diào)用f(n),用來(lái)計(jì)算組合數(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的題目哈 隨機(jī)產(chǎn)生20個(gè)大寫(xiě)字母，求出現(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ù)組元素作為計(jì)數(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 "沒(méi)有出現(xiàn)的字母是：" Join(a.Split(bs.ToCharArray), "")

End Sub

End Class

VB.NET大作業(yè)，跟數(shù)據(jù)庫(kù)有關(guān)就好，簡(jiǎn)單一點(diǎn)

Option Explicit On

Option Strict On

Imports System

Imports System.Data

Imports System.Data.SqlClient

Public Class Program

Public Shared Sub Main()

Dim connectionString As String = _

"Data Source=(local);Initial Catalog=Northwind;" _

"Integrated Security=true"

' Provide the query string with a parameter placeholder.

Dim queryString As String = _

"SELECT ProductID, UnitPrice, ProductName from dbo.Products " _

"WHERE UnitPrice @pricePoint " _

"ORDER BY UnitPrice DESC;"

' Specify the parameter value.

Dim paramValue As Integer = 5

' Create and open the connection in a using block. This

' ensures that all resources will be closed and disposed

' when the code exits.

Using connection As New SqlConnection(connectionString)

' Create the Command and Parameter objects.

Dim command As New SqlCommand(queryString, connection)

command.Parameters.AddWithValue("@pricePoint", paramValue)

' Open the connection in a try/catch block.

' Create and execute the DataReader, writing the result

' set to the console window.

Try

connection.Open()

Dim dataReader As SqlDataReader = _

command.ExecuteReader()

Do While dataReader.Read()

Console.WriteLine( _

vbTab "{0}" vbTab "{1}" vbTab "{2}", _

dataReader(0), dataReader(1), dataReader(2))

Loop

dataReader.Close()

Catch ex As Exception

Console.WriteLine(ex.Message)

End Try

Console.ReadLine()

End Using

End Sub

End Class

這是我在vs2010中微軟自帶的MSDN示例代碼里面拷的，是關(guān)于ADO.net連接sql的操作。

希望對(duì)你有幫助。 如果你還需要其他的，我也可以再拷給你看。

求助！如何實(shí)現(xiàn)對(duì)網(wǎng)頁(yè)特定位置的文字進(jìn)行復(fù)制或者截圖

1、 單張圖片保存法

對(duì)著你要保存的圖片按鼠標(biāo)右鍵，在彈出菜單中選擇“圖片另存為”，然后選擇好你要保存的路徑和文件名就可以了。

2、多張圖片保存法

如果你想保存整個(gè)網(wǎng)頁(yè)中的所有圖片時(shí)可以采用本方法，因?yàn)樗梢砸淮涡缘陌阉袌D片文件都保存下來(lái)。方法是：看到你想保存的圖片網(wǎng)頁(yè)后，在IE瀏覽器中點(diǎn)擊“文件 ”菜單中的“另存為”，把整個(gè)網(wǎng)頁(yè)保存到硬盤(pán)，然后從中找到圖片即可。注意，要選擇“保存類(lèi)型”中的“網(wǎng)頁(yè),全部 (*.htm;*.html)”。

3、快速保存法

在桌面上按鼠標(biāo)右鍵，在彈出菜單中選擇“新建 ”→“文件夾”，隨便起個(gè)名字即可，這個(gè)文件夾就是用來(lái)保存圖片的文件夾。當(dāng)你在網(wǎng)頁(yè)上看到喜歡的圖片時(shí)，按住鼠標(biāo)左鍵拖到圖片到文件夾中就可以了，是不是很方便?。?/p>

4、軟件保存法

網(wǎng)頁(yè)圖片保存能手。

下載地址：

網(wǎng)文快捕。

下載地址：

WEPZIP。

下載地址：

5、對(duì)付加密圖片的方法

網(wǎng)頁(yè)中有些圖片是經(jīng)過(guò)加密處理過(guò)的，不能直接通過(guò)鼠標(biāo)右鍵來(lái)下載，也不能把網(wǎng)頁(yè)保存到硬盤(pán)中，有的甚至連工具欄都沒(méi)有。這樣的加密圖片該怎么保存呢？很簡(jiǎn)單！只要先后打開(kāi)兩個(gè)IE窗口，其中一個(gè)用來(lái)顯示你要下載圖片的網(wǎng)頁(yè)，另一個(gè)用來(lái)保存圖片。用鼠標(biāo)左鍵按住想要保存的圖片不放，往另外一個(gè)IE窗口中拖動(dòng)，圖片就會(huì)到那個(gè)IE窗口中了，然后就可以使用鼠標(biāo)右鍵的“圖片另存為”功能，這樣就得到加密圖片了。

大家知道瀏覽網(wǎng)頁(yè)過(guò)后，網(wǎng)頁(yè)中的大量信息通常都會(huì)被保存在臨時(shí)文件夾中（即TemporaryInternetFiles），所以我們可以在這里找到自己需要的圖片，當(dāng)然也包括被寫(xiě)保護(hù)的圖片。運(yùn)行看圖軟件ACDSee，點(diǎn)擊“查看→導(dǎo)航面板→文件夾”，或者在文件瀏覽窗口中點(diǎn)擊“文件夾”標(biāo)簽，找到 TemporaryInternetFiles文件夾，預(yù)覽里面的圖片，然后把你保存的圖片另存下來(lái)即可。

分享題目：vb.net大作業(yè)題目 vb程序設(shè)計(jì)作業(yè)答案
鏈接分享：http://www.rwnh.cn/article16/hicpdg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)建站、服務(wù)器托管、自適應(yīng)網(wǎng)站、軟件開(kāi)發(fā)、全網(wǎng)營(yíng)銷(xiāo)推廣、App開(kāi)發(fā)

廣告

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