編程題題目及答案

1、第二章四、編程題1在窗體上添加3 個命令按鈕（“顯示”、“清除”與“結(jié)束”）。單擊“顯示”按鈕時，將在窗體上顯示唐詩“靜夜思”，如圖2-1 所示，單擊“清除”按鈕時，將清除所顯示的內(nèi)容，單擊“結(jié)束”按鈕時，結(jié)束程序的運行。2在窗體上添加5 個標簽、4 個文本框和2 個命令按鈕。程序運行時，通過文本框輸入一個總秒數(shù)，單擊“計算”按鈕，總秒數(shù)將傳換成小時、分鐘和秒數(shù)并在文本框中輸出（運行界面如圖2-2 所示）圖2-1圖2-23在窗體上添加3 個標簽，3 個文本框和2 個命令按鈕。程序運行時，在第1 個文本框中輸入文字時，在另外兩個文本框中顯示相同的內(nèi)容，但顯示的字號和字體不同。單擊“清除”按鈕則可

2、清除3 個文本框中的內(nèi)容（運行界面如圖2-3 所示）。4設(shè)計計算語文、數(shù)學(xué)、英語這三門課程總成績和平均分的程序，利用文本框做數(shù)據(jù)的輸入和輸出（運行界面如圖2-4）所示。圖2-3 圖2-45單擊窗體，彈出一個輸入框，用戶輸入一個兩位數(shù)（如36），交換個位數(shù)和十位數(shù)的位置，并把處理后的數(shù)（63）用消息框顯示給用戶。6在窗體上添加2 個文本框（它們的初始值均為0）、4 個命令按鈕（標題分別為“+”“-”“*”“/”）和1 個標簽（初始標題為空）。要求在2 個文本框內(nèi)輸入2 個數(shù)字，單擊“+”（或“-”、“*”、“/”）按鈕時，標簽將顯示兩數(shù)相加（或減、乘、除）的結(jié)果。7某門課程的考試成績分為筆試和機

3、試成績，其中筆試占60，機試占40，利用輸入框分別輸入該課程的筆試和機試成績，用消息框輸出其總成績。8設(shè)計一個電子計時器，以秒為單位計時，單擊“計時開始”按鈕計時開始。此時“計時開始”按鈕變灰，“停止計時”按鈕可用，在標簽內(nèi)顯示經(jīng)過的秒數(shù)。單擊“停止計時”按鈕，計時結(jié)束， 彈出消息框提示“您的記錄是？秒”（這里的？代表標簽最后顯示的秒數(shù)值）。答案四、編程題1編寫的3 個按鈕的Click 事件過程代碼如下：Private Sub Command1_Click()BackColor=RGB(255,255,255)ForeColor=RGB(0,0,255)FontName="楷體_GB

4、2312"FontSize=20CurrentX=1200CurrentY=350Print "靜夜思(唐詩)"FontName="幼圓"PrintFontSize=13Print Spc(6);"床前明月光，疑是地上霜"PrintPrint Spc(6);"舉頭望明月，低頭思故鄉(xiāng)"End SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Command3_Click()EndEnd Sub2編寫的命令按鈕單擊事件過程代碼如下：Private Sub

5、 Command1_Click()Dim h As Integer, m As Integer,s As Integer,t As Integert=Val(Text1.Text)h=t3600t=t-h*3600m=t60s=t-m*60Text2.Text=hText3.Text=mText4.Text=sEnd SubPrivate Sub Command1_Click()EndEnd Sub3Private Sub Form_Load()Text2.FontName="隸書"Text2.FontSize=16Text3.FontName="楷體_GB231

6、2"Text3.FontSize=20End SubPrivate Sub Text1_Change()Text2.Text=Text1.TextText3.Text=Text1.TextEnd SubPrivate Sub Command1_Click() '“清除”按鈕Text1.Text="" '清除文本框Text1 的內(nèi)容Text2.Text="" '清除文本框Text2 的內(nèi)容Text3.Text="" '清除文本框Text3 的內(nèi)容Text1.SetFocus '設(shè)置焦點E

7、nd SubPrivate Sub Command2_Click()EndEnd Sub4Private Sub Command1_Click()Dim s As Single,ave As SingleDim sx As Single,yw As Single,wy As Singlesx=Val(Text1.Text)yw=Val(Text2.Text)wy=Val(Text3.Text)s=sx+yw+wyave=s/3Text4.Text="總成績?yōu)?quot; & sText5.Text=aveEnd SubPrivate Sub Command2_Click()E

8、ndEnd Sub5編寫的窗體單擊事件過程代碼如下：Private Sub Form_Click()Dim x As Integer,a As IntegerDim b As Integer,c As Integerx=Val(InputBox(“請輸入一個兩位數(shù)”)a=Int(x/10) '求十位數(shù)b=x Mod 10 '求個位數(shù)c=b*10+a '生成新的數(shù)MsgBox(“處理后的數(shù)為”& c )End Sub6Private Sub Command1_Click()Dim a as integer,b as integer,c as integera=Te

9、xt1.Textb=Text2.Textc=a+bLabel1.Caption=cEnd SubPrivate Sub Command2_Click()Dim a as integer,b as integer,c as integera=Text1.Textb=Text2.Textc=a-bLabel1.Caption=cEnd SubPrivate Sub Command3_Click()Dim a as integer,b as integer,c as integera=Text1.Textb=Text2.Textc=a*bLabel1.Caption=cEnd SubPrivate

10、Sub Command4_Click()Dim a as integer,b as integer,c as singlea=Text1.Textb=Text2.Textc=a/bLabel1.Caption=cEnd Sub7Private Sub Form_Click()Dim s1 As Single,s2 As Single,s As Singles1=Val(InputBox("請輸入筆試成績")s2=Val(InputBox("請輸入機試成績")ss1 * 0.6+s2*0.4MsgBox ("您的成績?yōu)?quot; & s

11、)End Sub8Private Sub Form_Load()Label1.Caption=0Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click()Command1.Enabled=FalseCommand2.Enabled=TrueTimer1.Enabled=TrueEnd SubPrivate Sub Command2_Click()Command1.Enabled=TrueCommand2.Enabled=FalseTimer1.Enabled=FalseMsgBox ("您的記錄為" & Label

12、1.Caption & "秒")End SubPrivate Sub Timer1_Timer()Label1.Caption=Label1.Caption+1End Sub第三章三、編程題1輸入a，b，c 三個數(shù)，按從大到小的次序顯示。運行界面如圖3-2 所示。圖3-22任意輸入一個整數(shù)，判定該整數(shù)的奇偶性。運行界面如圖3-3 所示。圖3-33編制程序，計算某個學(xué)生獎學(xué)金的等級，以語文a、數(shù)學(xué)b、英語c 三門功課的成績?yōu)樵u獎依據(jù)。獎學(xué)金分為一、二、三等，其評獎標準如下。（1）符合下列條件之一的可得一等獎。 三門功課總分在285 分以上。 有兩門功課成績是100 分

13、，且第三門功課成績不低于80 分者。（2）符合下列條件之一的可得二等獎： 三門功課總分在270 分以上。 有一門功課成績是l00 分，且其他功課成績不低于75 分者。（3）各門功課成績不低于70 分者，獲三等獎。（4）符合條件者就高不就低，只能獲得高的那一項獎學(xué)金。要求顯示獲獎的等級。運行界面如圖3-4 所示。圖3-44編制程序，根據(jù)用戶輸入的考試成績，按表3-1 分數(shù)與等級的對照標準，輸出相應(yīng)的等級，運行界面如圖3-5 所示。圖3-55計算分段函數(shù)：的值。運行界面如圖3-6 所示。圖3-66公用電話收費標誰如下：通話時間在3 分鐘以內(nèi)，收費0.2 元；3 分鐘以上，則每超過1 分鐘加收0.1

14、 元。編寫一段程序，計算某人通話X 分鐘，應(yīng)繳多少電話費? 運行界面如圖3-7 所示。圖3-7答案:三、編程題1方法1:Private Sub Command1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If b>a Then t=a:a=b:b=tIf b>c ThenLabel4.Caption=aLabel5.Caption=bLabel6.Caption=cElseIf c > a ThenLabel4.Caption=cLabel5.Caption=aLabel6.Caption=bElseL

15、abel4.Caption=aLabel5.Caption=cLabel6.Caption=bEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub方法2:Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a < b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tLabel

16、4.Caption = aLabel5.Caption = bLabel6.Caption = cEnd SubPrivate Sub Command2_Click()EndEnd Sub2Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 2=0 ThenLabel2.Caption="是偶數(shù)"ElseLabel2.Caption="是奇數(shù)"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub3Private Sub Command1_Clic

17、k()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If a+b+c>=285 Or (a=100 And b=100 And c>=80) Or (b=100 Andc=100 And a>=80) Or (a=100 And c=100 And b>=80) ThenLabel5.Caption="一等獎"ElseIf a+b+c>=270 Or (a=100 And b>=75 And c>=75) Or (b=100And a>=75 And c>=75)

18、Or (c=100 And a>=75 And b>=75) ThenLabel5.Caption="二等獎"ElseIf a>=70 And b>=70 And c>=70 ThenLabel5.Caption="三等獎"ElseLabel5.Caption="無"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub4Private Sub Command1_Click()x=Val(Text1.Text)Select Case xCase Is>

19、=90Label3.Caption="優(yōu)秀"Case 80 To 89Label3.Caption="良好"Case 70 To 79Label3.Caption="中"Case 60 To 69Label3.Caption="及格"Case ElseLabel3.Caption = "不及格"End SelectEnd SubPrivate Sub Command2_Click()EndEnd Sub5Private Sub Command1_Click()x=Val(Text1.Text)S

20、elect Case xCase Is<0Label3.Caption=x*x+1Case Is>=1Label3.Caption=3*x3Case ElseLabel3.Caption=2*x+1End SelectEnd SubPrivate Sub Command2_Click()EndEnd Sub6方法1:Private Sub Command1_Click()x=Val(Text1.Text)If x<=3 ThenLabel3.Caption="0.2 元"Elsey=(x-3)*0.1+0.2If y<1 ThenLabel3.Cap

21、tion="0." & y & "元"ElseLabel3.Caption=Str(y) & "元"End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub方法2:Private Sub Command1_Click()x=Val(Text1.Text)If x<=3 ThenLabel3.Caption="0.2 元"Elsey=(x-3)*0.1+0.2Label3.Caption= Format(y, "0.0&

22、quot;) & "元"End SubPrivate Sub Command2_Click()EndEnd Sub第四章三、編程題1建立一個“求和程序”窗體，運行界面如圖4-3 所示。要求：可執(zhí)行從11 000 之間的整數(shù)累加運算。拖動水平滾動條滑塊，可顯示并設(shè)定要累加的選取數(shù)字。單擊“計算”按鈕，可執(zhí)行從1 到選取的數(shù)字之間的整數(shù)的累加運算，并顯示在文本框中，文本框中不允許直接輸入數(shù)字。圖 4-32用循環(huán)顯示如圖4-4 所示的結(jié)果。要求：單擊圖片框，在圖片框中打印九九乘法表。圖 4-43在列表框中輸出1100 之間不能被3 整除的數(shù)，要求用Do 語句實現(xiàn)，運行界面

23、如圖4-5 所示。圖 4-5 4在圖片框中打印如圖4-6 所示的沙漏圖形。圖 4-65編程求1!+2!+3!+10!的結(jié)果，程序運行界面如圖4-7 所示。圖4-76編程求ex 的近似值，要求最后一項的值小于等于0.000 001 時停止計算。ex 的展開式為：程序運行界面如圖4-8所示圖4-8答案:三、編程題1Private Sub Command1_Click()s=0For i=1 To HScroll1.Values=s+iNext iLabel3.Caption=sEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub HScr

24、oll1_Change()Label1.Caption="選取的數(shù)字為：" & HScroll1.ValueEnd Sub2Private Sub Picture1_Click()Dim se As StringPicture1.Print Tab(35);" 九九乘法表 "Picture1.Print Tab(35);"-"For i=1 To 9For j=1 To ise=i & "×" & j & "=" & i * jPicture1.

25、Print Tab(j-1)*9+1);se;Next jPicture1.PrintNext iEnd Sub3Private Sub Command1_Click()j=1Do While j<=100If j Mod 3<>0 ThenList1.AddItem jEnd Ifj=j+1LoopEnd SubPrivate Sub Command2_Click()EndEnd Sub4Private Sub Command1_Click()For i = 1 To 5Picture1.Print Tab(3 * i); ""For j = 1 To

26、17 - i * 3Picture1.Print ""Next jPicture1.Print ""Picture1.PrintNext iPicture1.Print Tab(3 * i); ""For i = 5 To 1 Step -1Picture1.Print Tab(3 * i); ""For j = 1 To 17 - i * 3Picture1.Print ""Next jPicture1.Print ""Picture1.PrintNext iEnd Sub

27、Private Sub Command2_Click()EndEnd Sub5Private Sub Command1_Click()s=0:n=1For i=1 To 10n= n*i s=s+nNext iLabel3.Caption=sEnd SubPrivate Sub Command2_Click()EndEnd Sub6Private Sub Command1_Click()x=Val(Text1.Text)s=1:n=1t=x/nDo While t>0.000001s=s+tn=n+1t=t*x/nLoopLabel3.Caption=sEnd SubPrivate Su

28、b Command2_Click()EndEnd Sub第五章三、編程題1隨機產(chǎn)生10 個0100 之間的正整數(shù)，將它們按從大到小的順序排列。運行界面如圖5-3 所示。圖 5-32輸入整數(shù)N，顯示出具有N 行的“楊輝三角形”。一個具有9 行的楊輝三 角形運行效果如圖5-4所示。圖5-43從40 分100 分隨機產(chǎn)生50 名學(xué)生的物理課程考試成績，要求在列表框中顯示所有考試成績，并在圖片框中統(tǒng)計各分數(shù)段人數(shù)，即4059、6069、7079、8089、90100，顯示結(jié)果如圖5-5所示。圖5-55按圖5-6 所示，當(dāng)在文本框中輸入任意字母或數(shù)字時，單擊“統(tǒng)計”按鈕，將會在圖片框中打印出數(shù)字字符09

29、 出現(xiàn)的次數(shù)。圖5-66利用隨機數(shù)生成矩陣A（數(shù)據(jù)不一定相同，要求數(shù)據(jù)范圍在2080 之間），求A 的轉(zhuǎn)置矩陣。運行界面如圖5-7 所示（分別在圖片框中顯示）。圖5-76建立含有4 個命令按鈕的控件數(shù)組，當(dāng)單擊某個命令按鈕時，分別顯示不同的圖形或結(jié)束操作?？丶Q及相關(guān)屬性如表5-1 所示，程序運行界面如圖5-8 所示。圖5-8答案:三、編程題1方法1:Private Sub Command1_Click()Dim x(1 To 10) As IntegerPrintPrint "原始數(shù)據(jù)："For i = 1 To 10x(i) = Int(Rnd * 101)Print

30、 x(i);Next iPrint: PrintPrint "排序數(shù)據(jù)："For i = 1 To 9For j = i + 1 To 10If x(i) < x(j) Thent = x(i)x(i) = x(j)x(j) = tEnd IfNext jPrint x(i);Next iPrint x(10)End Sub方法2:Private Sub Command1_Click()Dim x(1 To 10) As IntegerClsPrintRandomizePrint "原始數(shù)據(jù)："For i = 1 To 10x(i) = Int(R

31、nd * 101)Print x(i);Next iPrint: PrintPrint "排序數(shù)據(jù)："For i = 1 To 9Max = iFor j = i + 1 To 10If x(Max) < x(j) Then Max = jNext jt = x(Max): x(Max) = x(i): x(i) = tNext iFor i = 1 To 10Print x(i);Next iEnd Sub2Private Sub Command1_Click()Dim a() As Integern = Val(Text1.Text)ReDim a(1 To n,

32、 1 To n) As IntegerFor i = 1 To na(i, 1) = 1: a(i, i) = 1Next iFor i = 3 To nFor j = 2 To i - 1a(i, j) = a(i - 1, j - 1) + a(i - 1, j)Next jNext iFor i = 1 To nFor j = 1 To iPicture1.Print Tab(j * 5 - 4); a(i, j);Next jPicture1.PrintNext iEnd Sub3Private Sub Command1_Click()Dim 成績(50),統(tǒng)計(5 To 9) As

33、IntegerRandomizeFor i=1 To 50成績(i)=Int(Rnd*61)+40List1.AddItem 成績(i)分段=成績(i)10Select Case 分段Case 4 To 5統(tǒng)計(5)=統(tǒng)計(5)+1Case 6 To 8統(tǒng)計(分段)=統(tǒng)計(分段)+1Case 9 To 10統(tǒng)計(9)=統(tǒng)計(9)+1End SelectNext iPicture1.Print " 分段成績結(jié)果為："Picture1.PrintPicture1.Print "40 - 59 的人數(shù)為："統(tǒng)計(5)Picture1.Print "6

34、0 - 69 的人數(shù)為："統(tǒng)計(6)Picture1.Print "70 - 79 的人數(shù)為："統(tǒng)計(7)Picture1.Print "80 - 89 的人數(shù)為："統(tǒng)計(8)Picture1.Print "90 - 100 的人數(shù)為："統(tǒng)計(9)End SubPrivate Sub Command2_Click()EndEnd Sub4Private Sub Command1_Click()Dim num(9) As IntegerDim i%,m%,j%,c As String*1,s$m=Len(Text1.Text)

35、For i=1 To mc=Mid(Text1.Text, i, 1)If c>="0" And c<="9" Thenj=Val(c)num(j)=num(j)+1End IfNext iFor i=0 To 9If num(i)<>0 ThenPicture1.Print "數(shù)字"i;"出現(xiàn)的次數(shù)為："num(i)End IfNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub5Private Sub Command1_Click()Di

36、m a(4,4),b(4,4) As IntegerFor i=1 To 4For j=1 To 4a(i,j)=Int(Rnd*61+20)b(j,i)=a(i,j)Picture1.Print a(i,j)Next jPicture1.PrintNext iFor i=1 To 4For j=1 To 4Picture2.Print b(i,j)Next jPicture2.PrintNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub6Private Sub Command1_Click(Index As Integer)Picture1

37、.ClsPicture1.FillStyle=6Select Case IndexCase 0Picture1.Print "畫直線"Picture1.Line (2,2)-(7,7)Case 1Picture1.Print "畫矩形"Picture1.Line (2,2)-(7,7),BFCase 2Picture1.Print "畫圓"Picture1.Circle (4.5,4.5),3.5,1Case ElseEndEnd SelectEnd SubPrivate Sub Form_Load()Picture1.Scale (

38、0,0)-(10,10) '設(shè)置坐標系End Sub第六章四、編程題1求P 的值。運行界面如圖:2設(shè)a 為一個整數(shù)，如果能使a2 的低位與a 相同，則稱a 為“守形數(shù)”。例如：5225，252625，則5 和25 都是守形數(shù)。試編寫一個函數(shù)過程，利用該過程查找1100之間的所有守形數(shù)。運行界面如圖3某班有40 名學(xué)生，按學(xué)號順序輸入了39 名學(xué)生的入學(xué)成績（注：可使用隨機函數(shù)生成39 個0100 之間的數(shù)據(jù)），學(xué)號為12號的學(xué)生成績沒有輸入。請將12 號學(xué)生的入學(xué)成績插入到指定位置。運行界面如圖。4編寫一個子過程Delstr(s1,s2)，將字符串s1 中出現(xiàn)的子字符串s2 刪除，結(jié)果

39、還存放在s1 中。例如，s1="I am a student"，s2="am",結(jié)果為"I a student"。運行界面如圖。答案:四、編程題1Option ExplicitPrivate Function sum(i As Integer) As IntegerDim sum2 As IntegerDim j As IntegerFor j=1 To isum2=sum2+jNext jsum=sum2End FunctionPrivate Sub command1_click()Dim i As IntegerDim sum1

40、As DoubleFor i=1 To 10sum1=sum1+1/sum(i)Next iPrintPrint Tab(5);"P="sum1End Sub2Option ExplicitPrivate Sub find(x As Integer)Dim i As Integer, j As IntegerDim n As LongDim duc As String, s As StringPrintPrint "1 到" x; "之間的守形數(shù)有："For i = 1 To xs = LTrim(Str(i)n = i * iduc

41、 = Right(Str(n), Len(s)If i = Val(duc) ThenPrint i;End IfNext iEnd SubPrivate Sub Command1_Click()Dim x As Integerx = InputBox("請輸入X 值")Call find(x)End Sub3Dim score(1 To 30) As IntegerPublic Sub insert(n As Integer)For i = 29 To n Step -1 score(i + 1) = score(i)Next is = InputBox("請輸

42、入插入成績")score(n) = sEnd SubPrivate Sub Command1_Click()Dim num As IntegerDim i As Integernum = InputBox("請輸入插入 的學(xué)號:", "輸入")Call insert(num)For i = 1 To 30pic2.Print score(i);If i Mod 10 = 0 Then pic2.PrintNext iEnd SubPrivate Sub form_Load()RandomizeDim i As Integerpic1.AutoR

43、edraw = TrueFor i = 1 To 29score(i) = Int(101 * Rnd)pic1.Print score(i);If i Mod 10 = 0 Then pic1.PrintNext iEnd Sub4Option ExplicitPrivate Sub delstr(s1 As String,s2 As String)Dim n1 As Integer,n2 As Integer,i As Integern1=Len(s1)n2=Len(s2)i=1Do While i<n1-n2+1If Mid(s1,i,n2)=s2 Thens1=Left(s1,i

44、-1) & Mid(s1,i+n2)Elsei=i+1End IfLoopEnd SubPrivate Sub command1_click()Dim t1 As String,t2 As Stringt1=Text1.Textt2=Text2.Textdelstr t1,t2Label3.Caption="操作結(jié)果是：" & t1End Sub第七章三、編程題2利用圖7-1 所示的窗體界面建立學(xué)生成績順序文件Score.txt。題目要求的路徑答案:三、編程序2Private Sub Form_Load()Open "Score.txt"

45、 For Output As #1End SubPrivate Sub Command1_Click()Dim num As String*6,name As String*8,score As Integernum=Text1.Textname=Text2.Textscore=Val(Text3.Text)Write #1,num,name,scoreText1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusEnd SubPrivate Sub Command2_Click()Clos

46、e #1EndEnd Sub第八章二、編程題1建立主菜單“功能”，建立二級菜單“打開文件”、“保存文件”、“用星號畫菱形”和“退出”，在文本框中分別實現(xiàn)以上菜單的功能。程序運行界面如圖8-1 所示。圖8-12.(刪除)答案:二、編程題1首先在“菜單編輯器”中建立題目要求的菜單，實現(xiàn)各菜單功能的參考代碼如下：“用星號畫菱形”菜單的代碼：Private Sub MnuDraw_Click()Text1.Text=""For i=1 To 10For j=1 To iText1.Text=Text1.Text & " "NextFor j=1 To 1

47、0Text1.Text=Text1.Text & "*"NextText1.Text=Text1.Text & Chr(13) & Chr(10)NextEnd Sub“退出”菜單的代碼：Private Sub MnuExit_Click()EndEnd Sub“打開文件”菜單的功能代碼：Private Sub MnuOpen_Click()Dim strFileName As StringDim str As StringDlgCtrl.DialogTitle="打開"DlgCtrl.Filter="*.txt|*.T

48、XT"DlgCtrl.ShowOpenIf DlgCtrl.FileName="" ThenMsgBox "您沒有選擇文件！",vbOKOnlyElseIf strFileName<>"" ThenCloseEnd IfText1.Text=""strFileName=DlgCtrl.FileNameOpen strFileName For Input As #1Do While Not EOF(1)Line Input #1,strText1.Text=Text1.Text & Ch

49、r(13) & Chr(10) & strLoopClose #1End IfEnd Sub“保存文件”菜單的功能代碼：Private Sub MnuSave_Click()Dim strNewFile As StringstrNewFile="文件.txt"Open strNewFile For Output As #2Print #2,Text1.TextClose #2End Sub第九章三、編程題1請按圖9-3 在“畫圖示例”窗體中添加一個圖片框，再添加兩個命令按鈕（Command1 和Command2）。單擊“畫線”，得到一個寬和高都是2 000

50、的圖片框，并對圖片框清屏并畫一條從左上角到右下角的對角線；單擊“畫橢圓”按鈕，得到一個寬為1 500 高為2 000 的圖片框，圖片框清屏并畫中心為(750,1000)、半徑為600、縱橫比為2 的橢圓（坐標系為默認坐標）。（a） （b）圖9-32創(chuàng)建一個繪圖程序。程序運行界面如圖9-4 所示。當(dāng)程序運行時，單擊“顯示”按鈕，在窗體上的圖片框中繪制出,即3.14,3.14區(qū)間的正弦曲線。要求將圖片框的坐標系定義為左上角為(4,2)，右下角為(4,2)，并在圖片框中畫出坐標的x 軸和y 軸。圖9-43李薩如曲線，其數(shù)學(xué)表達式為x=r*sin(2t),y=r*sin(3t),其中r>0。繪制

51、r=0.5 ,0<=t<=2時的李薩如曲線,程序運行結(jié)果如圖9-5 所示。圖9-54程序運行時，窗體的邊界不管怎么調(diào)整，都能以窗體的中心位置為圓心，以窗體或?qū)挘▋烧咧械妮^小值）的1/3 為半徑繪制一個三色圓， 程序運行界面如9-6 所示。圖9-65應(yīng)用Circle 方法在窗體上繪制有圓環(huán)構(gòu)成的藝術(shù)圖案，構(gòu)造算法：將一個半徑為r 的圓等分為n 份，以這個n 個等分點為圓心，以r1 為繪制半徑繪制n 個圓，r1為第一個圓的90%。設(shè)置圓的半徑r為窗體高度的1/4，圓心在窗體的中心，等分圓周為40 份。運行結(jié)果如圖9-7 所示。圖9-76用PSet 方法繪制方程組y1=5x2+2x+3

52、和y2=x+1 的曲線，求解方程，定義坐標系的左上角為(-2,4)，右下角為(2,-2)結(jié)果如圖9-8 所示。圖9-87. 在一個窗體上繪制同心圓，要求在程序運行時無論怎么調(diào)整窗體大小，同心圓總在窗體中間。同心圓隨機取顏色，同心圓的半徑大小取隨機數(shù)。運行結(jié)果如圖9-9 所示。圖9-98用Line 方法在圖片框中畫隨機射線，如圖9-9 所示。答案:三、編程題1Private Sub Command1_Click()Form1.Caption="畫圖示例"Picture1.Width=2000Picture1.Height=2000Picture1.ClsPicture1.Li

53、ne (0,0)-(2000,2000)End SubPrivate Sub Command2_Click()Form1.Caption="畫圖示例"Picture1.Width=1500Picture1.Height=2000Picture1.ClsPicture1.Circle (750,1000),600,2End Sub2Private Sub Command1_Click()Dim i As SinglePicture1.Scale (-4,2)-(4,-2)Picture1.Line (-4,0)-(4,0)Picture1.Line (0,2)-(0,-2)P

54、icture1.CurrentX=0.2Picture1.CurrentY=-0.1Picture1.Print "0"Picture1.CurrentX=-3.15Picture1.CurrentY=-0.1Picture1.Print "-"Picture1.CurrentX=3.15Picture1.CurrentY=-0.1Picture1.Print ""Picture1.CurrentX=0.2Picture1.CurrentY=0.9Picture1.Print "1"Picture1.CurrentX=0.2Picture1.CurrentY=-0.8Picture1.Print "-1"For i=-3.142 To 3.142 Step 0