计算机程序与设计选择题.doc

填空：（1）程序说明】自制一个简单的图片浏览器。要求在窗体上建立一个影像框和两个命令按钮，命令按钮上显示文字“上一张”和“下一张”。运行时，显示第一张图片，“上一张”按钮不能响应，单击“下一张”按钮显示另一张图片，“上一张”按钮能响应。显示到最后一张图片时，“下一张”按钮不能响应。（假设在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 _1.call pic 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(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）【程序说明】选择形状、边框后，图片框中控件Shape1作相应变化。界面设计如图9-1所示。Private Sub Combo1_Click() Shape1.Shape = Combo1.List(_1.Combo1.ListIndex _)End SubPrivate Sub 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）【程序说明】以下是一个简化了的猜数游戏程序，自动生成一个小于100的随机正整数与您用输入对话框输入的数进行对比，猜中后输出相关信息，过程结束。单击窗体则开始猜数，如要终止Visual Basic程序运行可以按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(请输入一个整数：) If x r Then m = MsgBox(太大了，请继续猜！) If x = r Then Print 猜中了！共猜了 + _1_+ 次 If i a(j) Then_2.Date 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）【程序说明】窗体上有两个命令按钮：Command1（显示）和Command2（退出）。下列程序运行时，“显示”按钮能响应，“退出”按钮不能响应；单击“显示”按钮后，在窗体上显示一个用字符“*”组成的5层的金字塔，同时“显示”按钮不能响应，“退出”按钮能响应。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 Command2_Click() EndEnd SubPrivate Sub Form_Load() Command1.Enabled=True _3.Exit ForEnd Sub（7）【程序说明】下列程序能在一定范围内找出所有素数，要求：文本框用来输入所要找的数的范围，且只能先在Text1（必须大于1）输入结束后才能在Text2（必须大于Text1中的数）中输入，按回车键表示输入结束。在Text2输入结束后，才能单击“Command1”（确定）命令按钮，并在窗体上输出该范围内的所有素数。以上过程可重复。Private Sub Form_Load() Command1.Enabled = False: _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) Then _1_ Next i Text1.Text = : Text2.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(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）【程序说明】利用1个定时器、1个标签和2个命令按钮制作一个动态秒表。各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后秒表开始计时，并在标签上显示总秒数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟和秒数）。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 Print 运行了 + Str(h) + 小时 + Str(m) + 分 + Str(s) + 秒End SubPrivate Sub Timer1_Timer() _1_ Label1.Caption = xEnd Sub（9）【程序说明】以下程序可以将列表框中同时选中的多个列表项删除，请将程序补充完整。Private Sub cmdDel_Click() i = 0 Do While i= Form1.Width Then_1_End Sub =（11）【程序说明】文件c:a1.dat中存放若干个学生信息的记录（行），按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(输入学生姓名) 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.datEnd Sub（12）【程序说明】右击窗体则打开Windows自带的计算器“C:windowscalc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件。_1.Dim n As IntegerPrivate 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）【程序说明】本程序求3100之间的所有素数（质数）并统计个数；同时将这些素数从小到大依次写入顺序文件e:dataout.txt；素数的个数显示在窗体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 flag = False Next t2 _3 .If flag Then coun = coun+1 Write #1, t1 End If Next t1 _4. Print coun Close #1End Sub（14）菜单控件能触发的事件是_click_事件。（15）在KeyDown事件和KeyUp事件中，通过_Shift_参数可以知道按了哪些组合键（16）KeyDown事件中有_2_个参数。（17）显示弹出式菜单的方法是_PopupMenu方法_。（18）VB可以响应三种键盘事件，分别是KeyPress事件、KeyDown事件和_KeyUp_事件。（19）通过设置菜单项的_Visible_属性为False，可以使它在运行时不可见。（20）要想使某一个普通窗体成为多文档窗体的子窗体，应将普通窗体的_MDIChild_属性设置为True。（21）MouseDown事件中有_4_个参数。（22）VB6.0能够建立下拉式菜单和_弹出式_菜单（23）命令Line(1200,1200)-step(1000,500),B执行后，CurrentX=_2200_。（24）文件号最大可取的值为_511_。（25）按文件中数据的编码方式,文件可分为ASCII文件和_二_进制文件。（26）msgbox函数的第三个参数是用来设置对话框的_标题_。（27）Dim a(1 to 5) As Integer所定义的数组元素的个数为_5个_。（28）命令Line(1200,1200)-step(1000,500),B执行后，CurrentY=_1700_。（29*）文本框的默认属性是_Text_。（30）窗体模块文件的扩展名是_frm_。（31）当文本框控件的MultiLine属性为_False_时，PassWordChar属性可用于设置密码。（32）默认情况下，VB6.0的主窗口由标题栏、菜单栏和_工具栏_组成。（33）更改窗体对象的_Caption_属性，可以修改该窗体的标题。（34）建立控件时系统自动给控件一个名称，第一个建立的命令按钮的默认名称是Command1_。（35）为了使某个文本框控件不能接收焦点，应将此控件的TabStop属性设置为_False_。（36