【正文】 70 Visual Basic程序設計教程 Private Sub Command1_Click() Const PI = Dim Man, Alpha() As Single, Sum As Integer, i As Integer Dim A As Single, B As Single, N As Integer 39。a起始角， b扇形終止角 Man = Array(5, 7, 10, 8, 15) 39。包含各段人數(shù)的數(shù)組元素初始化 Sum = 0: N = UBound(Man) + 1 39。n為元素個數(shù) For i = 0 To N – 1: Sum = Sum + Man(i) : Next i 39。求總?cè)藬?shù) ReDim Alpha(N 1) 39。存放各人數(shù)段對應扇形的弧度 A = 39。因負 0不能被表示，所以用 0的近似值 FillStyle = 0: = 0 39。窗體和圖片框都繪制實心圖形 For i = 0 To N 1 39。繪制扇形、圖片框中圖例及輸出人數(shù) Alpha(i) = 2 * PI * Man(i) / Sum 39。計算扇形對應的弧度 FillColor = QBColor(2 * i): = QBColor(2 * i) B = A + Alpha(i) 39。計算終止角的弧度 If B 2 * PI Then B = B 2 * PI 39?；《炔荒艽笥?2π Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleWidth / 4, , A, B 39。繪扇形 (0, i * / N) _ ( / 2, (i + 1) * / N), , B39。繪矩形 = i * / N 39。確定 Print位置 Man(i) 39。輸出人數(shù) A = B 39。將已輸出的終止角作下一次的起始角 Next i End Sub 71 Visual Basic程序設計教程 Private Sub Form_Load() ‘屬性初始化 = True: = True = ?各年齡段人員分布圖? = True = ( ) / 2 End Sub 其中 / n，表示 將圖片框的高度分成 n等分，每一份顯示 一個圖例。 72 Visual Basic程序設計教程 滾動顯示大圖片 【例 1013】編程：在圖片框中滾動顯示一張大的圖片或照片。運行界面如圖。 分析： 由于圖片框本身沒有滾動條，因此 要以圖片框為容器，添加滾動條。 為了能看清整個照片的大致圖像，可以使用一個 Stretch為 True的影像框控件。 73 Visual Basic程序設計教程 不能將查看照片的圖片框的 AutoSize設為 True，但又希望獲得照片上的某一區(qū)域圖案，解決的方法是再增加一個圖片框 Picture2，讓它的AutoSize設為 True，同時又讓它的 Visible屬性設為 False，只把它作為源圖片。 當滾動條滾動時，根據(jù)滾動條的值，把Picture2中與 Picture1相同大小的一塊區(qū)域，通過 PaintPicture方法復制到 Picture1中。 74 Visual Basic程序設計教程 Private Sub MovePic() 39。按滾動條的值復制圖片 , 1, 1, , _ , , , _ , End Sub 75 Visual Basic程序設計教程 Private Sub Command1_Click() ‘顯示按鈕 Dim s As String On Error GoTo A1 39。為防止輸入的文件標識有錯，設置出錯處理 = False 39。萬一文件標識有錯，先設它們不可見 s = InputBox(請輸入要顯示的文件的標識 (d:\path\)) If Len(Trim(s)) = 0 Then GoTo A1 39。不允許出現(xiàn)空格文件名 = LoadPicture(s) 39。加載源圖片 = 39。設置滾動條最大值 = Call Movepic: = True 39。設置 Picture1初始圖像，并可見 = 39。設置 Image1的顯示圖像 Exit Sub A1: MsgBox 文件名或路徑錯誤 !, vbCritical, 出錯 39。出錯處理 End Sub 76 Visual Basic程序設計教程 Private Sub Command2_Click() 39。退出按鈕 End End Sub Private Sub Form_Load() 39。初始化圖片框和影像框?qū)傩? = True: = False = True: = False = True End Sub Private Sub VScroll1_Change() 39。垂直滾動條改值時調(diào)用MovePic MovePic End Sub 77 Visual Basic程序設計教程 Private Sub HScroll1_Change() 39。水平滾動條改值時調(diào)用MovePic MovePic End Sub 程序運行時，只要輸入合法文件標識，并確實是圖片文件，就會正常顯示，否則給出出錯信息。 78 Visual Basic程序設計教程 靜夜四無鄰，荒居舊業(yè)貧。 , February 13, 2023 雨中黃葉樹，燈下白頭人。 20:53:4020:53:4020:532/13/2023 8:53:40 PM 1以我獨沈久，愧君相見頻。 :53:4020:53Feb2313Feb23 1故人江海別，幾度隔山川。 20:53:4020:53:4020:53Monday, February 13, 2023 1乍見翻疑夢，相悲各問年。 :53:4020:53:40February 13, 2023 1他鄉(xiāng)生白發(fā)，舊國見青山。 2023年 2月 13日星期一 下午 8時 53分 40秒 20:53: 1比不了得就不比，得不到的就不要。 。 2023年 2月 下午 8時 53分 :53February 13, 2023 1行動出成果，工作出財富。 2023年 2月 13日星期一 8時 53分 40秒 20:53:4013 February 2023 1做前，能夠環(huán)視四周；做時，你只能或者最好沿著以腳為起點的射線向前。 下午 8時 53分 40秒 下午 8時 53分 20:53: 沒有失敗，只有暫時停止成功！。 , February 13, 2023 很多事情努力了未必有結(jié)果，但是不努力卻什么改變也沒有。 20:53:4020:53:4020:532/13/2023 8:53:40 PM 1成功就是日復一日那一點點小小努力的積累。 :53:4020:53Feb2313Feb23 1世間成事，不求其絕對圓滿，留一份不足，可得無限完美。 20:53:4020:53:4020:53Monday, February 13, 2023 1不知香積寺，數(shù)里入云峰。 :53:4020:53:40February 13, 2023 1意志堅強的人能把世界放在手中像泥塊一樣任意揉捏。 2023年 2月 13日星期一 下午 8時 53分 40秒 20:53: 1楚塞三湘接，荊門九派通。 。 2023年 2月 下午 8時 53分 :53February 13, 2023 1少年十五二十時，步行奪得胡馬騎。 2023年 2月 13日星期一 8時 53分 40秒 20:53:4013 February 2023 1空山新雨后，天氣晚來秋。 下午 8時 53分 40秒 下午 8時 53分 20:53: 楊柳散和風，青山澹吾慮。 , February 13, 2023 閱讀一切好書如同和過去最杰出的人談話。 20:53:4020:53:4020:532/13/2023 8:53:40 PM 1越是沒有本領(lǐng)的就越加自命不凡。 :53:4020:53Feb2313Feb23 1越是無能的人，越喜歡挑剔別人的錯兒。 20:53:4020:53:4020:53Monday, February 13, 2023 1知人者智，自知者明。勝人者有力，自勝者強。 :53:4020:53:40February 13, 2023 1意志堅強的人能把世界放在手中像泥塊一樣任意揉捏。 2023年 2月 13日星期一 下午 8時 53分 40秒 20:53: 1最具挑戰(zhàn)性的挑戰(zhàn)莫過于提升自我。 2023年 2月 下午 8時 53分 :53February 13, 2023 1業(yè)余生活要有意義，不要越軌。 2023年 2月 13日星期一 8時 53分 40秒 20:53:4013 February 2023 1一個人即使已登上頂峰，也仍要自強不息。 下午 8時 53分 40秒 下午 8時 53分 20:53: MOMODA POWERPOINT Lorem ipsum dolor sit amet, consectetur adipiscing elit. Fusce id urna blandit, eleifend nulla ac, fringilla purus. Nulla iaculis tempor felis ut cursus. 感 謝 您 的 下 載 觀 看 專家告訴