窗体上有一个名为Commandl的命令按钮和一个名为Timerl的计时器,并有下面的事件过程:
Private Sub Command1_Click()
Timerl.Enabled=True
EndSub
Private Sub Form_Load()
Timerl.Interval=10
Timerl.Enabled=False
End Sub
Private Sub Timerl_Timer()
Commandl.Left=Commandl.Left+10
End Sub
程序运行时,单击命令按钮,则产生的结果是( )。
发布于 2022-05-11 10:17:46
登录后免费查看答案
关注者
0
被浏览
13
1 个回答
推荐阅读
-
窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器,并有下面的事件过程:Private Sub Command1_Click( )Timer1.Enabled=TrueEnd SubPrivate Sub Form_Load( )Timer1.Interval=10Timer1.Enabled=FalseEnd SubPrivate Sub Timer1 Timer( )Command1.Left=Command1.Left+10End Sub程序运行时,单击命令按钮,则产生的结果是( )。
2022-05-11 关注 0 浏览15 1答案
-
窗体如图所示,其中汽车是名称为Imagel的图像框,命令按钮的名称为Command1,计时器的名称为Timerl,直线的名称为Linel。程序运行时,单击命令按钮,则汽车每0.1秒向左移动100,车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序,以便实现上述功能。 1)Timerl的Interval属性的值应事先设置为______2)Private Sub Command1_Click()Timerl.Enabled=TrueEnd SubPrivate Sub Timerl_Timer()If Imagel.Left>= ______ ThenImagel.Left= ______ -100End IfEnd Sub
2022-05-11 关注 0 浏览11 1答案
-
窗体上有一个名为Commandl的命令按钮,并有如下程序:Private Sub Command1_Click()Dim a(10), x%For k = 1 To 10a(k) = Int(Rnd * 90 + 10)x = x + a(k) Mod 2Next kPrint xEnd Sub程序运行后,单击命令按钮,输出结果是( )。
2022-05-11 关注 0 浏览13 1答案
-
窗体上有一个名为Commandl的命令按钮,并有如下程序:Private Sub Command1_Click()Dim a As Integer, b As Integera = 8b = 12Print fun(a, b); a; bEnd SubPrivate Function Fun(ByVal a As Integer, b As Integer) As Integera = a Mod 5b = b \ 5Fun = aEnd Function程序运行时,单击命令按钮,则输出结果是( )。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个命令按钮,其名称为Commandl。程序运行后,单击命令按钮,输出结果是( )。Private Sub pl (n As Integer)For i =n To 1Step =1x=Stri ng(i ,"*")Print xNext iEnd SubPrivate Sub Commandl_Click()pl(3)EndSub
2022-05-11 关注 0 浏览12 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答案
-
Private Sub Command1_Click()' Timer1.Enabled = ?End SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub HScroll1_Change()' ? .Interval = HScroll1.ValueEnd SubPrivate Sub Timer1_Timer()' Picture1.Left = ? + 10End Sub
2022-05-11 关注 0 浏览31 1答案
-
在窗体中有一个标签Lablel,标题为“测试进行中”,有一个命令按钮Commandl,事件代码如下:Private Sub Commandl Click( )Lablel.Caption=”标签”End SubPrivate Sub Form—Load( )Form.Caption=”举例”Commandl.Caption=”移动”End Sub打开窗体后,单击命令按钮,屏幕显示( )。
2022-05-13 关注 0 浏览14 1答案
-
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下程序:Public X As IntegerPrivate Sub Commandl Click( )x=10Call slCall s2MsgBox xEnd SubPrivate Sub sl( )x=x+20End SubPrivate Sub s2( )Dim x As Integerx=x+20End Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为( )。
2022-05-13 关注 0 浏览11 1答案
-
在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签,两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500,如图所示。 编写如下程序:Private Sub Form_Load()Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click()Timer1.Enabled=TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled=FalseEnd SubPrivate Sub Timer1_Timer()If Label1.Left<Width ThenLabel1.Left = Label1.Left + 20ElseLabel1.Left=0End IfEnd Sub程序运行后单击“开始”按钮,标签在窗体中移动。对于这个程序,以下叙述中错误的是
2022-05-11 关注 0 浏览17 1答案