vb.net的編程

Option Strict Off

創(chuàng)新互聯(lián)公司主要從事成都做網(wǎng)站、成都網(wǎng)站制作、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)岱岳,10年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):028-86922220

Option Explicit On

Friend Class Form1

Inherits System.Windows.Forms.Form

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

Dim j As Integer

Dim A(9) As Short

Dim D(9) As Short

Dim i As Short

Dim B As Short

Dim C As Short

Dim F As Short

Dim G As Boolean

Dim H() As Short

Dim K As Short

Dim S As String

C = 32767

For i = 1 To 10

A(i - 1) = CShort(InputBox("輸入第 " i "個(gè)數(shù)"))

If B A(i - 1) Then B = A(i - 1)

If C A(i - 1) Then C = A(i - 1)

D(i - 1) = Int(Rnd() * 100 + 0.5)

If F D(i - 1) Then F = D(i - 1)

Next i

For i = 2 To 100

For j = 2 To Int(System.Math.Sqrt(i) + 0.5)

'UPGRADE_WARNING: Couldn't resolve default property of object j. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'

'UPGRADE_WARNING: Mod has a new behavior. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'

If i Mod j 0 Then

G = True

Else

G = False

Exit For

End If

Next j

If G = True Then

ReDim Preserve H(K)

H(K) = i

K = K + 1

End If

Next i

S = "2;"

For i = 0 To K - 1

S = S H(i) ";"

Next i

MsgBox("最大數(shù)為：" B "；最小數(shù)為：" C)

MsgBox("最大的隨機(jī)數(shù)為：" F)

MsgBox("1--100之間共有" K + 1 "個(gè)素?cái)?shù)：" S)

End Sub

End Class

請問各位高手，如何編寫考試題庫

上次畢業(yè)生設(shè)計(jì)的時(shí)候也看到過這種設(shè)計(jì)作品，而且做的也很好，在這里給您介紹一下，當(dāng)然僅僅供參考，一些很好的細(xì)節(jié)都是被忽略的，但是如果您認(rèn)真做到的話就會(huì)很顯彩拉風(fēng)的。

你可以做一個(gè)基于IE瀏覽器的形式，這樣的話編程簡單，用ASP或JSP就可以簡單的實(shí)現(xiàn)，不過雖然實(shí)現(xiàn)簡單，不過你還要考慮一些小問題，比如，考試界面的全屏化，不可以顯示IE功能菜單，把菜單隱藏起來，同時(shí)不可以最小化窗口和切換窗口，因?yàn)槟阋窃诳荚囅到y(tǒng)下都可以隨便切換窗口出去的話，考生很容易訪問別的磁盤或者是上網(wǎng)查一些資料等，這樣做就限制了考試的其他做法。

當(dāng)然這只是其中的一點(diǎn)，還有其他的一些問題，比如你源程序的保密性，等，這是不允許個(gè)人隨便查看源程序的。

當(dāng)然，另外的一點(diǎn)就是更新，你不可能做一個(gè)程序之適合于這一次考試，程序的更新也要做好，就像是做后臺(tái)管理一樣。

具體到程序的編寫，那就顯得計(jì)劃化了許多，不過我們這個(gè)學(xué)期剛學(xué)習(xí)JSP，而且ASP我也是上個(gè)學(xué)期自己學(xué)習(xí)的，不過你要是真想實(shí)現(xiàn)的話也不是很大的問題。

個(gè)人提供的信息傾其全部也差不多就這些。當(dāng)然，程序編寫軟件看你選什么程序了。

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

我很喜歡這種題目

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

第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) 有錯(cuò)誤，不能轉(zhuǎn)換

注釋掉objShape = CType(objShape, clsTriangle)

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

true

false

-330

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

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

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

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

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

1400 0 1 2

1500 3 4

1600 5

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

備注）

定義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)

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

console.writeline(strline)

loop

Windows程序設(shè)計(jì)（VB.NET）》在線作業(yè)二

1.C

2.A

3.A

4.A

5.A

6.C

7.D

8.A

9.A

10.D

11.D

12.D

13.B

14.D

15.A

16.B

17.C

18.A

1.A

2.B

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

選擇題

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 下列賦值語句正確的是( )

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 對下列程序段，說法正確的是()###btnQuit.SetBounds(10,80,200,50)

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

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

C btnQuit對象的寬度為200像素，高度為80像素

D btnQuit對象的高度為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)對（）屬性進(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í)參值的語句是（）。

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

選擇題百度文庫中還有好多

操作題

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

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

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

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

3．．請編寫函數(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．請編寫函數(shù)f(a)，其功能是：計(jì)算一個(gè)長度為5的一維整形數(shù)組a中最大值與最小值的差，并作為函數(shù)的返回值。

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

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

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

網(wǎng)頁題目：包含vb.net考試題庫的詞條
URL網(wǎng)址：http://chinadenli.net/article44/dodsshe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、品牌網(wǎng)站設(shè)計(jì)、自適應(yīng)網(wǎng)站、定制開發(fā)、關(guān)鍵詞優(yōu)化、做網(wǎng)站

廣告

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