vb程序填空題

1、三、填空題 1、【程序說明】下列程序顯示所有3個數(shù)碼各不相同的3位數(shù)，要求按緊湊格式每行顯示15個數(shù)，并統(tǒng)計有多少個這樣的三位數(shù)。Private Sub Form_Click() Dim n As Integer, a As Integer, b As Integer, c As Integer Dim  x As Integer For  a =

2、0 to 9    '個位數(shù)數(shù)碼        For b = 0 To 9      '十位數(shù)數(shù)碼          For c = -1-      

3、            If  a<>b And b<>c And a<>c Then                 x =a+10*(b+10*c)   

4、60;                 n = -2-                -3-               

5、;      If n mod 15 = 0 Then Print             End If Next c,b,a  Print "總共有這樣的三位數(shù)" n; "個"End Sub1、1 to 92

6、、n+1或1+n n+1或1+n：1 to 9：1 to 93、print x;2、【程序說明】窗體是密碼檢驗程序。程序運行時，用戶在文本框輸入密碼，單擊確定按鈕對密碼進(jìn)行檢驗。密碼正確后，標(biāo)簽label2顯示“密碼正確”；若密碼不正確，標(biāo)簽顯示“密碼錯誤”，若密碼輸入錯誤達(dá)3次，將自動退出程序。Private Sub Command1_Click()    '確定按鈕    Static n As Integer   

7、0;-1-mypwd As String = "123456"        '預(yù)設(shè)密碼為自定義常量    n = n + 1    Label2.Visible = True    If  -2- Then   

8、;      Label2.Caption = "密碼正確"    Else        If n < 3 Then            Label2.Caption = "密碼錯誤！"&#

9、160;           Text1.Text = ""         Else           -3-        End If 

10、60;  End IfEnd Sub1、CONST 2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text1 3、End3、【程序說明】在組合框中選擇形狀后，窗體中控件Shape1的形狀和邊框線作相應(yīng)變化。程序運行時如下圖Private Sub Combo1_Click()  Shape1.Shape =  = Combo1.List(-1-)  -2- = Int(Rnd&

11、#160;* 7)End SubPrivate Sub Form_Load()  Dim I As Integer  For I = 0 To 5:-3-: Next IEnd Sub1、Combo1.ListIndex 2、Shape1.BorderStyle 3、Combo1.AddItem Str(I)或Combo1.list(I)=I4、【程序說明】右擊窗體則打開Windows自帶的計算器“C:wi

12、ndowscalc.exe”；單擊“退出”按鈕時將右擊窗體的次數(shù)寫入磁盤文件,并結(jié)束程序運行。-1-Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _   X As Single, Y As Single)   If Button = 2 Then n = n&#

13、160;+ 1: Shell  “C:windowscalc.exe”End SubPrivate Sub Command1_Click()  Open "C:a1.dat" For-2-  Print #1,n: Close #1  -3- End Sub1、dim n as integer 2、output as #1 3、end三、填空題 (請把正確的選項填入試題前的空格

14、中) 第1題：【程序說明】 單擊窗體后，在窗體上輸出以下圖形:Private Sub Form_Click()    Dim I%, j%, st$    For I = 1 To -1-         st = Chr$(65 + I - 1)  

15、;      Print Tab(10 - I);        For j = 1 To I            Print st; " "     

16、60;  Next j        -2-    Next I    For I =7 To 1 Step -1        st = Chr$(65 + I - 1)  &#

17、160;     Print Tab(10 - I);        For j = 1 To -3-             Print st; " "    

18、0;   Next j        Print    Next IEnd Sub1、662、Print 3、I第2題：【程序說明】窗體是簡易文本編輯器程序。通過文本框和剪貼板實現(xiàn)全選、復(fù)制、粘貼和刪除操作。Private Sub Command1_Click()  '全選按鈕    Text1.SelStart =&#

19、160;0    Text1.SelLength = -1-    Text1.SetFocus    Command2.Enabled = True    Command3.Enabled = True    Command4.Enabled = TrueEnd SubPrivate Sub

20、60;Command2_Click() '復(fù)制按鈕    Clipboard.Clear    Clipboard.SetText Text1.SelText    Command3.Enabled = True    Text1.SetFocusEnd SubPrivate Sub Command3_Click() '粘貼按鈕 &

21、#160;  Text1.SelText = -2-    Text1.SetFocusEnd SubPrivate Sub Command4_Click() '刪除按鈕    -3-     Command2.Enabled = False    Command3.Enabled = False&#

22、160;   Command4.Enabled = FalseEnd SubPrivate Sub Form_Load()Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseEnd SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As&#

23、160;Integer, X As Single, Y As Single)    If Text1.SelLength <> 0 Then        Command2.Enabled = True        Command4.Enabled =&#

24、160;True    Else        Command2.Enabled = False        Command4.Enabled = False    End IfEnd Sub1、Len(Text1.Text)或Len(Text1)2、Clipboard.GetText3、Text

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

26、ndows1.bmp") Picture1.AutoSize = TrueEnd SubPrivate Sub Timer1_Timer() If I <= 7 Then     -2-  Else     I = 1 End If Picture1.Picture = -3- End Sub1、12、I=I+1或I=1+I3、LoadPicture(

27、"c:windows" & I & ".bmp")或LoadPicture("c:windows" + trim(str(I) + ".bmp")第4題：【程序說明】文件c:a1.dat中存放若干個學(xué)生信息的記錄（行），按Command1按鈕后，查找文件中姓名與輸入姓名相同的記錄，找到則刪除該記錄。Private Sub Command1_Click()  Dim bs As String,cs As Stri

28、ng  Open "c:a1.dat"-1-   Open "temp.dat" For Output As #2  bs = InputBox("輸入學(xué)生姓名")  Do While Not Eof(1)     Line Input #1, cs 

29、0;   if InStr(cs, Trim(bs) =-2-Then print #2,cs  Loop  Close #1: Close #2  Kill-3-  Name  “temp.dat” as “c:a1.dat”End Sub1、For Input As #12、03、"c:a1.dat"三、填空題 1：【程序說明】 該程序執(zhí)行后，

30、輸出一個右上三角元素（含對角線）為1，其余元素為0 的5×5的矩陣。 Private Sub Form_Click() 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<=j或j&g

31、t;=I 2、a(I,j)=1 3、print 2：【程序說明】 如圖，程序運行時，用戶可以在文本框中輸入文本，單擊command1“添加”按鈕后將文本中輸入的內(nèi)容加到列表框的末尾，用戶選某列表框的某一個列表項后，單擊command2“刪除”按鈕，將刪除該列表項；如果沒有任何一項選中，將有出錯提示"先選擇，再刪除！"。 Private Sub Command1_Click() 添加按鈕 If Len(Text1.Text) <> 0 Then -1- Text1.Text = "" Text1.SetFocus End If End Sub

32、Private Sub Command2_Click() 刪除按鈕 If -2- Then MsgBox "先選擇，再刪除！" Else -3- End If End Sub 1、 List1.AddItem Text1.Text 2、List1.ListIndex = -1 3、List1.RemoveItem List1.ListIndex 3：【程序說明】 自制一個簡單的圖片瀏覽器。在窗體上建立一個圖片框控件、一個時鐘控件和一個命令按鈕。運行時，顯示第一張圖片，單擊“瀏覽”按鈕每隔1秒在圖片框中顯示另一張圖片，顯示到最后一張圖片時，又從第一張開始顯示。（假設(shè)在C:Wi

33、ndows目錄下有1.bmp、2.bmp、8.bmp這樣8張圖片需顯示） Dim -1- As Integer Private Sub Form_Load() I = 1 Picture1.Picture = LoadPicture("c:windows1.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 &

34、amp; ".bmp") End Sub 1、I 2、Timer() 3、I <= 7或I<8 4：【程序說明】本程序統(tǒng)計3100之間所有素數(shù)的個數(shù)；最后將素數(shù)的個數(shù)寫入順序文件e:dataout.txt中。 Private Sub Command1_Click() Dim i As Integer, flag As Boolean Dim t1 As Integer, t2 As Integer -1- i = 0 For t1 = 3 To 100 flag = True For t2 = 2 To Int(Sqr(t1) If -2- then flag

35、= False Next t2 If flag then i = i+1 End If Next t1 -3- Close #1 End Sub1、 open "e:dataout.txt" for output as #1或open "e:dataout.txt" for append as #1 2、t1 mod t2=0 3、Write #1,I或print #1,I 三、填空題 第1題：【程序說明】 以下過程是將一個英文句子的每個單詞的首字母都變成大寫。從鍵盤上任意輸入一條英文句子，將句子中的每個單詞的首字母都變成大寫例如：輸入"I a

36、m a good student"。則要求輸出"I Am A Good Student"。 Public Sub Uppersen() Dim oldsen As String, newsen As String Dim char As String, lastchar As String Dim k As Integer, i As Integer oldsen = InputBox("請輸入英文句子：") k = -1- '以空格作為單詞的界定，空格后的字母轉(zhuǎn)換為大寫字母 lastchar = -2- For i = 1 To k

37、char = -3- If lastchar = " " Then char = UCase(char) End If newsen = newsen & char lastchar = char Next i Form1.Print "input:" oldsen Form1.Print "output:" newsen End Sub 1、Len(oldsen) 2、" " 3、Mid(oldsen, I, 1) 第2題：【程序說明】 以下程序可以將列表框中同時選中的多個列表項刪除，順序從最后一項開始往

38、前刪除，請將程序補(bǔ)充完整。 Private Sub cmdDel_Click() Dim i As Integer i = List1.ListCount - 1 While 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題：【程序說明】 自制一個簡單的圖片瀏覽器。在窗體上建立一個圖片框控件、一個時鐘控件和一個命令按鈕。運行時，顯示第一張圖片，單擊“瀏覽”按鈕每隔1秒在圖片框中顯示另一張圖片，顯示到最后一張圖片時，又從第

39、一張開始顯示。（假設(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 = 1 End If -2- End Sub Sub pic() Dim fn As String fn = "c:windows" & i &

40、amp; ".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為不可見菜單項，m11為其子菜單（共項，均同名，索引值依次為0，1，2）。鼠標(biāo)右擊窗體后顯示彈出式菜單。 Private Sub Form_Load() Timer1.Enabled = False '鎖定定時器（時間間隔已設(shè)

41、置為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 Single, y

42、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)生一個6×6的轉(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 F

43、orm1.Print "原始數(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

44、 As Integer, b As Integer) Dim temp 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é)束”。運行時，單擊“開始”按鈕后表開始每分鐘計一次時，并在文本框上顯示總分鐘數(shù)；單擊“結(jié)束”按鈕后，計時結(jié)束，在窗體上顯示出運行的

45、時間（折算成小時、分鐘，不計算秒數(shù)）。 Dim x as long 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 "運行了&q

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

47、Image1_Click(Index As Integer) -1- Picture1.FontSize = 20 -2- = vbBlue 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).P

48、icture 2、Picture1.ForeColor 3、Select Case Index 第4題：【程序說明】程序運行時，通過單擊窗體顯示“字體”對話框，并對文本框的字體 、字號和字效等進(jìn)行設(shè)置。 Private Sub Form_Click() -1-259 CommonDialog1.Action =-2- Text1.FontBold =-3- Text1.FontItalic = CommonDialog1.FontItalic Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontS

49、ize End Sub 1、CommonDialog1.Flags 2、4 3、CommonDialog1.FontBold 三、填空題 第1題：【程序說明】 以下程序執(zhí)行后將輸出100到200之間所有的素數(shù)，并統(tǒng)計素數(shù)的個數(shù) Private Sub Form_Click() Dim i%, j%, k%, t% 't為統(tǒng)計素數(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

50、- 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題：【程序說明】 下列程序運行時，單擊Command1(0)后，清空組合框原有內(nèi)容，從外部文件中讀入的數(shù)據(jù)顯示在組合框中，如圖所示。單擊Command1(1)后，將組合框中的各表項輸出到外部文件；單擊Command1(2)后，將組合框中文本框部分的文本添加作為組合框的表項；單擊Command1(3)后，將組合框中選中的表項刪除。 Private S

51、ub 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$ Combo1.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 

52、9;添加 Combo1.AddItem Combo1.Text Case 3 '刪除 -3- End Select End Sub 1、Combo1.Clear 2、Combo1.ListCount - 1 3、Combo1.RemoveItem Combo1.ListIndex 第3題：【程序說明】 程序運行后，鼠標(biāo)多次在圖片框內(nèi)拖動后，繪制出多個綠色邊框矩形，填充樣式在“實心”、“透明”間交替變換。 -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 Picture1.FillStyle = 1 End If -3- End Sub 1、Dim x0 As Single