单选题
在窗体上画一个名称为Label1、标题为"Visual Basic 考试"的标签，两个名称分别为Co mmand1和Co mmand2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Ti mer1的计时器控件，并把其Interval 属性设置为500，如图所示。
在窗体上画一个名称为Label1、标题为"Visual Basic 考试"的标签，两个名称分别为Co mmand1和Co mmand2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Ti mer1的计时器控件，并把其Interval 属性设置为500，如图所示。
编写如下程序：
Private Sub Form＿Load（）
Ti mer1．Enabled ＝false
End Sub
Private Sub Co mmand1＿Click（）
Ti mer1．Enabled ＝True
End Sub
Private Sub Ti mer1＿Ti mer（）
If Label1．Left ＜Width Then
Label1．Left ＝label1．Left ＋20
Else
Label1．Left ＝0
End If
End Sub
程序运行后单击"开始"按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是（ ）。
发布于 2022-05-11 10:00:20
登录后免费查看答案
关注者
0
被浏览
9
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答案
-
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Co mmand1，然后编写下列程序：Private Sub func（LAs Label）L .Caption ＝＂1234＂End SubPrivate Sub Form＿Load（）Label1．Caption ＝＂ABCDE＂Label2．Caption ＝10End SubPrivate Sub Co mmand1＿Click（）a＝Val（Label2．Caption）Call func（Label1）Label2．Caption ＝aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（ ）。
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub func(L As Label)L.Caption="1234"End SubPrivate Sub Form_Load()Label1.Caption="ABCDE"Label2.Caption=10End SubPrivate Sub Command1_Click()a=Val(Label2.Caption)Call func(Label1)Label2.Caption=aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为
2022-05-11 关注 0 浏览13 1答案
-
Dim flag As IntegerPrivate Sub Form_Load() flag = 0End SubPrivate Sub Command1_Click() If Command1.Caption = "移动" Then' Timer1.Enabled = ? Command1.Caption = "暂停" Else Timer1.Enabled = False Command1.Caption = "移动" End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Timer1_Timer() Select Case flag Case Is = 0' Label1.Left = Label1.Left ? 100 If Label1.Left + Label1.Width > = Form1.Width Then flag = 1 Case Is = 1' Label1.Left = Label1.Left ? 100 If Label1.Left < = 0 Then flag = 0 End SelectEnd Sub
2022-05-11 关注 0 浏览23 1答案
-
窗体上有一个名称为Picture1的图片框控件，一个名称为Ti merl 的计时器控件，其Interval 属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下：Private Sub Ti mer1＿Ti mer（）Static n As Integern ＝n ＋1If（n／5）＝Int （n／5）And Picturel ．Left ＜Forml ．Width ThenPicture1．Left ＝Picture1．Left ＋100End IfEnd Sub分析以上程序，以下叙述中正确的是（ ）。
2022-05-11 关注 0 浏览25 1答案
-
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序：Private Sub rune(L AS Labe1)Caption="1234"End SubPrivate Sub Form Load（ ）Labe11．Caption="ABCDE"Labe12．Caption=10End SubPrivate Sub Command1Click（ ）a=Va1(Label2．Caption)Call func(Label1)Label2．Caption aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（ ）。
2022-05-11 关注 0 浏览12 1答案
-
Private Sub Form_Load() Command1.Caption = "开始" Command2.Caption = "停止" Timer1.Interval = 50 Timer1.Enabled = False Label1.Caption = "热烈欢迎" Label1.AutoSize = True Label1.FontSize = 16 Label1.FontBold = TrueEnd SubPrivate Sub Command1_Click() Command1.Caption = "继续" ' Timer1.Enabled = ? 'Command1.Enabled = ? Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() ' Timer1.Enabled = ? Command2.Enabled = False Command1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() If Label1.Left < Width Then ' Label1.Left = ? Else Label1.Left = 0 End IfEnd Sub
2022-05-11 关注 0 浏览31 1答案
-
在窗体上画一个命令按钮和一个标签，其名称分别为Co mmand1和Labell ，然后编写如下事件过程：Private Sub Co mmand1＿Click（）Counter ＝0For i ＝1To 4For j＝6To 1Step －2Counter ＝Counter ＋1Next jNext iLabel1．Caption ＝Str（Counter）End Sub程序运行后，单击命令按钮，标签中显示的内容是（ ）。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Co mmand1＿Click（）X＝5：Y ＝3Call proc（x，y）Labell ．Caption ＝xLabel2．Caption ＝yEnd SubPrivate Sub proc（a As Integer ，ByVal b As Integer）X＝a＊aY ＝b ＋bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为labl1、timer1和command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。 private sub form_load()label1.capti_dj="欢迎"timer1.enabled=falsetimer1.interval= ______end subprivate sub timer1_timer()label1.visible= ______end subprivate sub command1_click()______end sub
2022-05-11 关注 0 浏览15 1答案
