单选题
窗体上有一个名称为Picture1的图片框控件，一个名称为Ti merl 的计时器控件，其Interval 属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下：
窗体上有一个名称为Picture1的图片框控件，一个名称为Ti merl 的计时器控件，其Interval 属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下：
Private Sub Ti mer1＿Ti mer（）
Static n As Integer
n ＝n ＋1
If（n／5）＝Int （n／5）And Picturel ．Left ＜Forml ．Width Then
Picture1．Left ＝Picture1．Left ＋100
End If
End Sub
分析以上程序，以下叙述中正确的是（ ）。
发布于 2022-05-11 09:59:30
登录后免费查看答案
关注者
0
被浏览
25
1 个回答
推荐阅读
-
在窗体上有一个文本框控件，名称为Txt Ti me ，一个计时器控件，名称为Ti mer1，要求每一秒钟在文本框中显示一次当前的时间。程序如下：Private Sub Ti mer1＿（）Txt Ti me ．text ＝Ti meEnd Sub在横线上应填入的内容是（ ）。
2022-05-11 关注 0 浏览7 1答案
-
在窗体上画一个名称为Label1、标题为"Visual Basic 考试"的标签，两个名称分别为Co mmand1和Co mmand2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Ti mer1的计时器控件，并把其Interval 属性设置为500，如图所示。 编写如下程序：Private Sub Form＿Load（）Ti mer1．Enabled ＝falseEnd SubPrivate Sub Co mmand1＿Click（）Ti mer1．Enabled ＝TrueEnd SubPrivate Sub Ti mer1＿Ti mer（）If Label1．Left ＜Width ThenLabel1．Left ＝label1．Left ＋20ElseLabel1．Left ＝0End IfEnd Sub程序运行后单击"开始"按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是（ ）。
2022-05-11 关注 0 浏览9 1答案
-
Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()' Timer1.Enabled = ?End SubPrivate Sub Form_Load()' Timer1.Interval =?End SubPrivate Sub Timer1_Timer() Picture1.Left = Picture1.Left + 200' If Picture1.Left > ? Then' Picture1.Left = ? End If HScroll1.Value = Picture1.LeftEnd Sub
2022-05-11 关注 0 浏览17 1答案
-
窗体上有一个名称为Picture1的图片框控件，一个名称为Label1的标签控件。如图所示。 现有如下程序：Public Sub display （x As Control）If TypeOf xis Label Thenx．Caption ＝＂计算机等级考试＂Elsex．Picture ＝Loadpicture（＂pic ．jpg＂）EndIfEnd SubPrivate Sub Label1＿Click（）Call display（Label1）End SubPrivate Sub Picture1＿Click（）Call display（Picture1）End Sub对以上程序，下列叙述中错误的是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
设有如下通用过程：Public Sub Fun(a() As Integer, x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click()Dim arr(5) As Integer, n As IntegerFor i = 1 To 5arr(i) = i + iNextFun arr, nText1.Text = Str(n)End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。
2022-05-11 关注 0 浏览8 1答案
-
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Click()Text1.Text = "VB程序设计"End SubPrivate Sub Text1_Change()Picture1.Print "VB Programming"End Sub程序运行后，单击窗体，则在文本框中显示的内容是 ______ ，而在图片框中显示的内容是 ______ 。
2022-05-11 关注 0 浏览18 1答案
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor I=0 To 50i=i+3n=n+1If i>10 Then xit forNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是
2022-05-11 关注 0 浏览15 1答案
-
Private Sub mnuOper_Click(Index As Integer) 'Select Case ? Case 1 Form2.Show Form1.Hide Case 2 ' Timer1.Enabled =? Case 3 End End SelectEnd SubPrivate Sub Timer1_Timer() Picture1.Left = Picture1.Left + 100 'If Picture1.Left + Picture1.Width >= ? Then 'Picture1.Left = ? End IfEnd SubPrivate Sub Command1_Click() Form1.Show Form2.HideEnd Sub
2022-05-11 关注 0 浏览22 1答案
-
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Load()Text1.Text=”计算机”End SubPrivate Sub Text1_Change()Picture1.Print“等级考试”End Sub 程序运行后，在文本框中显示的内容是______ ，而在图片框中显示的内容是______。
2022-05-11 关注 0 浏览9 1答案
-
窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval 属性值为5000，Enabled属性值是True。Timer1的事件过程如下：Private Sub Timer1 Timer（ ）Static flag As IntegerIf Flag=0 Then Flag=1Flag=-flagIf flag=1 ThenText1．ForeColor=＆HFF＆ ＆HFF＆为红色ElseText1．ForeColor=＆HCOO＆ ＆HCOO＆为绿色End IfEnd Sub以下叙述中正确的是（ ）。
2022-05-11 关注 0 浏览14 1答案
