《程序設(shè)計(jì)語(yǔ)言VB綜合設(shè)計(jì)題及答案(共7頁(yè)).doc》由會(huì)員分享，可在線閱讀，更多相關(guān)《程序設(shè)計(jì)語(yǔ)言VB綜合設(shè)計(jì)題及答案(共7頁(yè)).doc（8頁(yè)珍藏版）》請(qǐng)?jiān)趨R文網(wǎng)上搜索。

1、精選優(yōu)質(zhì)文檔-傾情為你奉上程序設(shè)計(jì)語(yǔ)言VB綜合設(shè)計(jì)題1. 編制程序?qū)崿F(xiàn)：在窗體上，單擊按鈕1，在文本框中動(dòng)態(tài)顯示當(dāng)前時(shí)間；單擊按鈕2，則停止動(dòng)態(tài)顯示；單擊按鈕3，清除文本框內(nèi)容。提示：可用定時(shí)器控制時(shí)間，用系統(tǒng)函數(shù)Now顯示時(shí)間（如Text1.Text = Now）。2. 編制程序：求出100-200之間所有可以被3整除的數(shù)的總和，將結(jié)果用消息框顯示輸出。3. 編制程序：利用輸入框輸入10個(gè)不同的整數(shù)，將它們從小到大排序，并打印輸出。4. 編制程序?qū)崿F(xiàn)：設(shè)計(jì)在一框架中包含三個(gè)復(fù)選框，只有當(dāng)其1,3選中而2未選中時(shí)，才在Text1中顯示Hello字符。5. 編一程序能實(shí)現(xiàn)在窗體上打印出如下圖所示

2、的圖形。AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB6. 編一程序用于判斷一正整數(shù)是否為素?cái)?shù)。（提示：只能被1和本身整除的正整數(shù)稱為素?cái)?shù)。為了判斷一個(gè)數(shù)n是不是素?cái)?shù)，可以將n被2到sqr(n)之間的所有整數(shù)除，如果都除不盡，則n就是素?cái)?shù)，否則n是非素?cái)?shù)。）7. 選用If和Select判斷結(jié)構(gòu)中任意一種編寫(xiě)滿足下列條件的計(jì)稅要求的程序：少于1600元，免稅；1601-5000元，征2%的稅；多于5000元，超過(guò)部分征5%的稅。8. 有a、b、c三個(gè)數(shù)，編一程序?qū)崿F(xiàn)通過(guò)文本框給a、b賦值；再調(diào)用能完成a、b比較大小的子過(guò)程，用c將大數(shù)回傳。要求按值傳送a、b。9. 編一程序用于

3、求所有的水仙花數(shù)。 所謂水仙花數(shù)是指一個(gè)3位數(shù)，其各位數(shù)字立方和等于該數(shù)本身。例如：153就是一水仙花數(shù)，因?yàn)?53 = 13+53+33。10. 設(shè)計(jì)一彈出式菜單，用于設(shè)置窗體的背景色，背景色包含白色、黃色、紅色三種顏色。11. 編寫(xiě)程序?qū)崿F(xiàn)：輸入三角形的三條邊a,b,c的值，根據(jù)其數(shù)值判斷能否構(gòu)成三角形。如果能，則判斷三角形是否是直角三角形，若是則計(jì)算該直角三角形的面積。提示：判斷能否構(gòu)成三角形的方法是，求最長(zhǎng)的一邊，判斷它的邊長(zhǎng)是否小于另外兩邊邊長(zhǎng)之和；或求最短的一邊，判斷它的邊長(zhǎng)是否大于另外兩邊之差。12. 編寫(xiě)程序：通過(guò)四個(gè)命令按鈕Command1-Command4，在圖片框Pict

4、ure1內(nèi)分別實(shí)現(xiàn)畫(huà)點(diǎn)、畫(huà)線、畫(huà)圓、擦除等功能。13. 編寫(xiě)程序?qū)崿F(xiàn)：在窗體上單擊按鈕1，可通過(guò)輸入對(duì)話框輸入兩個(gè)字符串；單擊按鈕2，將輸入的兩個(gè)字符串連接為一個(gè)字符串，并計(jì)算該字符串長(zhǎng)度，然后在消息框中顯示出來(lái)。14. 編一程序：用三個(gè)文本框分別輸入a、b、c，求一元二次方程ax2+bx+c=0的解x1和x2，只包括實(shí)根。15. 編一程序：利用輸入對(duì)話框輸入兩個(gè)正整數(shù)，求最大公約數(shù)。答案1. Private Sub Command1_Click() Timer1.Interval = 5 Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Cli

5、ck() Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click() Timer1.Enabled = False Text1.Text = End SubPrivate Sub Timer1_Timer() Text1.Text = NowEnd Sub2. Private Sub Command1_Click()Dim i, s As IntegerFor i = 100 To 200 If i Mod 3 = 0 Then s = s + iNext iMsgBox (100-200之間所有可以被3整除的數(shù)的總和為： & Str(s

6、)End Sub3. Private Sub Command1_Click()Dim a(9) , i, j, m As IntegerFor i = 0 To 9 a(i) = Val(InputBox(第 & i + 1 & 個(gè)數(shù)：)Next iFor i = 0 To 9 For j = i + 1 To 9 If a(i) a(j) Then m = a(i) a(i) = a(j) a(j) = m End If Next jNext iFor i = 0 To 9 Print a(i);Next iEnd Sub4. Private Sub Command1_Click()If C

7、heck1.Value = 1 And Check2.Value = 1 And Check3.Value = 0 ThenText1.Text = HelloEnd IfEnd Sub5. Private Sub Command1_Click()Dim i, j As IntegerFor i = 1 To 4 For j = 1 To (2 * i - 1) Print A; Next j PrintNext iFor i = 4 To 1 Step -1 For j = (2 * i - 1) To 1 Step -1 Print B; Next j PrintNext iEnd Sub

8、6. Private Sub Command4_Click() Dim n, k, i, temp As Integer n = InputBox(請(qǐng)輸入一個(gè)正整數(shù)) k = Int(Sqr(n) i = 2 temp = 0 Do While i = k And temp = 0 If n Mod i = 0 Then temp = 1 Else i = i + 1 End If Loop If temp = 0 Then Print n; 是一個(gè)素?cái)?shù) Else Print n; 不是素?cái)?shù) End IfEnd Sub7. Private Sub Command1_Click()Dim n,

9、p As Singlen = Val(Text1.Text)Select Case n Case Is b Then c = a Else c = bEnd SubPrivate Sub Command1_Click() Dim a, b, c As Single a = Val(Text1.Text) b = Val(Text2.Text) Call c1(a, b, c) Print cEnd Sub9. Private Sub Command1_Click()Dim a, b, c, n As IntegerFor n = 100 To 999 a = Int(n / 100) b =

10、Int(n - a * 100) / 10) c = n - (a * 100 + b * 10) If n = a 3 + b 3 + c 3 Then Print n; NextEnd Sub10. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu MenuA End IfEnd SubPrivate Sub B_Click(Index As Integer) Select Case Index Case

11、 1 Form1.BackColor = vbWhite Case 2 Form1.BackColor = vbYellow Case Else Form1.BackColor = vbRed End SelectEnd Sub11. Private Sub Command1_Click()Dim a(2), i, j, m As IntegerFor i = 0 To 2 a(i) = Val(InputBox(第 & i + 1 & 條邊為：)Next iFor i = 0 To 2 For j = i + 1 To 2 If a(i) a(j) Then m = a(i) a(i) =

12、a(j) a(j) = m End If Next jNext iIf a(0) + a(1) a(2) Then If a(0) 2 + a(1) 2 = a(2) 2 Then Print 能構(gòu)成直角三角形,面積為： & a(0) * a(1) / 2 Else Print 能構(gòu)成三角形，但不是直角三角形 End IfElse Print 不能構(gòu)成三角形End IfEnd Sub12. Private Sub Command1_Click()Picture1.PSet (Picture1.Width / 2, Picture1.Height / 2)End SubPrivate Sub C

13、ommand2_Click()Picture1.Line (0, 0)-(Picture1.Width, Picture1.Height)End SubPrivate Sub Command3_Click()Picture1.Circle (Picture1.Width / 2, Picture1.Height / 2), 800End SubPrivate Sub Command4_Click()Picture1.ClsEnd Sub13. Dim a, b, c As StringPrivate Sub Command1_Click()a = InputBox(請(qǐng)輸入第一個(gè)字符串)b = InputBox(請(qǐng)輸入第二個(gè)字符串)End SubPrivate Sub Command2_Click()c = a + bMsgBox 連接后的字符串為： & c & 。長(zhǎng)度為： & Len(c)End Sub14. Private Sub Command4_Click()