当前位置: 高中信息技术 / 综合题
  • 1. (2016·杭州模拟) 现要求编写VB程序,界面如图1所示,程序功能如下:单击开始暂时按钮Command1,图像控件Image1中的图片每隔5秒更换一张,再次单击Command1按钮,停止展示。  

    1. (1) 为达到每隔5秒更换一张图片的效果,应使用图2所示的空间工具箱中的(填写相应的编号),并将其Interval属性值设置为
    2. (2) 请根据题意讲下列程序补充完整

      Private Sub ()

        Dim i As Integer

        If Command1.Caption = "开始展示" Then

          Command1.Caption = "停止展示"

          Timer1.Enabled = Ture

        Else

          Command1.Caption = "开始展示"

                 

        End If

      End Sub

      Private Sub Timer1_Timer()

      i = i + 1

      If i > 5 Then i = 1

      Image1.Picture = LoadPicture(i & “.jpg”)

      End Sub

微信扫码预览、分享更方便