vb程序填空题

1、三、填空题 1、【程序说明】下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。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    '个位数数码        For b = 0 To 9      '十位数数码          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 "总共有这样的三位数" n; "个"End Sub1、1 to 92

6、、n+1或1+n n+1或1+n：1 to 9：1 to 93、print x;2、【程序说明】窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。Private Sub Command1_Click()    '确定按钮    Static n As Integer   

7、0;-1-mypwd As String = "123456"        '预设密码为自定义常量    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的形状和边框线作相应变化。程序运行时如下图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”；单击“退出”按钮时将右击窗体的次数写入磁盘文件,并结束程序运行。-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题：【程序说明】窗体是简易文本编辑器程序。通过文本框和剪贴板实现全选、复制、粘贴和删除操作。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() '复制按钮    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秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在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中存放若干个学生信息的记录（行），按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("输入学生姓名")  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：【程序说明】 该程序执行后，

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“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击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秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在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：【程序说明】本程序统计3100之间所有素数的个数；最后将素数的个数写入顺序文件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- '以空格作为单词的界定，空格后的字母转换为大写字母 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、前删除，请将程序补充完整。 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、一张开始显示。（假设在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题：【程序说明】在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间”、“显示日期”和“清空”操作。m1为不可见菜单项，m11为其子菜单（共项，均同名，索引值依次为0，1，2）。鼠标右击窗体后显示弹出式菜单。 Private Sub Form_Load() Timer1.Enabled = False '锁定定时器（时间间隔已设

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题：【程序说明】 以下程序执行后将产生一个6×6的转置矩阵，将二维数组中所有行和对应列的元素进行交换。 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 "原始数据" 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 "转置后数据" 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个命令按钮制作一个动态表。各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按钮后，计时结束，在窗体上显示出运行的

45、时间（折算成小时、分钟，不计算秒数）。 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题：【程序说明】 程序运行时界面如下图，红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好，而且使用的是Image1控件数组，程序运行时，单击Image1时，Image2显示相应的图片，同时在Picture1中用蓝色显示哪个图案被选中的文字信息。 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题：【程序说明】程序运行时，通过单击窗体显示“字体”对话框，并对文本框的字体 、字号和字效等进行设置。 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题：【程序说明】 以下程序执行后将输出100到200之间所有的素数，并统计素数的个数 Private Sub Form_Click() Dim i%, j%, k%, t% 't为统计素数的个数 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)后，清空组合框原有内容，从外部文件中读入的数据显示在组合框中，如图所示。单击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题：【程序说明】 程序运行后，鼠标多次在图片框内拖动后，绘制出多个绿色边框矩形，填充样式在“实心”、“透明”间交替变换。 -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