計(jì)算機(jī)程序與設(shè)計(jì)選擇題

1、文檔供參考，可復(fù)制、編制，期待您的好評(píng)與關(guān)注！ 填空：（1）程序說(shuō)明】自制一個(gè)簡(jiǎn)單的圖片瀏覽器。要求在窗體上建立一個(gè)影像框和兩個(gè)命令按鈕，命令按鈕上顯示文字“上一張”和“下一張”。運(yùn)行時(shí)，顯示第一張圖片，“上一張”按鈕不能響應(yīng)，單擊“下一張”按鈕顯示另一張圖片，“上一張”按鈕能響應(yīng)。顯示到最后一張圖片時(shí)，“下一張”按鈕不能響應(yīng)。（假設(shè)在C:Windows目錄下有1.bmp、2.bmp、8.bmp這樣8張圖片）Dim n As BytePrivate Sub Command1_Click() If n < 8 Then Command2.Enabled = True n = n - 1 _

2、1.call pic If n < = 1 Then Command1.Enabled =_2.False : n = 1End SubPrivate Sub Command2_Click() _3.n = n + 1 If n> = 1 Then Command1.Enabled = True Call pic If n = 8 Then Command2.Enabled = FalseEnd SubPrivate Sub Form_Load() n=1: Command1.Enabled = False: Image1.Picture =4.LoadPicture("

3、c:windows1.bmp") End SubSub pic() Dim fn As String fn = "c:windows" + Trim(str(n) + ".bmp" Image1.Picture= 5.LoadPicture(fn)End Sub=（2）【程序說(shuō)明】選擇形狀、邊框后，圖片框中控件Shape1作相應(yīng)變化。界面設(shè)計(jì)如圖9-1所示。Private Sub Combo1_Click() Shape1.Shape = Combo1.List(_1.Combo1.ListIndex _)End SubPrivate Sub

4、Combo2_Click()_2.Shape1.BorderStyle _= Combo2.List(Combo2.ListIndex)End SubPrivate Sub Form_Load() Dim i As Integer For i = 0 To 5: Combo1.AddItem Str(i): Next i For i = 0 To 6: _3.Combo2.AddItem Str(i)_: Next iEnd Sub（3）【程序說(shuō)明】以下是一個(gè)簡(jiǎn)化了的猜數(shù)游戲程序，自動(dòng)生成一個(gè)小于100的隨機(jī)正整數(shù)與您用輸入對(duì)話框輸入的數(shù)進(jìn)行對(duì)比，猜中后輸出相關(guān)信息，過(guò)程結(jié)束。單擊窗體則開(kāi)始猜

5、數(shù)，如要終止Visual Basic程序運(yùn)行可以按Ctrl+Break組合鍵。Private Sub Form_Click() Dim r As Integer, x As Integer, i As Integer Randomize : r =_1_ For i = 1 To 10 x = Val(InputBox("請(qǐng)輸入一個(gè)整數(shù)：") If x < r Then m = MsgBox("太小了，請(qǐng)繼續(xù)猜！") If x > r Then m = MsgBox("太大了，請(qǐng)繼續(xù)猜！") If x = r Then P

6、rint "猜中了！共猜了" + _1_+ "次" If i <= 5 Then Print "太棒了！" Else Print "加油！" _1_ End If Next iEnd Sub（4）【程序說(shuō)明】在窗體內(nèi)設(shè)置一個(gè)彈出式菜單，分別對(duì)文本框進(jìn)行“顯示時(shí)間”、“顯示日期”、“顏色”、“字體”和“清空”操作。m1為不可見(jiàn)菜單項(xiàng)，m11為其子菜單（共5項(xiàng)，均同名，索引值依次為0，1，2，3，4）。Private Sub Form_Load() Timer1.Enabled = False '鎖定定時(shí)

7、器（時(shí)間間隔已設(shè)置為1秒）End SubPrivate Sub m11_Click(Index As Integer) Select Case Index Case 0 : Timer1.Enabled = True Case 1 Timer1.Enabled = _1_: Text1.Text= "日期：" + 1_ Case 2 CommonDialog1.Action = 3 : Text1.ForeColor =_1_ Case 3 CommonDialog1.Flags = 256 '選擇字體范圍，否則出現(xiàn)運(yùn)行錯(cuò)誤 CommonDialog1.Action

8、 = 4 '打開(kāi)“字體”對(duì)話框 Text1.FontBold = CommonDialog1.FontBold '用修改后的屬性設(shè)置 Text1.FontItalic = CommonDialog1.FontItalic '文本框相應(yīng)屬性 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Case 4: Text1.Text = "" End SelectEnd SubPrivate Sub Form_MouseDown(Button As

9、Integer, Shift As Integer, _ x As Single, y As Single) If Button = 2 Then_, 2End SubPrivate Sub Timer1_Timer() Text1.Text = "時(shí)間：" + Time$End Sub（5）【程序說(shuō)明】窗體上已建立命令按鈕Command1（開(kāi)始）、Command2（結(jié)束）和文本框Text1，Text1中輸入字符個(gè)數(shù)不得超過(guò)100個(gè)。開(kāi)始運(yùn)行時(shí)，“結(jié)束”命令按鈕不能響應(yīng)；按“開(kāi)始”命令按鈕后，將文本框中的字符按其ASCII碼值由小到大順序從左到右重新排列，并在窗體上輸出重新

10、排列后的字符串，同時(shí)“結(jié)束”命令按鈕能響應(yīng)，“開(kāi)始”按鈕不能響應(yīng)。Private Sub Command1_Click() Dim n As Byte, i As Byte, j As Byte, p As Byte Dim a(100) As String * 1, str1 As String, t As String str1 = Text1.Text: n = Len(str1) For i = 1 To n:_ 1.False: Next i For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) > a(j) Then_2.Da

11、te Next j If p <> i Then t = a(i):_ 3.CommonDialog1.Color: a(p) = t Next i For i = 1 To n: Print a(i);: Next i _4.m1 Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Command2.Enabled = FalseEnd Sub（6）【程序說(shuō)明】窗體上有兩個(gè)命令按鈕：Command1（顯示）和Command2（退出）。下列程序運(yùn)行

12、時(shí)，“顯示”按鈕能響應(yīng)，“退出”按鈕不能響應(yīng)；單擊“顯示”按鈕后，在窗體上顯示一個(gè)用字符“*”組成的5層的金字塔，同時(shí)“顯示”按鈕不能響應(yīng)，“退出”按鈕能響應(yīng)。Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 5 Print Spc(5 - i); For j =_1.Int(Rnd*100) : Print "*" : Next j Print Next i Command1.Enabled = False _2.Str(i)End SubPrivate Sub Command

13、2_Click() EndEnd SubPrivate Sub Form_Load() Command1.Enabled=True _3.Exit ForEnd Sub（7）【程序說(shuō)明】下列程序能在一定范圍內(nèi)找出所有素?cái)?shù)，要求：文本框用來(lái)輸入所要找的數(shù)的范圍，且只能先在Text1（必須大于1）輸入結(jié)束后才能在Text2（必須大于Text1中的數(shù)）中輸入，按回車(chē)鍵表示輸入結(jié)束。在Text2輸入結(jié)束后，才能單擊“Command1”（確定）命令按鈕，并在窗體上輸出該范圍內(nèi)的所有素?cái)?shù)。以上過(guò)程可重復(fù)。Private Sub Form_Load() Command1.Enabled = False: _

14、1_End SubPrivate Sub Command1_Click() Dim n As Integer, m As Integer, i As Integer, p As Integer n = Val(Text1.Text): m = Val(Text2.Text) For i = n To m _1_ Do While p< = Int(Sqr(i) If i Mod p = 0 Then Exit Do Else p = p + 1 Loop If p > Int(Sqr(i) Then _1_ Next i Text1.Text = "": Tex

15、t2.Text = ""Text1.Enabled = True: Text2.Enabled = False Command1.Enabled = FalseEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If _1_Then Text1.Text = "" Else Text2.Enabled = True: Text1.Enabled = False End If End IfEnd SubPrivate Sub Text2_KeyPress(

16、KeyAscii As Integer) If _1_Then If Val(Text2.Text) <= Val(Text1.Text) Then Text2.Text = "" Else Text2.Enabled = False Command1.Enabled = True End If End IfEnd Sub（8）【程序說(shuō)明】利用1個(gè)定時(shí)器、1個(gè)標(biāo)簽和2個(gè)命令按鈕制作一個(gè)動(dòng)態(tài)秒表。各控件名稱(chēng)取缺省值，控件Command1、Command2標(biāo)題分別為“開(kāi)始”、“結(jié)束”。運(yùn)行時(shí)，單擊“開(kāi)始”按鈕后秒表開(kāi)始計(jì)時(shí)，并在標(biāo)簽上顯示總秒數(shù)；單擊“結(jié)束”按鈕后，計(jì)時(shí)結(jié)

17、束，在窗體上顯示出運(yùn)行的時(shí)間（折算成小時(shí)、分鐘和秒數(shù)）。Dim x As LongPrivate Sub Form_Load() Timer1.Interval = 1000: Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click() Cls x = 0 _1_End SubPrivate Sub Command2_Click() Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = _1_ m =_1_ s = x Mod 3600 Mod 60

18、 Print "運(yùn)行了" + Str(h) + "小時(shí)" + Str(m) + "分" + Str(s) + "秒"End SubPrivate Sub Timer1_Timer() _1_ Label1.Caption = xEnd Sub（9）【程序說(shuō)明】以下程序可以將列表框中同時(shí)選中的多個(gè)列表項(xiàng)刪除，請(qǐng)將程序補(bǔ)充完整。Private Sub cmdDel_Click() i = 0 Do While i<_1_ If List1.Selected(i) = True Then _ Else _1_ En

19、d If LoopEnd Sub（10）【程序說(shuō)明】本題是利用計(jì)時(shí)器控件來(lái)實(shí)現(xiàn)文字的水平移動(dòng)，要求：1）運(yùn)行時(shí)標(biāo)簽框內(nèi)的文字從窗體左邊向右邊移動(dòng)，當(dāng)標(biāo)簽框的左邊界超出窗體的右邊界時(shí)，從窗體的左邊進(jìn)入窗體（尾部先進(jìn)入）。（2）文字移動(dòng)時(shí)顏色不斷產(chǎn)生隨機(jī)變化。 Private Sub Form_Load() Form1.WindowState = 2 Timer1.Interval = 100End SubPrivate Sub Timer1_Timer() Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)_1_ = Label1.Le

20、ft + 150 If Label1.Left >= Form1.Width Then_1_End Sub =（11）【程序說(shuō)明】文件c:a1.dat中存放若干個(gè)學(xué)生信息的記錄（行），按Command1按鈕后，查找文件中姓名與輸入姓名相同的記錄，找到則刪除該記錄。Private Sub Command1_Click() Dim bs As String,cs As String Open "c:a1.dat" For Input As #1 Open "temp.dat" _1.For Output As #2 bs = InputBox(&quo

21、t;輸入學(xué)生姓名") Do While Not Eof(1) Line Input #1, cs if InStr(cs, Trim(bs) = _2.0 Then print #2,cs Loop Close #1: Close #2 Kill "c:a1.dat" Name _3."temp.dat" As "c:a1.dat"End Sub（12）【程序說(shuō)明】右擊窗體則打開(kāi)Windows自帶的計(jì)算器“C:windowscalc.exe”；單擊“退出”按鈕時(shí)將右擊窗體的次數(shù)寫(xiě)入磁盤(pán)文件。_1.Dim n As Integ

22、erPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then n = n + 1: Shell _2."C:windowscalc.exe" End SubPrivate Sub Command1_Click() Open "C:a1.dat" For _3.Output Print #1,n: Close #1 _4.EndEnd Sub（13）【程序說(shuō)明】本程序求3100之間的所有素?cái)?shù)（質(zhì)數(shù)）

23、并統(tǒng)計(jì)個(gè)數(shù)；同時(shí)將這些素?cái)?shù)從小到大依次寫(xiě)入順序文件e:dataout.txt；素?cái)?shù)的個(gè)數(shù)顯示在窗體Form1上。Private Sub Command1_Click() Dim coun As Integer, flag As Boolean Dim t1 As Integer, t2 As Integer _1. Open "e:dataout.txt" For Output As #1 coun = 0 For t1 = 3 To 100 flag = True For t2 = 2 To Int(Sqr(t1) If _2. t1 Mod t2 = 0 then fl

24、ag = False Next t2 _3 .If flag Then coun = coun+1 Write #1, t1 End If Next t1 _4. Print coun Close #1End Sub（14）菜單控件能觸發(fā)的事件是_click_事件。（15）在KeyDown事件和KeyUp事件中，通過(guò)_Shift_參數(shù)可以知道按了哪些組合鍵（16）KeyDown事件中有_2_個(gè)參數(shù)。（17）顯示彈出式菜單的方法是_PopupMenu方法_。（18）VB可以響應(yīng)三種鍵盤(pán)事件，分別是KeyPress事件、KeyDown事件和_KeyUp_事件。（19）通過(guò)設(shè)置菜單項(xiàng)的_Visible_屬性為False，可以使它在運(yùn)行時(shí)不可見(jiàn)。（20）要想使某一個(gè)普通窗體成為多文檔窗體的子窗體，應(yīng)將普通窗體的_MDIChild_屬性設(shè)置為T(mén)rue。（21）MouseDown事件中有_4_個(gè)參數(shù)。（22）VB6.0能夠建立下拉式菜單和_彈出式_菜單（23）命令"L