填空题 【程序说明】自制一个简单的图片浏览器。要求在窗体上建立一个影像框和两个命令按钮,命令按钮上显示文字“上一张”和“下一张”。 运行时,显示第一张图片,“上一张”按钮不能响应,单击“下一张”按钮显示另一张图片,“上一张”按钮能响应。显示到最后一张图片时,“下一张”按钮不能响应。(假设在C:/Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片) Dim n As Byte Private Sub Command1_Click 1 If n < 8 Then Command2.Enabled = True n = n - 1 ( ) If n < = 1 Then Command1.Enabled =( ): n = 1 End Sub Private Sub Command2_Click 2 ( ) If n> = 1 Then Command1.Enabled = True Call pic If n = 8 Then Command2.Enabled = False End Sub Private Sub Form_Load 3 n=1: Command1.Enabled = False: Image1.Picture =( ) End Sub Sub pic 4 Dim fn As String fn = "c:/windows/" + Trim(str(n)) + ".bmp" Image1.Picture= ( ) End Sub
  • 1、
【正确答案】 1、Call pic 、False 、n = n 1 、LoadPicture("c:/windows/1.bmp")、LoadPicture(fn)    
【答案解析】