程序設(shè)計(jì)VB考試復(fù)習(xí)題

本文格式為Word版，下載可任意編輯——程序設(shè)計(jì)VB考試復(fù)習(xí)題VB.NET考試復(fù)習(xí)題

一、選擇題：

1、數(shù)學(xué)關(guān)系8≤y=10ThenExitForb=b-3Nexti

MsgBox(\&a.ToString()&\b=\&b.ToString()&\c=\&c.ToString()&\EndSub

2.如下程序，當(dāng)單擊按鈕Button1時(shí)，彈出的消息框顯示的結(jié)果是___4____

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimM(10)AsInteger,xAsIntegerFork=1To10M(k)=12-kNextkx=6

MsgBox(M(2+M(x)))

EndSub

3、執(zhí)行下面程序,當(dāng)單擊Form1時(shí)，列表框顯示的結(jié)果是____i=13j=-16______。OptionExplicit

PrivateSubForm1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.ClickDimiAsInteger,jAsIntegerJ=10

ForI=1tojstep2I=I+1J=j-iNextI

ListBox1.Items.Add(\EndSub

4.如下程序，運(yùn)行的結(jié)果是_____x=6_____________PublicFunctionf(ByValm%,ByValn%)DoWhilemn

DoWhilem>n:m=m-n:LoopDoWhilen>m:n=n-m:LoopLoopF=mEndFunction

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimxAsIntegerx=f(24,18)MsgBox(\EndSub

五、程序設(shè)計(jì)題

1、設(shè)計(jì)一個(gè)登錄窗體，并實(shí)現(xiàn)登錄功能。要求如下：

（1）、寫出數(shù)據(jù)庫的數(shù)據(jù)表及各表包括的主要字段名稱、數(shù)據(jù)類型、是否為空、主鍵等。

（2）、寫一個(gè)函數(shù)（Function），判斷用戶輸入的用戶名和密碼是否正確（即數(shù)據(jù)庫中是否存在用戶輸入的用戶名和密碼信息），正確返回TRUE，否則返回FALSE。（3）、在登錄按鈕中調(diào)用該函數(shù)，輸入正確登錄成功并彈出消息框；否則登錄失敗，給出失敗消息框，當(dāng)連續(xù)登錄三次失敗時(shí)，彈出消息框并關(guān)閉窗體退出。寫出主要代碼。

2.請(qǐng)把下面的程序依照要求補(bǔ)充完整。程序要求計(jì)算水費(fèi)，計(jì)算水費(fèi)時(shí)有4種狀況：生活用水，每噸1元；農(nóng)業(yè)用水，每噸1.5元；工業(yè)用水，每噸2元；消遣業(yè)用水，每噸6元。請(qǐng)編制程序，由用戶

選擇水費(fèi)類型，程序根據(jù)用水噸數(shù)和

水費(fèi)類型計(jì)算應(yīng)繳水費(fèi)，如圖1所示。

圖1計(jì)算水費(fèi)

設(shè)計(jì)步驟如下：

1)建立應(yīng)用程序用戶界面和添加控件。在窗體上添加1個(gè)下拉列表框控件對(duì)象。設(shè)置如圖2左所示。

圖2計(jì)算水費(fèi)

2)編寫事件代碼。'窗體的Load事件

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesMyBase.Load

ComboBox1.Items.Add(\生活用水(每噸1元)\ComboBox1.Items.Add(\農(nóng)業(yè)用水(每噸1.5元)\ComboBox1.Items.Add(\工業(yè)用水(每噸2元)\ComboBox1.Items.Add(\消遣業(yè)用水(每噸6元)\EndSub

'命令按鈕“計(jì)算〞的Click事件

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,bAsDecimal

a=CDec(TextBox1.Text)‘請(qǐng)補(bǔ)充計(jì)算水費(fèi)的程序段

IfComboBox1.SelectedIndex=0Then'判斷下拉列表框選擇的序號(hào)b=a*1

ElseIfComboBox1.SelectedIndex=1Thenb=a*1.5

ElseIfComboBox1.SelectedIndex=2Thenb=a*2

ElseIfComboBox1.SelectedIndex=3Thenb=a*6EndIf

TextBox2.Text=bEndSub

3)運(yùn)行程序，選擇水費(fèi)類型并輸入用水量后單擊“計(jì)算〞按鈕，結(jié)果如圖2右所示。

3.請(qǐng)把下面的程序依照要求補(bǔ)充完整。程序功能：設(shè)計(jì)一個(gè)如圖3所示的簡(jiǎn)易計(jì)算器，兩個(gè)文本框中輸入操作數(shù)（例如：12和3，在組合框中選定操作符號(hào)（+，-，*，/例如：*）后，單擊“計(jì)算〞按鈕，結(jié)果顯示在標(biāo)簽控件中中；若在單擊“計(jì)算〞按鈕前，單擊了保存復(fù)選按鈕，則結(jié)果同時(shí)顯示在列表框控件中。設(shè)計(jì)步驟如下：

建立應(yīng)用程序用戶界面和添加控件。在窗體上添加1個(gè)下拉列表框控件對(duì)象。設(shè)置如圖3左所示。

圖3簡(jiǎn)易計(jì)算器

2)編寫事件代碼。

PrivateSubForm1_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.Load

Me.Left=450:Me.Top=250Label1.Text=\

‘請(qǐng)補(bǔ)充在組合框ComboBox1控件中添加操作符號(hào)（+，-，*，/），并清空列表框ListBox1控件

ComboBox1.Items.Add(\ComboBox1.Items.Add(\ComboBox1.Items.Add(\ComboBox1.Items.Add(\

ListBox1.Items.clear(\EndSub

PrivateSubButton1_Click(ByValsenderAsSystem.Object,system.EventArgs)HandlesButton1.ClickDimioperate1AsIntegerDimioperate2AsIntegerDimiresultAsIntegerDimoperaterAsCharTry

ioperate1=CInt(operate1.Text)operater=ComboBox1.Textioperate2=operate2.Value

‘請(qǐng)補(bǔ)充利用簡(jiǎn)易計(jì)算器進(jìn)行計(jì)算程序段SelectoperaterCase\iresult=ioperate1+ioperate2Case\iresult=ioperate1-ioperate2Case\

ByValeAsiresult=ioperate1*ioperate2Case\iresult=ioperate1/ioperate2CaseElseMessageBox.Show(\請(qǐng)選擇運(yùn)算符\ExitSubEndSelect

Label1.Text=CStr(iresult)

IfCheckBox1.Checked=TrueThenListBox1.Items.Add(CStr(iresult))CatchexAsOverflowException

Label1.Text=\計(jì)算數(shù)據(jù)溢出\除數(shù)為零CatchexAsInvalidCastException

Label1.Text=\無效數(shù)據(jù)\輸入字符數(shù)據(jù)CatchexAsExceptionLabel1.Text=ex.MessageEndTryEndSub

3)運(yùn)行程序，結(jié)果如圖3右所示。

4、設(shè)計(jì)一個(gè)登錄窗體，當(dāng)輸入的用戶名和密碼均為admin時(shí)，登錄成功并彈出消息框；否則登錄失敗，給出失敗消息框，當(dāng)連續(xù)登錄三次失敗時(shí)，彈出消息框并關(guān)閉窗體退出。寫出主要代碼。

PublicClassForm1

DimLoginCountAsInteger=0

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click

IfTextBox1.Text=\Then

MsgBox(\請(qǐng)輸入用戶名！\,MsgBoxStyle.Information,\提醒\)ReturnEndIf

IfTextBox2.Text=\Then

MsgBox(\請(qǐng)輸入密碼！\,MsgBoxStyle.Information,\提醒\)

ReturnEndIf

IfLoginCount=3Then

MsgBox(\登錄失敗已經(jīng)達(dá)到三次，當(dāng)日不能登錄！\,MsgBoxStyle.Information,\警告\)TextBox1.Text=\TextBox2.Text=\EndIf

IfTextBox1.Text=\AndTextBox2.Text=\Then

MsgBox(\登錄成功！\,MsgBoxStyle.Information,\提醒\)TextBox1.Text=\TextBox2.Text=\

Else

IfLoginCount=3ThenMsgBox(\登錄失敗已經(jīng)達(dá)到三次，當(dāng)日不能登錄！\,MsgBoxStyle.Information,\警告\)TextBox1.Text=\TextBox2.Text=\ReturnEndIf

LoginCount=LoginCount+1

MsgBox(\登錄失敗！請(qǐng)重新登錄！\,MsgBoxStyle.Information,\提醒\)TextBox1.Text=\TextBox2.Text=\EndIfEndSub

PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubEndClass

ReturnEndIf

IfLoginCount=3Then

MsgBox(\登錄失敗已經(jīng)達(dá)到三次，當(dāng)日不能登錄！\,MsgBoxStyle.Information,\警告\)TextBox1.Text=\TextBox2.Text=\EndIf

IfTextBox1.Text=\AndTextBox2.Text=\Then