齊幼菊Visual Basic程序設計課程作業(yè)一及答案

1、浙江廣播電視大學Visual Basic程序設計課程作業(yè)（一）第1章 初試可視化編程Hello VB1單項選擇題（1）如果要設置窗體的標題欄，應選擇（ ）屬性。AVisibleBCaptionCNameDText（2）要使命令按鈕不響應用戶生成的事件，應設置命令按鈕的（ ）屬性。AVisibleBCaptionCEnableDEnabled（3）要使標簽能透出窗體的背景，應設置標簽的（ ）屬性。ABackStyleBBorderStyleCAppearanceDBackColor（4）以下控件中，（ ）控件不會影響到界面設計效果。A計時器B文本框C標簽DLine控件（5）在VB中，一般（ ）屬

2、性用來設置字體的顏色。AFontColorBForeColorCBackColorDShowColor（6）在VB中斷模式下，可用調(diào)試窗口監(jiān)視表達式和變量的值,其中在（ ）窗口中可以直接鍵入命令以顯示命令所請求的信息。A立即B.監(jiān)視C.本地D.中斷（7）某計時器控件的interval屬性為0時，表示（ ）。A計時器關閉計時CTimer事件的間隔時間為0毫秒BTimer事件的間隔時間為0秒D計時器啟動計時（8）在窗體Form1的Click事件過程中有以下語句：Label1.Caption=”Visual Basic”若本語句執(zhí)行之前，標簽控件的Caption屬性為默認值，則標簽控件的Name屬性

3、和Caption屬性在執(zhí)行本語句之前的值分別為（ ）。ALabel和LabelBLabel1和Label1CLabel1和Visual BasicDLabel和Caption（9）（ ）控件不具有Caption屬性。ALabelBFormCTextBoxDCommandButton（10）改變控件在窗體中的上下位置，應設置控件的（ ）屬性。ATopBLeftCWidthDRight（11）文本框中選定的內(nèi)容，由下列（ ）屬性反映。ATextBCaptionCSeltextDsellenght2編程題（1）在窗體上畫一個標簽框和3個命令按鈕。程序初始界面如下左圖所示；單擊“學習目的”按鈕，顯示如

4、下中圖所示；單擊“學習方法”命令按鈕，顯示如下右圖所示；單擊“退出”按鈕時，退出程序。編寫程序?qū)崿F(xiàn)上述要求。 （2）設計一個簡單的加法程序，程序界面設計如下圖所示。（3）開發(fā)一個簡易的文本框編輯器，用于實現(xiàn)文框之間的文本復制、剪切和粘貼。該文本框編輯器中包含源文本框和目標文本框，可以選擇源文本框中的文本內(nèi)容，利用“剪切”和“復制”命令按鈕實現(xiàn)剪切和復制，然后再利用“粘貼”命令按鈕粘貼到目標文本框中。簡易文本框編輯器的程序界面如下圖所示。第2章 編程基礎四則運算程序1單項選擇題（1）在Visual Basic中，變量的默認類型是（ ）。AString BIntegerCDoubleDVarian

5、t（2）假設已定義Integer變量x、y，則以下賦值語句正確的是（ ）。Ax + 1 = yBx := yCy = x + y D1 = x（3）、/、Mod、*四個算術(shù)運算符中，優(yōu)先級別最低的是（ ）。A B / CMod D *（4）下列（ ）語句可以將變量A、B值互換。AA=C : C=B : B=A BA=A+B : B=AB: A=ABCA=B : B=ADA=(A+B)/2 : B=(A - B)/2（5）以下語句的輸出結(jié)果是（ ）。 Print Format (32548.5,“000,000.00”)A32548.5 B 32,548.5C032,548.50D 32,548

6、.50（6）表達式4+5 6 * 7 / 8 Mod 9 的值是 （ ）。A4 B 5 C 6 D 7（7）函數(shù)Int(Rnd*10)是在哪個范圍內(nèi)的整數(shù)？（ ）A（0, 10） B (0,10 C 0, 10） D0, 10（8）下面哪個是算數(shù)運算符？（ ）AMod B Like C And DNot（9）已知三個變量A、B、C，判斷A、B、C能否構(gòu)成三角形的邏輯表達式為（ ）。AA >= B And B >= C And A >= C BA + C >= B And A + B >= C And B + C >= ACA + C >= B Or A

7、 + B >= C Or B + C >= A DA + C >= B And A + B >= C Or B + C >= A（10）下面程序段運行后，顯示的結(jié)果是（ ）。Dim intX As Integer If intX Then Print intX Else Print intX + 1A0 B 1 C 2 D不一定（11）以下程序的輸出結(jié)果是（ ）。Dim a, i%, sum%a = Array(4, 3, 2, 1)For i = 0 To 3sum = sum + a(i)Next iPrint sumA4 B 6 C 10 D不一定2程序閱讀

8、題（1）閱讀以下程序，寫出點擊窗體兩次后變量Sum的值。Private Sub Form_Click() Static Sum As Integer For I = 1 To 2 Sum = Sum + I Next I Print SumEnd Sub（2）閱讀以下程序，寫出點擊按鈕后文件框Text3和Text4的結(jié)果。Private Sub Command1_Click() Text1.Text=2 Text2.Text=3 Text3.Text=Text1.Text+Text2.Text Text4.Text=Val(Text1.Text)+Val(Text2.Text)End Sub（

9、3）閱讀以下程序，寫出點擊按鈕后文件框Text1和Text2的結(jié)果。Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim x As Integer For i = 1 To 5 A(i) = i Next i i = 1 Do While x < 3 A(i) = A(i) + x x = x + 1 i = i + 1 Loop Text1.Text = A(1) Text2.Text = A(2)End Sub3編程題（1）編寫一個數(shù)制轉(zhuǎn)換程序，運行界面如下圖所示，實現(xiàn)在第一個文本框中輸入十進制數(shù)后，第二個文本框自動顯示該

10、數(shù)對應的十六進制數(shù)，第三個文本框自動顯示該數(shù)對應的八進制數(shù)。提示：利用文本框的Change事件和轉(zhuǎn)換函數(shù)Hex、Oct。（2）編寫一個猜數(shù)字程序。程序產(chǎn)生一個隨機數(shù)，由用戶來猜這個數(shù)，并提示用戶猜的數(shù)是否正確，程序運行界面如下圖所示。 （3）編寫一個學生身高統(tǒng)計程序，學生人數(shù)總是不超過100。輸入若干個男生或女生的身高，若輸入數(shù)據(jù)不合法則給予提示，如圖3所示。單擊確定按鈕將接收數(shù)據(jù)并將統(tǒng)計結(jié)果顯示于右方的文本框中，統(tǒng)計數(shù)據(jù)包括總?cè)藬?shù)、男生人數(shù)及平均身高、女生人數(shù)及平均身高，如下圖所示。 參考答案第1章 初試可視化編程Hello VB1單項選擇題（1）B（2）D（3）A（4）A（5）B（6）A（

11、7）A（8）B（9）C（10）A（11）C2編程題（1）Private Sub cmdAim_Click() lblContent.Caption = "開發(fā)Windows應用程序"End SubPrivate Sub cmdExit_Click() EndEnd SubPrivate Sub cmdWay_Click() lblContent.Caption = "從實際應用程序的開發(fā)過程中學習VB"End Sub（2）Private Sub cmdSum_Click() txtSum.Text = Val(txtFirstNum.Text) + Va

12、l(txtSecondNum.Text)End Sub（3）Dim strPaste As String '模塊級變量strPaste用于存放待粘貼的內(nèi)容Private Sub cmdCopy_Click() '復制 strPaste = txtSource.SelText '將選中的文本復制到變量strPaste中。End SubPrivate Sub cmdCut_Click() '剪切 strPaste = txtSource.SelText '將選中的文本復制到變量strPaste中。 txtSource.SelText = "&quo

13、t; '刪除文本框中被選中的文本。End SubPrivate Sub cmdEnd_Click() EndEnd SubPrivate Sub cmdPaste_Click() '粘貼 ' 將變量中的內(nèi)容粘貼到txtTarget中。若txtTarget中有選定的文本， ' 則用變量內(nèi)容將其覆蓋；若無選定文本，粘貼到插入點處 txtTarget.SelText = strPasteEnd Sub第2章 編程基礎四則運算程序1單項選擇題（1）D（2）C（3）C（4）B（5）C（6）B（7）C（8）A（9）B（10）B（11）C2程序閱讀題（1）6（2）23 5（3

14、）1 33編程題（1）Private Sub TxtDec_Change() TxtHex.Text = Hex(Val(TxtDec.Text) TxtOct.Text = Oct(Val(TxtDec.Text)End Sub（2）Dim intNum As Integer '用于存放“神秘的數(shù)”Dim intCount As Integer '用于猜數(shù)計數(shù)Private Sub cmdOk_Click() intCount = intCount + 1 '計數(shù) If Val(txtAnswer.Text) = intNum Then '猜對 lblComm

15、ent.Caption = "猜對了！你一共猜了" & intCount & "次" lblNum.Caption = intNum ElseIf Val(txtAnswer.Text) > intNum Then lblComment.Caption = "太大了！" Else lblComment.Caption = "太小了！" End IfEnd SubPrivate Sub Form_Load() Randomize intNum = Int(Rnd * 1000 + 1)End S

16、ub（3）Option ExplicitPrivate Type StuHeight sex As String Height As SingleEnd TypeDim stu(1 To 100) As StuHeightDim intNum As IntegerPrivate Sub CmdClear_Click() TxtSex.Text = "" TxtHeight.Text = ""End SubPrivate Sub CmdOk_Click() If (TxtSex.Text = "男" Or TxtSex.Text = &

17、quot;女") And IsNumeric(TxtHeight.Text) Then intNum = intNum + 1 stu(intNum).sex = TxtSex.Text stu(intNum).Height = Val(TxtHeight.Text) Else MsgBox "輸入數(shù)據(jù)有誤，性別輸入只能為男、女，身高只能為數(shù)值！", vbCritical, "輸入錯誤" End If Call StatEnd SubPrivate Sub Stat() Dim intCount As Integer Dim sngBoy As

18、 Single Dim sngGirl As Single Dim intGirlNum As Integer Dim intBoyNum As Integer For intCount = 1 To intNum If stu(intCount).sex = "男" Then sngBoy = sngBoy + stu(intCount).Height intBoyNum = intBoyNum + 1 Else sngGirl = sngGirl + stu(intCount).Height intGirlNum = intGirlNum + 1 End If Next If intNum > 0 Then TxtShow.Text = "共有" & intNum & "個學生參與統(tǒng)計" & vbCrLf If intBoyNum > 0 Then TxtShow.Text = TxtShow.Text + "男生共有&q