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

填空： （1）程序说明】自制一个简单的图片浏览器。要求在窗体上建立一个影像框和两个命令按钮， 命令按钮上显示文字“上一张”和“下一张”。 运行时，显示第一张图片，“上一张”按钮不能响应，单击“下一张”按钮显示另一张图片， “上一张”按钮能响应。显示到最后一张图片时，“下一张”按钮不能响应。 （假设在C:\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片） Dim n As Byte Private Sub Command1_Click() If n 8 Then Command2.Enabled = True n = n - 1 __1.call pic If n = 1 Then Command1.Enabled =__2.False : n = 1 End Sub Private Sub Command2_Click() _3.n = n + 1 If n = 1 Then Command1.Enabled = True Call pic If n = 8 Then Command2.Enabled = False End Sub Private Sub Form_Load() n=1: Command1.Enabled = False: Image1.Picture =4.LoadPicture(c:\windows\1.bmp) End Sub Sub 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 Sub Private Sub Combo2_Click() __2.Shape1.BorderStyle ___= Combo2.List(Combo2.ListIndex) End Sub Private 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 i End 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 m = MsgBox(太大了，请继续猜！) If x = r Then Print 猜中了！共猜了 + _1____+ 次 If i = 5 Then Print 太棒了！ Else Print 加油！ _1____ End If Next i End Sub （4）【程序说明】在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间”、 “显示日期”、“颜色”、“字体”和“清空”操作。m1为不可见菜单项，m11 为其子菜单（共5项，均同名，索引值依次为0，1，2，3，4）。 Private Sub Form_Load() Timer1.Enabled = False 锁定定时器（时间间隔已设置为1秒） End Sub Private Sub m11_Click(Index As Integer) Select Case Index Case 0 : Timer1.Enabled = True Case 1 Timer1.Enabled = __1___: Text1.Text= 日期：