成人《VB程序設(shè)計(jì)》標(biāo)準(zhǔn)化大作業(yè)(答案)

《成人《VB程序設(shè)計(jì)》標(biāo)準(zhǔn)化大作業(yè)(答案)》由會(huì)員分享，可在線閱讀，更多相關(guān)《成人《VB程序設(shè)計(jì)》標(biāo)準(zhǔn)化大作業(yè)(答案)（24頁珍藏版）》請?jiān)谘b配圖網(wǎng)上搜索。

1、作業(yè)1 一、單項(xiàng)選擇題 1.Visual Basic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語言，采取了 A 的編程機(jī)制。 (A)事件驅(qū)動(dòng) (B)按過程順序執(zhí)行 (C)從主程序開始執(zhí)行 (D)按模塊順序執(zhí)行 2.在Visual Basic中最基本的對象是 C ，它是應(yīng)用程序的基石，是其他控件的容器。 (A)文本框 (B)命令按鈕 (C)窗體 (D)標(biāo)簽 3.多窗體程序是由多個(gè)窗體組成。在缺省情況下，VB在應(yīng)用程序執(zhí)行時(shí)，總是把 B 指定為啟動(dòng)窗體。 (A)不包含任何控件的窗體 (B)設(shè)計(jì)時(shí)的第

2、一個(gè)窗體 (C)包含控件最多的 (D)命名為Frm1的窗體 4.有程序代碼如下： Text1. Text= "Visual Basic" 則：Text1，Text和"Visual Basic"分別代表 C 。(A)對象，值，屬性 (B)對象，方法，屬性(C)對象，屬性，值 (D)屬性，對象，值 5.Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言， A 不是面向?qū)ο笙到y(tǒng)所包含的三 要素。 (A)變量 (B)事件 (C)屬性 (D)方法 6.Visual Basic的一個(gè)應(yīng)用程序至少包含一個(gè) B 文件

3、，該文件存儲(chǔ)窗體上使用的所 有控件對象和有關(guān)的 、對象相應(yīng)的 過程和 代碼。 (A)模塊、方法、事件、程序 (B)窗體、屬性、事件、程序 (C)窗體、程序、屬性、事件 (D)窗體、屬性、事件、模塊 7.以下不屬于Visual Basic的工作模式是 A 模式。 (A)編譯 (B)設(shè)計(jì) (C)運(yùn)行 (D)中斷 8.在VB集成環(huán)境創(chuàng)建VB應(yīng)用程序時(shí)，除了工具箱窗口、窗體中的窗口、屬性窗口外，必不 可少的窗口是 C 。 (A)窗體布局窗口 (B)立即窗口 (C)代碼窗口

4、 (D)監(jiān)視窗口 9.保存新建的工程時(shí)，默認(rèn)的路徑是 B 。 (A)My Documents (B)VB98 C)＼ (D)Windows 10.將調(diào)試通過的工程經(jīng)“文件”菜單的“生成 .exe文件”編譯成 .exe后，將該可執(zhí)行文件拿到其他機(jī)器上不能運(yùn)行的主要原因是 A 。 (A)運(yùn)行的機(jī)器上無VB系統(tǒng) (B)缺少 .frm窗體文件 (C)該可執(zhí)行文件有病毒 (D)以上原因都不對 11.對于窗體，下面 D 屬性在程序運(yùn)行時(shí)其屬性設(shè)置起作用。 (A)MaxButton (B)Border

5、Style (C)Name (D)Left 12.要使Print方法在Form_Load事件中起作用，要對窗體的 C 屬性進(jìn)行設(shè)置。 (A)BackColor (B)ForeColor (C)AutoRedraw (D)Caption 13.若要使標(biāo)簽控件顯示時(shí)不覆蓋其背景內(nèi)容，要對 D 屬性進(jìn)行設(shè)置。 (A)BackColor (B)BorderStyle (C)ForeColor (D)BackStyle 14.若要使命令按鈕不可操作，要對 A 屬性設(shè)置。 (A)Enabled

6、 (B)Visible (C)BackColor (D)Caption 15.文本框沒有 D 屬性。 (A)Enabled (B)Visible (C)BackColor (D)Caption 16.不論何控件，共同具有的是 B 屬性。 (A)Text (B)Name (C)ForeColor (D)Caption 17.要使Form1窗體的標(biāo)題欄顯示“6歡迎使用VB”，以下 D 語句是正確的。 (A)Forml.Caption= “6歡迎使用VB” (B)For

7、ml.Caption= ‘6歡迎使用VB’ (C)Forml.Caption= 6歡迎使用VB (D)Forml.Caption= "6歡迎使用VB " 18.要使某控件在運(yùn)行時(shí)不可顯示，應(yīng)對 B 屬性進(jìn)行設(shè)置。 (A)Enabled (B)Visible (C)BackColor (D)Caption 19.要使窗體在運(yùn)行時(shí)不可改變窗體的大小和沒有最大化和最小化按鈕，只要對下列 B 屬性設(shè)置就有效。 (A)MaxButton (B)BorderStyle (C)Width

8、 (D)MinButton 20.當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的 A 事件過程。 (A)Load (B)Click (C)UnLoad (D)GotFocus 二、填空題 1．VB 6.0提供了一種新的數(shù)據(jù)庫訪問技術(shù)，即 ADO技術(shù) ，通過該技術(shù)，能方便地訪問多種數(shù)據(jù)庫中的數(shù)據(jù)。 2．當(dāng)進(jìn)入VB集成環(huán)境，發(fā)現(xiàn)沒有顯示“工具箱”窗口時(shí)，應(yīng)選擇 視圖 菜單的 工具箱 選項(xiàng)，使“工具箱”窗口顯示。 3．要使新建工程時(shí)，在模塊的“通用聲明”段中自動(dòng)加入Option Explicit

9、語句，應(yīng)對 工具 菜單的 選項(xiàng) 的 編輯器 選項(xiàng)卡進(jìn)行相應(yīng)選項(xiàng)的選擇。 4．對象的屬性是指 對象的性質(zhì)、特征 。 5．對象的方法是指 對象的動(dòng)作、行為 。 6．在剛建立工程時(shí)，使窗體上的所有控件具有相同的字體格式，應(yīng)對 Form1 的 Font 屬性進(jìn)行設(shè)置。 7．當(dāng)對文本框的ScrollBar的屬性設(shè)置為2 (有垂直滾動(dòng)條)，但沒有垂直滾動(dòng)條顯示時(shí)，是沒有把 Multiline 屬性設(shè)置為True的原因。 8．在代碼窗口對窗體的BorderStyle、MaxButton屬性進(jìn)行了設(shè)置，但運(yùn)

10、行后沒有效果，原因是這些屬性 在運(yùn)行時(shí)是無效的 。 9．當(dāng)對命令按鈕的Picture屬性裝入.bmp圖形文件后，選項(xiàng)按鈕上并沒有顯示所需的圖形，原因是沒有對 Style 屬性設(shè)置為1(Graphical)。 10．若已建立了Form1、Form2兩個(gè)窗體，默認(rèn)啟動(dòng)窗體為Form1。通過 工程 菜單的 工程屬性 的 通用 選項(xiàng)卡，可將啟動(dòng)窗體設(shè)置為Form2。在程序中若要顯示Form1窗體，則執(zhí)行 Form1.Show 語句。 11．在文本框中，通過 SelStart 屬性能獲得當(dāng)前插入點(diǎn)所在的位置。 12．要對文本框

11、中已有的內(nèi)容進(jìn)行編輯，按下鍵盤上的按鍵，就是不起作用，原因是設(shè)置 Locked 的屬性為True。 13．在窗體上已建立多個(gè)控件如Text1、Label1、Command1，若要使程序一運(yùn)行焦點(diǎn)就定位在Command1控件上，應(yīng)把Command1控件的TabIndex屬性的值設(shè)置為 0 。 三、完成窗體控件與程序設(shè)計(jì) 第（ 1 ）題 1.建立如圖所示界面 2.建立如下事件過程： （1）事件：在文本框中輸入口令（輸入的字符都顯示為“*”），單擊“確認(rèn)”按鈕。 （2）響應(yīng)：如果輸入的是“1234”時(shí)，應(yīng)顯示“口令正確”，否則顯示“口令錯(cuò)

12、誤”?！? Private Sub Command1_Click() If Text1.Text = "1234" Then Label2.Caption = "口令正確" Else Label2.Caption = "口令錯(cuò)誤" End If End Sub 第（ 2 ）題 1.建立如圖所示界面 2.建立如下事件過程： （1）事件：在文本框中輸入一個(gè)姓名，單擊“確認(rèn)”按鈕。 （2）響應(yīng)：將輸入的內(nèi)容添加到右面的列表框中。　 Private Sub Command1_Click()

13、List1.AddItem Text1.Text End Sub 第（ 3 ）題 1.建立如圖所示界面 2.建立如下事件過程： （1）事件：單擊單選按鈕。 （2）響應(yīng)：文本框中文字字體作相應(yīng)改變。 Private Sub Option1_Click() Text1.FontName = "宋體" End Sub Private Sub Option2_Click() Text1.FontName = "隸書" End Sub 第（ 4 ）題 1.建立如圖所示界面 2.建立如下事件過程： （1）事件：單

14、擊相應(yīng)復(fù)選框。 （2）響應(yīng)：文本框中文字字體效果作相應(yīng)改變?！? Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Els

15、e Text1.FontItalic = False End If End Sub 第（ 5 ）題 1.建立如圖所示界面 2.建立如下事件過程： （1）事件：選擇“對齊方式”框架內(nèi)的單選按鈕。 （2）響應(yīng)：上面的文本，按所選擇的對齊方式對齊顯示?！? Private Sub Option1_Click() Label1.Alignment = 0 End Sub Private Sub Option2_Click() Label1.Alignment = 1 End Sub Private Sub O

16、ption3_Click() Label1.Alignment = 2 End Sub 第（ 6 ）題 1.建立如圖所示界面 2.建立如下事件過程： （1）事件：單擊“最大化”按鈕或單擊“最小化”按鈕。 （2）響應(yīng)：單擊“最大化”按鈕，窗體最大化；單擊“最小化”按鈕，使窗體最小化。 Private Sub Command1_Click() Form1.WindowState = 2 End Sub Private Sub Command2_Click() Form1.WindowState = 1 End S

17、ub 第（ 7 ）題 1.建立如圖所示界面 2.建立如下事件過程： （1）事件：單擊“顯示”按鈕和“停止”按鈕。 （2）響應(yīng)：單擊“顯示”按鈕文本框顯示當(dāng)前時(shí)間，且時(shí)間每秒鐘變化一次，單擊“停止”按鈕時(shí)間顯示停止。 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Text1

18、.TEXT = Time End Sub 第（ 8 ）題 1.建立如圖所示界面 2.建立如下事件過程： （1）事件：單擊“確定”按鈕和“取消”按鈕。 （2）響應(yīng)：單擊“確定”按鈕，如果輸入的是1234則顯示左下圖的對話框，如果輸入的不是1234，則顯示右下圖的對話框。 Private Sub Command1_Click() If Text1.Text = "1234" Then MsgBox ("密碼正確") Else MsgBox ("密碼錯(cuò)誤") End If End Sub

19、 Private Sub Command2_Click() If Text1.Text = "1234" Then Text1.Text = "" Else Text1.Text = "" End If End Sub 第（ 9 ）題 1.建立如圖所示界面，設(shè)計(jì)一個(gè)計(jì)算器模型 2.完成5+11，7+9的運(yùn)算。各控件功能：按鈕“5”、“7”、“9”、“11”用于輸入?yún)⑴c運(yùn)算的數(shù)據(jù)，按鈕“+”決定算法，按鈕“=”完成運(yùn)算，文本框用于顯示參與運(yùn)算的數(shù)據(jù)和運(yùn)算結(jié)果。 Dim a, b As Integer Pr

20、ivate Sub Command1_Click() Text1.Text = 5 a = 5 End Sub Private Sub Command2_Click() Text1.Text = 7 a = 7 End Sub Private Sub Command3_Click() Text1.Text = 9 a = 9 End Sub Private Sub Command4_Click() Text1.Text = 11 a = 11 End Sub Private Sub Command5

21、_Click() b = a End Sub Private Sub Command6_Click() Text1.Text = a + b a = a + b End Sub 第（ 10 ）題 1.建立如圖所示界面： 2.輸入姓名、選定性別后，單擊Command1按鈕，姓名及性別在列表框中顯示。 Private Sub Command1_Click() If Option1.Value = True Then s = "男" List1.AddItem Text1.Text & " "

22、 & s Else s = "女" List1.AddItem Text1.Text & " " & s End If End Sub 第（ 11 ）題 1.建立如圖所示界面： 2.建立如下事件過程： （1）鼠標(biāo)單擊Option1控件時(shí)，Label1中的文字居中對齊； （2）單擊Option2控件，Label1中的文字左對齊；單擊Option3控件，Label1中的文字右對齊。 Private Sub Option1_Click() Label1.Alignment = 2 End Su

23、b Private Sub Option2_Click() Label1.Alignment = 0 End Sub Private Sub Option3_Click() Label1.Alignment = 1 End Sub 第（ 12 ）題 1. 建立如圖所示界面： 2. 并編寫事件過程： （1）事件：按鈕的單擊事件。 （2）響應(yīng)：單擊“顯示/隱藏”按鈕顯示/隱藏標(biāo)簽控件，單擊“退出程序”按鈕退出應(yīng)用程序。 Private Sub Command1_Click() Static a As Integer

24、 a = a + 1 If a Mod 2 = 0 Then Label1.Visible = True Else Label1.Visible = False End If End Sub Private Sub Command2_Click() End End Sub 第（ 13 ）題 1.建立如圖所示的應(yīng)用程序用戶界面 2.建立如下事件過程輸入圓的半徑，利用選項(xiàng)按鈕選擇計(jì)算類型，計(jì)算圓的直徑、周長或面積并利用標(biāo)簽輸出。 Private Sub Command1_Click()

25、 r = Text1.Text If Option1.Value = True Then Label1.Caption = "圓的直徑是 " & 2 * r ElseIf Option2.Value = True Then Label1.Caption = "圓的周長是 " & 2 * 3.14159 * r Else Label1.Caption = "圓的面積是 " & r ^ 2 * 3.14159 End If End Sub Private Sub Command2_Click

26、() End End Sub 第（ 14 ）題 1.建立如圖所示的應(yīng)用程序用戶界面 2.建立如下事件過程： （1）事件：按下相應(yīng)按鈕， （2）響應(yīng)：標(biāo)簽中的文字將按選項(xiàng)按鈕選中的字體樣式顯示。 Private Sub Command1_Click() Label1.FontBold = True End Sub Private Sub Command2_Click() Label1.FontItalic = True End Sub Private Sub Command3_Click() Lab

27、el1.FontUnderline = True End Sub 第（ 15 ）題 1.建立如圖所示的應(yīng)用程序用戶界面 2.建立事件過程： （1）事件：輸入年、月、日后，單擊“確定”按鈕， （2）響應(yīng)：在標(biāo)簽上顯示這一天為所在星期的第幾天。 Private Sub command1_click() Dim a As Date yy = Text1.Text mm = Text2.Text dd = Text3.Text a = mm & "/" & dd & "/" & yy tian = Weekday(a)

28、 Label4.Caption = "該日期是所在星期的第" & tian & "天" Rem 星期日是該星期的第1天 End Sub 第（ 16 ）題 1.建立如圖所示的應(yīng)用程序用戶界面 2.建立事件過程： （1）事件：選擇“exit”單選按鈕，單擊“確定”按鈕 （2）響應(yīng)：結(jié)束程序 Private Sub command1_Click() If Option1.Value = True Then End End Sub 第（ 17 ）題 1.建立如圖所示的應(yīng)用程序用戶界面 2.建立事件過程： （1）事件：單擊復(fù)選框

29、 （2）響應(yīng)：在標(biāo)簽上加下劃線或使字體傾斜 Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontUnderline = True Else Label1.FontUnderline = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else L

30、abel1.FontItalic = False End If End Sub Private Sub Command1_Click() Label1.Visible = False End Sub 第（ 18 ）題 1. 建立事件過程： （1）事件：窗體的單擊事件。 響應(yīng)：使用Inputbox函數(shù)輸入學(xué)生成績，若成績在60分以下，在窗體上打印“不及格”，否則打印“及格” 。 Private Sub Command1_Click() n = InputBox("請輸入學(xué)生成績") If n < 60 Then

31、 Print "不及格" Else Print "及格" End If End Sub Private Sub Command2_Click() End End Sub 第（ 19）題 1、建立如下界面： 2、單擊“合計(jì)”按鈕 3、在“合計(jì)”按鈕右側(cè)的標(biāo)簽中顯示所選中的書的總價(jià)。 Private Sub Command1_Click() Label6.Caption = Check1.Value * 15.3 * Text1.Text + Check2.Value * 21.9

32、 * Text2.Text End Sub 第（ 20 ）題 1、建立如下界面 2、事件：拖動(dòng)滾動(dòng)條 3、響應(yīng)：拖動(dòng)滾動(dòng)條文本框中的文字的大小將隨之發(fā)生變化（變化范圍8－48）。 4、單擊滾動(dòng)箭頭，條文本框中的文字的大小也將隨之發(fā)生變化。 Private Sub HScroll1_Change() Text1.FontSize = HScroll1.Value End Sub 作業(yè)2 批改教師 批改日期 作業(yè)成績 一、單項(xiàng)選擇題 1、VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本

33、結(jié)構(gòu)是（ D ）。 （A）遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu) （B）選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu) （C）過程結(jié)構(gòu)、輸入/輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu) （D）選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu) 2、結(jié)構(gòu)化程序由三種基本結(jié)構(gòu)組成，下面屬于三種基本結(jié)構(gòu)之一的是（ B ）。 （A）遞歸結(jié)構(gòu)（B）選擇結(jié)構(gòu)（C）過程結(jié)構(gòu)（D）輸入輸出結(jié)構(gòu) 3、下面程序段運(yùn)行后，顯示的結(jié)果是（ B ）。 Dim x If x Then Print x Else Print x+1 （A）1 （B）0 （C）1 （D）顯示出錯(cuò)信息 4、語句If x=1 Then y=1，下列說法正確的是（ C ）。 （A）

34、x=1和y=1均為賦值語句 （B）x=1和y=1均為關(guān)系表達(dá)式 （C）x=1為關(guān)系表達(dá)式，y=1為賦值語句 （D）x=1為賦值語句，y=1為關(guān)系表達(dá)式 5、用If語句表示分段函數(shù) 下列不正確的程序段是（ A ）。 （A）If x>=1Then f=sqr(x+1) f=x*x+3 （B）If x>=1 Then f=sqr(x+1) If x<1 Then f=x*x+3 （C）If x>=1 Then f=sqr(x+1) _ Else f=x*x+3

35、 （D）If x<1 Then f=x*x+3 _ Else f=sqr(x+1) 6、計(jì)算分段函數(shù)的值。 下面程序段中正確的是：（ D ） （A）If x<0 Then y=0 If x<1 Then y=1 If x<2 Then y=2 If x>=2 Then y=3 （B）If x>=2 Then y=3 If x>=1 Then y=2 If x>0 Then y=1 If x<0 Then y=0 （C）If x<0 Then y=0 ElseIf x>0 Then y=1 ElseIf x>1 Then y=2 Else

36、 y=3 EndIf （D）If x>=2 Then y=3 ElseIf x>=1 Then y=2 ElseIf x>=0 Then y=1 Else y=0 EndIf 7、下面的程序段，顯示的結(jié)果是（ A ）。 Dim x X=Int(Rnd)+5 Select Case x Case 5 Print “優(yōu)秀” Case 4 Print “良好” Case 3 Print “通過” Case Else Print “不通過” EndSelect （A） 優(yōu)秀 （B）良好 （C）通過 （D）不通過

37、 8、下面If語句統(tǒng)計(jì)滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語句是（ D ）。 （A）If sex=”男” And age<40 And InStr(duty,”教授”)>0 Then n=n+1 （B）If sex=”男” And age<40 And InStr(duty=”教授” or duty=”副教授”) Then n=n+1 （C）If sex=”男” And age<40 And Right(duty,2)=”教授” Then n=n+1 （D）If sex=”男” And age<40 And duty=”教授” And duty=”副

38、教授” Then n=n+1 9、下面程序段求兩個(gè)數(shù)中的大數(shù)，（ D ）不正確。 （A）Max=IIf(x>y ,x,y) （B）If x>y Then Max=x Else Max=y （C）Max=x If y>=x Then Max=y （D）If y>=x Then Max=y Max=x 10、下面程序運(yùn)行后輸出的結(jié)果是（ 7 ）。 X=Int(Rnd)+3 If x^2>8 Then y=x^2+1 If x^2=9 Then y=x^2-2 If x^2<8 Then y=x^3 Print y 二、程序改錯(cuò) -------

39、----------------------------------------- 注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu) ------------------------------------------------ 1．題目：以下程序段用于輸出100-300的所有素?cái)?shù) Private Sub Form_Click() Dim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2 k = Int(Sqr(n)) i = 2 **********F

40、OUND********** swit = 1 swit = 0 **********FOUND********** While swit = 0 While swit=0 and n<=k If n Mod i = 0 Then swit = 1 Else **********FOUND********** i = i – 1 I = I+1 End If Wend If swit = 0 Then Print n; End If Next n End Sub 2．題目：在下面的程序段中過程p

41、d可以判斷任意三個(gè)數(shù)能否構(gòu)成三角形的三邊，利用該過程的判定結(jié)果，對能構(gòu)成三角形的計(jì)算其面積，構(gòu)不成的顯示不能構(gòu)成三角形 Option Explicit Private Sub Form_Click() **********FOUND********** Dim x%, y%, z%, s%, b As Boolean, h As Single s as double x = InputBox("請輸入三角形的邊長") y = InputBox("請輸入三角形的邊長") z = InputBox("請輸入三角形的邊長") b = pd(x, y, z) h = (x +

42、y + z) / 2 **********FOUND********** If Not b Then If b Then s = Sqr(h * (h - x) * (h - y) * (h - z)) Print "三角形面積是"; s Else Print "不能構(gòu)成三角形" End If End Sub **********FOUND********** Public Function pd() As Boolean Public Function pd(x,y,z) As Boolean If x > 0 And y > 0 And z >

43、0 And x + y > 0 And x + z > y And y + z > x Then pd = True Else pd = False End If End Function 3．題目：程序功能為打印下列圖形： * ** *** **** ***** Private Sub Form_Click() Cls Dim i As Integer Dim j As Integer **********FOUND********** For i = 1 To 7 For i = 1 To 5 ******

44、****FOUND********** For j = 1 To 5 For j = 1 To i Print "*"; **********FOUND********** Next I Next j Print Next i End Sub 4．題目：程序功能：求1+2+3……，直到其和超出3000為止，并輸入結(jié)果。 Private Sub Form_Click() Cls Dim i As Integer Dim s As Single i = 1 **********FOUND********** s = 1

45、 s = 0 Do **********FOUND********** i = i + 2 i = i + 1 s = s + i **********FOUND********** Loop s > 3000 Loop Until s > 3000 Print "從1 到:"; i; "的和是"; s End Sub 5．題目：輸出40以內(nèi)能夠被3整除的數(shù)，要求輸出結(jié)果5個(gè)數(shù)一行。 Private Sub Form_Click() Cls Dim x As Integer Dim i As Integer **********FOUN

46、D********** i = 1 I = 0 For x = 1 To 40 If (x / 3) = (x \ 3) Then **********FOUND********** Print x Print x; i = i + 1 End If If i Mod 5 = 0 Then Print End If **********FOUND********** Next I Next x End Sub 6．題目：求s=72+102+132+……832的值。

47、 Private Sub Form_Click() Cls Dim s As Long Dim i As Integer **********FOUND********** s = 1 s=0 **********FOUND********** For i = 72 To 832 For i = 72 To 832 step 30 s = s + i **********FOUND********** Next 30 Next i Print s End Sub 7．題目：以下程序段用于打印如下圖形式的九九乘法表： Priva

48、te Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Print Tab(30); "9*9 table" Print: Print Print " * "; For i = 1 To 9 **********FOUND********** Print Tab(i * 6); I Print Tab(i * 6); I; Next i Print For j = 1 To 9 Print j; " "; **********FOUND********** For k = 1 T

49、o 9 For k = 1 To 9 **********FOUND********** Print Tab(j * 6); j * k; " "; Print Tab(k * 6); j * k; " "; Next k Print Next j End Sub 8．題目：以下程序段用于計(jì)算5的n次方 Private Sub Form_Click() Dim n As Integer, k As Integer, s As Long **********FOUND********** n = InputBox(" Input n ")

50、 n = val(InputBox(" Input n ")) k = 1 **********FOUND********** s = 0 s=1 Do While k <= n s = s * 5 k = k + 1 **********FOUND********** Next Loop Print "5的"; "n次方是"; s End Sub 9．題目：下面程序可輸出如下圖形： * ***

51、 ***** ******* ********* Private Sub Form_Click() Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4 m = 1 s = "*" For i = 5 To 1 Step -1 **********FOUND********** Print Spc(i - 1) Print Spc(n); For j = 1 To 2 * m - 1 Print s; Next j

52、 Print **********FOUND********** n = n + 1 n=n-1 **********FOUND********** m = m – 1 m=m+1 Next i End Sub 10．題目：下面的程序段用于實(shí)現(xiàn)以下功能：建立一順序文件，存放10名同學(xué)的學(xué)號(hào)和三門功課成績，顯示該文件內(nèi)所有記錄，并同時(shí)顯示其總分和平均分 Private Sub Form_Click() Dim no%, c1%, c2%, c3%, i As Integer **********FOUND********** Open "c:\2

53、.txt" For Input As #1 Open "c:\2.txt" For OutPut As #1 For i = 1 To 10 no = InputBox("請輸入學(xué)號(hào)") c1 = InputBox("請輸入數(shù)學(xué)成績") c2 = InputBox("請輸入語文成績") c3 = InputBox("請輸入外語") Write #1, no, c1, c2, c2 Next i Close #1 **********FOUND********** Open "c:\2.txt" For Output As #1 Open "c

54、:\2.txt" For Input As #1 For i = 1 To 10 **********FOUND********** Print #1, no, c1, c2, c3 Input #1,no,c1,c2,c3 Print no, c1, c2, c3, c1 + c2 + c3, (c1 + c2 + c3) / 3 Next i Close #1 End Sub Call gcd(a, b) c=gcd(a,b) Print a, b, c End Sub 批改教師 批改日期

55、 作業(yè)成績 作業(yè)3 程序填空 1．下面的程序段用于打印出以下圖形 * *** ***** ******* ***** *** * 請?jiān)凇尽刻幪钊胝_的內(nèi)容? Private Sub Form_Click() Dim i%, j%, k% For i = 0 To 3 For j = 0 To 2 - i Print " "; Next j **********SPACE********** For k = 0 To 【

56、?】 2*i Print "*"; Next k Print Next i For i = 0 To 2 For j = 0 To i **********SPACE********** 【?】 print “ ”; Next j For k = 0 To 4 - 2 * i Print "*"; Next k **********SPACE********** 【?】 print Next i End Sub 2．代碼功能: 求 1! + 2! + ……1

57、0!的值? Private Sub Form_Click() **********SPACE********** 【?】 t=1 s = 1 For I = 2 To 10 t = t * I **********SPACE********** 【?】 s=s+t **********SPACE********** 【?】 next i Print s End Sub 3．以下程序段用于求∑n! Private Sub Form_Click() Dim sum As Long, n As Long n = InputBox("請輸入一

58、個(gè)正整數(shù)") sum = 0 For i = 1 To n **********SPACE********** sum =【?】 sum+mul(i) Next i Print sum End Sub Private Function mul(ByVal x As Long) Dim s As Long, i As Long s = 1 **********SPACE********** For i = 1 To 【?】 x s = s * i Next i ***

59、*******SPACE********** 【?】 mul=s End Function 4．根據(jù)輸入的學(xué)習(xí)成績,分別顯示優(yōu)秀(90分以上), 良好(75分以上),及格(60分以上),不及格幾個(gè)等級。 Private Sub Command1_Click() x = Val(Text1.Text) If x >= 90 Then Print "優(yōu)秀" **********SPACE********** 【?】 ElseIf x>=75 Print "良好" ElseIf x >= 60 Then **********S

60、PACE********** 【?】 Print “及格” **********SPACE********** 【?】 Else Print "不及格" End If End Sub 5．求一元二次方程ax2+bx+c=0的根，其中a不等于0。 Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox("請輸入a的值") b = InputBox("請輸入b的值") c = InputBox("請輸入c的值") d = b * b

61、- 4 * a * c p = -b / (2 * a) If [?] Then d>0 If d > 0 Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p [?] End If Print "x1="; x1, "x2="; x2 [?] Else q = Sqr(-d) / (2 * a) Print "x1="; p; "+"; q; "i", "x2="; p; "-

62、"; q; "i" End If End Sub 6．求A,B,C三個(gè)數(shù)的最大值 Private Sub command1_Click() A=Val(Text1.Text) B= [?] Val(InputBox(“請輸入B的值”) C=Val(Text2.Text) If a>b And a>c Then Maxdate=a Elseif [?] b>a and b>c Maxdate=b Else [?] Maxdate=c End If Label1.Caption=maxdate End S

63、ub 批改教師 批改日期 作業(yè)成績 作業(yè)4 編 程 1．(事件)單擊窗體。 (響應(yīng))編寫程序求101112+111213+…+151617的結(jié)果，并將結(jié)果輸出到窗體上。將結(jié)果存入變量M中。 Dim m As Long ******** Program ************* Private Sub Form_Click() Dim m As Long Dim i As Integer For i = 10 To 15 m = m + i * (i + 1) * (i

64、+ 2) Next i Print m End Sub ************ End *********** 2．(事件)雙擊窗體。 (響應(yīng))求s=1+12+123+…+123…10，并將結(jié)果存到變量S中 ******** Program ************* Private Sub Form_Click() Dim s As Long Dim i As Integer, j As Integer Dim t As Long For i = 1 To 10 t = 1 For j = 1 To i t = t * j Next j s = s + t

65、 Next i Print s End Sub ************ End *********** 3．(事件)雙擊窗體。（響應(yīng))求3+6+9+12+15+18+……+300的和，并將結(jié)果輸出到窗體上。將結(jié)果存入變量 SUM中。 ******** Program ************* Private Sub Form_DblClick() Dim sum As Integer Dim i% For i = 3 To 300 Step 3 sum = sum + i Next i Print sum End Sub ************ End ***

66、******** 4． (事件)雙擊窗體。(響應(yīng))求出50以內(nèi)所有奇數(shù)的和。將結(jié)果存入變量SUM中。 ******** Program ************* Private Sub Form_DblClick() Dim sum As Integer Dim i% For i = 1 To 50 Step 2 sum = sum + i Next i Print sum End Sub ************ End *********** 5．(事件)單擊窗體。(響應(yīng))求200~300之間既能被3整除又能被7整除的數(shù)。并求出所有數(shù)之和存入變量SUM ******** Program ************* Private Sub Form_Click() Dim sum As Long Dim i% For i = 200 To 300 If i Mod 3 = 0 And i Mod 7 = 0 Th