vb程序填空題50頁

1、三、填空題1、【程序說明】下列程序顯示所有3個數(shù)碼各不相同的3位數(shù)，要求按緊湊格式每行顯示15個數(shù)，并統(tǒng)計(jì)有多少個這樣的三位數(shù)。PrivateSubForm_Click()DimnAsInteger,aAsInteger,bAsInteger,cAsIntegerDimxAsIntegerFora=0to9個位數(shù)數(shù)碼 Forb=0To9十位數(shù)數(shù)碼Forc=-1-IfabAndbcAndacThenx=a+10*(b+10*c) n=-2-3- Ifnmod15=0ThenPrintEndIfNextc,b,aPrint總共有這樣的三位數(shù);n;個EndSub1、1 to 92、n+1或1+n n

2、+1或1+n：1 to 9：1 to 93、print x;2、【程序說明】簡單窗體是密碼檢驗(yàn)程序。程序運(yùn)行時，用戶在文本框輸入密碼，單擊確定按鈕對密碼進(jìn)行檢驗(yàn)。密碼正確后，標(biāo)簽label2顯示“密碼正確”；若密碼不正確，標(biāo)簽顯示“密碼錯誤”，若密碼輸入錯誤達(dá)3次，將自動退出程序。PrivateSubCommand1_Click()確定按鈕StaticnAsInteger-const-1-mypwdAsString=123456預(yù)設(shè)密碼為自定義常量n=n+1Label2.Visible=TrueIf-_ text1.text=mypwd_ -ThenLabel2.Caption=密碼正確Els

3、eIfn 3 ThenLabel2.Caption=密碼錯誤！Text1.Text=Else-end-3-EndIfEndIfEndSub1、CONST 2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text1 3、End3、【程序說明】在組合框中選擇形狀后，窗體中控件Shape1的形狀和邊框線作相應(yīng)變化。程序運(yùn)行時如下圖PrivateSubCombo1_Click()Shape1.Shape=Combo1.List(-combol1.listindex-1-)-2-=Int(Rnd*7)EndSubPrivateSubForm_L

4、oad()DimIAsIntegerForI=0To5:-3-:NextIEndSub1、Combo1.ListIndex 2、Shape1.BorderStyle 3、Combo1.AddItem Str(I)或Combo1.list(I)=I4、【程序說明】右擊窗體則打開Windows自帶的計(jì)算器“C:windowscalc.exe”；單擊“退出”按鈕時將右擊窗體的次數(shù)寫入磁盤文件,并結(jié)束程序運(yùn)行。-1-PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfButton=2Thenn=n+1

5、:Shell“C:windowscalc.exe”EndSubPrivateSubCommand1_Click()OpenC:a1.datFor-2-Print#1,n:Close#1-3-EndSub1、dim n as integer 2、output as #1 3、end三、填空題 (請把正確的選項(xiàng)填入試題前的空格中) 第1題：【程序說明】 單擊窗體后，在窗體上輸出以下圖形:PrivateSubForm_Click()DimI%,j%,st$ForI=1To-1-st=Chr$(65+I-1)PrintTab(10-I);Forj=1ToIPrintst;Nextj-2-NextIFo

6、rI=7To1Step-1st=Chr$(65+I-1)PrintTab(10-I);Forj=1To-3-Printst;NextjPrintNextIEndSub1、662、Print 3、I第2題：【程序說明】窗體是簡易文本編輯器程序。通過文本框和剪貼板實(shí)現(xiàn)全選、復(fù)制、粘貼和刪除操作。PrivateSubCommand1_Click()全選按鈕Text1.SelStart=0Text1.SelLength=-1-Text1.SetFocusCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueEndSubPrivat

7、eSubCommand2_Click()復(fù)制按鈕Clipboard.ClearClipboard.SetTextText1.SelTextCommand3.Enabled=TrueText1.SetFocusEndSubPrivateSubCommand3_Click()粘貼按鈕Text1.SelText=-2-Text1.SetFocusEndSubPrivateSubCommand4_Click()刪除按鈕-3-Command2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseEndSubPrivateSubForm_Loa

8、d()Command2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseEndSubPrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfText1.SelLength0ThenCommand2.Enabled=TrueCommand4.Enabled=TrueElseCommand2.Enabled=FalseCommand4.Enabled=FalseEndIfEndSub1、Len(Text1.Text)或Len(Text1

9、)2、Clipboard.GetText3、Text1.SelText = 第3題：【程序說明】自制一個簡單的圖片瀏覽器。在窗體上建立一個圖片框控件、一個時鐘控件和一個命令按鈕。運(yùn)行時，顯示第一張圖片，單擊“瀏覽”按鈕每隔1秒在圖片框中顯示另一張圖片，顯示到最后一張圖片時，又從第一張開始顯示。（假設(shè)在C:Windows目錄下有1.bmp、2.bmp、8.bmp這樣8張圖片需顯示）DimIAsIntegerPrivateSubForm_Load() I= -1- Picture1.Picture=LoadPicture(c:windows1.bmp) Picture1.AutoSize=True

10、EndSubPrivateSubTimer1_Timer() IfI= 7 Then -2- Else I=1 EndIf Picture1.Picture=-3-EndSub1、12、I=I+1或I=1+I3、LoadPicture(c:windows & I & .bmp)或LoadPicture(c:windows + trim(str(I) + .bmp)第4題：【程序說明】文件c:a1.dat中存放若干個學(xué)生信息的記錄（行），按Command1按鈕后，查找文件中姓名與輸入姓名相同的記錄，找到則刪除該記錄。PrivateSubCommand1_Click()DimbsAsString,

11、csAsStringOpenc:a1.dat-1-Opentemp.datForOutputAs#2bs=InputBox(輸入學(xué)生姓名)DoWhileNotEof(1) LineInput#1,cs ifInStr(cs,Trim(bs)=-2-Thenprint#2,csLoopClose#1:Close#2Kill-3-Name“temp.dat”as“c:a1.dat”EndSub1、For Input As #12、03、c:a1.dat三、填空題 1：【程序說明】 該程序執(zhí)行后，輸出一個右上三角元素（含對角線）為1，其余元素為0 的55的矩陣。 Private Sub Form_C

12、lick() Dim a(1 To 5, 1 To 5) As Integer Dim I As Integer, j As Integer For I = 1 To 5 For j = 1 To 5 If -1- Then -2- End If Next j Next I For I = 1 To 5 For j = 1 To 5 Form2.Print ; a(I, j); Next j -3- Next I End Sub 1、I=I 2、a(I,j)=1 3、print 2：【程序說明】 如圖，程序運(yùn)行時，用戶可以在文本框中輸入文本，單擊command1“添加”按鈕后將文本中輸入的內(nèi)容

13、加到列表框的末尾，用戶選某列表框的某一個列表項(xiàng)后，單擊command2“刪除”按鈕，將刪除該列表項(xiàng)；如果沒有任何一項(xiàng)選中，將有出錯提示先選擇，再刪除！。 Private Sub Command1_Click() 添加按鈕 If Len(Text1.Text) 0 Then -1- Text1.Text = Text1.SetFocus End If End Sub Private Sub Command2_Click() 刪除按鈕 If -2- Then MsgBox 先選擇，再刪除！ Else -3- End If End Sub 1、 List1.AddItem Text1.Text 2、

14、List1.ListIndex = -1 3、List1.RemoveItem List1.ListIndex 3：【程序說明】 自制一個簡單的圖片瀏覽器。在窗體上建立一個圖片框控件、一個時鐘控件和一個命令按鈕。運(yùn)行時，顯示第一張圖片，單擊“瀏覽”按鈕每隔1秒在圖片框中顯示另一張圖片，顯示到最后一張圖片時，又從第一張開始顯示。（假設(shè)在C:Windows目錄下有1.bmp、2.bmp、8.bmp這樣8張圖片需顯示） Dim -1- As Integer Private Sub Form_Load() I = 1 Picture1.Picture = LoadPicture(c:windows1.

15、bmp) Picture1.AutoSize = True End Sub Private SubTimer1_ -2- If -3- Then I =I+1 Else I = 1 End If Picture1.Picture = LoadPicture(c:windows & I & .bmp) End Sub 1、I 2、Timer() 3、I = 7或I=-1- If List1.Selected(i) = True Then -2- End If -3- Wend End Sub 1、0 2、List1.RemoveItem I 3、i = i - 1 第3題：【程序說明】 自制一個

16、簡單的圖片瀏覽器。在窗體上建立一個圖片框控件、一個時鐘控件和一個命令按鈕。運(yùn)行時，顯示第一張圖片，單擊“瀏覽”按鈕每隔1秒在圖片框中顯示另一張圖片，顯示到最后一張圖片時，又從第一張開始顯示。（假設(shè)在C:Windows目錄下有1.jpg、2.jpg、8.jpg這樣8張圖片需顯示） Dim i As Integer Private Sub Form_Load() i = 1 Picture1.Picture = -1- Picture1.AutoSize = True End Sub Private Sub Timer1_Timer() If i = 7 Then i =i+1 Else i =

17、1 End If -2- End Sub Sub pic() Dim fn As String fn = c:windows & i & .jpg Picture1.Picture = -3- End Sub 1、LoadPicture(c:windows1.jpg) 2、Call pic或pic 3、LoadPicture(fn) 第4題：【程序說明】在窗體內(nèi)設(shè)置一個彈出式菜單，分別對文本框進(jìn)行“顯示時間”、“顯示日期”和“清空”操作。m1為不可見菜單項(xiàng)，m11為其子菜單（共項(xiàng)，均同名，索引值依次為0，1，2）。鼠標(biāo)右擊窗體后顯示彈出式菜單。 Private Sub Form_Load()

18、Timer1.Enabled = False 鎖定定時器（時間間隔已設(shè)置為1秒） End Sub Private Sub m11_Click(Index As Integer) Select Case Index Case 0 : Timer1.Enabled =-1- Case 1 Timer1.Enabled = False : Text1.Text= 日期： + -2- Case 2 Text1.Text = End Select End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ x As

19、Single, y As Single) If Button = 2 Then -3-, 2 End Sub Private Sub Timer1_Timer() Text1.Text = 時間： + Time End Sub 1、True 2、Date 3、PopUpMenu m1 三、填空題 第1題：【程序說明】 以下程序執(zhí)行后將產(chǎn)生一個66的轉(zhuǎn)置矩陣，將二維數(shù)組中所有行和對應(yīng)列的元素進(jìn)行交換。 Private Sub Form_Click() Dim a(1 To 6, 1 To 6) As Integer Dim i As Integer, j As Integer Form1.Pri

20、nt 原始數(shù)據(jù) For i = 1 To 6 For j = 1 To 6 a(i, j) = Int(Rnd * 10) Form1.Print a(i, j); Next j Form1.Print Next i For i = 2 To 6 For j = 1 To - 1 - - 2 - Next j Next i Form1.Print 轉(zhuǎn)置后數(shù)據(jù) For i = 1 To 6 For j = 1 To 6 - 3 - Next j Form1.Print Next i End Sub Public Sub Swap(a As Integer, b As Integer) Dim t

21、emp As Integer temp = a a = b b = temp End Sub 1、I 2、Call Swap(a(I, j), a(j, I)或.Swap a(I, j), a(j, I) 3、Print a(i, j); 第2題：【程序說明】 本程序利用1個定時器、1個文本框和2個命令按鈕制作一個動態(tài)表。各控件名稱取缺省值，控件Command1、Command2標(biāo)題分別為“開始”、“結(jié)束”。運(yùn)行時，單擊“開始”按鈕后表開始每分鐘計(jì)一次時，并在文本框上顯示總分鐘數(shù)；單擊“結(jié)束”按鈕后，計(jì)時結(jié)束，在窗體上顯示出運(yùn)行的時間（折算成小時、分鐘，不計(jì)算秒數(shù)）。 Dim x as lon

22、g Private Sub Form_Load() Timer1.Interval = 60000: Timer1.Enabled = False End Sub Private Sub Command1_Click() Cls x = 0 -1- End Sub Private Sub Command2_Click() Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = -2- m = x mod 60 Print 運(yùn)行了 + Str(h) + 小時 + Str(m) + 分 End Sub Priv

23、ate Sub Timer1_Timer() -3- Text1.text = x End Sub 1、Timer1.enabled=true 2、x60 3、x=x+1 第3題：【程序說明】 程序運(yùn)行時界面如下圖，紅桃、梅花、方塊、黑桃的圖形文件在界面設(shè)計(jì)時已經(jīng)在屬性窗口中設(shè)置好，而且使用的是Image1控件數(shù)組，程序運(yùn)行時，單擊Image1時，Image2顯示相應(yīng)的圖片，同時在Picture1中用藍(lán)色顯示哪個圖案被選中的文字信息。 Private Sub Image1_Click(Index As Integer) -1- Picture1.FontSize = 20 -2- = vbBl

24、ue Picture1.Cls -3- Case 0 Picture1.Print 紅桃被選中 Case 1 Picture1.Print 草花被選中 Case 2 Picture1.Print 方片被選中 Case 3 Picture1.Print 黑桃被選中 End Select End Sub 1、Image2.Picture =Image1(Index).Picture 2、Picture1.ForeColor 3、Select Case Index 第4題：【程序說明】程序運(yùn)行時，通過單擊窗體顯示“字體”對話框，并對文本框的字體 、字號和字效等進(jìn)行設(shè)置。 Private Sub Fo

25、rm_Click() -1-259 CommonDialog1.Action =-2- Text1.FontBold =-3- Text1.FontItalic = CommonDialog1.FontItalic Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize End Sub 1、CommonDialog1.Flags 2、4 3、CommonDialog1.FontBold 三、填空題 第1題：【程序說明】 以下程序執(zhí)行后將輸出100到200之間所有的素?cái)?shù)，并統(tǒng)計(jì)素?cái)?shù)的個數(shù) Pr

26、ivate Sub Form_Click() Dim i%, j%, k%, t% t為統(tǒng)計(jì)素?cái)?shù)的個數(shù) Dim b As Boolean For i = 100 To 200 b = True k= - 1 - j = Int(Sqr(i) Do While k = j And b If i Mod k = 0 Then - 2 - End If - 3 - Loop if b=true then t = t + 1 Form1.Print i End If Next i Print t=; t End Sub 1、2 2、b = False 3、k = k + 1 第2題：【程序說明】 下列

27、程序運(yùn)行時，單擊Command1(0)后，清空組合框原有內(nèi)容，從外部文件中讀入的數(shù)據(jù)顯示在組合框中，如圖所示。單擊Command1(1)后，將組合框中的各表項(xiàng)輸出到外部文件；單擊Command1(2)后，將組合框中文本框部分的文本添加作為組合框的表項(xiàng)；單擊Command1(3)后，將組合框中選中的表項(xiàng)刪除。 Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 -1- Open d:aaa.txt For Input As #1 Do While Not EOF(1) Line Input #1, a$ Co

28、mbo1.AddItem a$ Loop Close #1 Case 1 Open d:aaa.txt For Output As #1 For I% = 0 To -2- Print #1, Combo1.List(I%) Next I% Close #1 Case 2 添加 Combo1.AddItem Combo1.Text Case 3 刪除 -3- End Select End Sub 1、Combo1.Clear 2、Combo1.ListCount - 1 3、Combo1.RemoveItem Combo1.ListIndex 第3題：【程序說明】 程序運(yùn)行后，鼠標(biāo)多次在圖片框

29、內(nèi)拖動后，繪制出多個綠色邊框矩形，填充樣式在“實(shí)心”、“透明”間交替變換。 -1- Private Sub Picture1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) x0 = X: y0 = Y End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If -2-Then Picture1.FillStyle = 0 Else Pictur

30、e1.FillStyle = 1 End If -3- End Sub 1、Dim x0 As Single, y0 As Single或Dim x0!, y0! 2、Picture1.FillStyle 0或Picture1.FillStyle=1 3、Picture1.Line (x0, y0)-(X, Y), RGB(0, 255, 0), B 第4題：【程序說明】設(shè)計(jì)一個簡單的圖片瀏覽程序。單擊窗體后，顯示“打開文件”對話框，選中一個圖片文件后，將其顯示在圖片框中。要求“打開文件”對話框只能顯示bmp文件或gif文件。 Private Sub Form_Click() CommonDi

31、alog1.DialogTitle =”打開圖片文件” CommonDialog1.InitDir=”c:Picture” -1-=bmp文件|*.bmp|gif文件|*.gif -2- Picture1.Picture=LoadPicture(-3-) End Sub 1、CommonDialog1.Filter 2、CommonDialog1.ShowOpen或CommonDialog1.Action=1 3、CommonDialog1.FileName 三、填空題 第1題：【程序說明】 下列程序的功能是找出被5、7除，余數(shù)為1的最小5個正整數(shù)。 Private Sub Form_Click() Dim Ncount%, n% Ncount =-1- n = 1 Do n = n + 1 If -2- Then Print n Ncount = Ncount + 1 End If Loop Until -3-=5 End Sub 1、0 2、n Mod 5 = 1 And