注意:存盘时必须存放在考生文件夹下,工程文件名为ylcl.vbp,窗体文件名为ylcl.frm。
第1题
在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程:
Private Sub Form_C1ick()
Textl.Text="VB Programming"
End Sub
Private SubText1_change()
Picture1.Print"VB程序设计"
End SUb
程序运行后,单击窗体,则在文本框中显示的内容是______,而在图片框中显示的内容是______。
第3题
设当前日期为2008年4月28日,星期一,则执行下面语句后的输出结果为______。
Print Day(Now)
Print Month(Now)
Print Year(Now)
Print Weekday(Now)
第4题
设有如下程序段:
a$="BeujingShanghai"
b$=Mid(a$,Instr(a$,"g")+1)。
执行上面的程序段后,变量b$的值为______。
第6题
片框中填充不同的图案,请填写程序的空白处,使程序完整。Private Sub Optionl_Click() Dim H,W Picture1.Cls Picturel.FillStyle=________ W=Picturel.ScaleWidth/2 H=Picturel.ScaleHeight/2 Picture1.Circle(W,H),W/2 End Sub
第7题
(灰色)。当向文本框中输入任何字符时,命令按钮command1变为可用。请将程序补充完整。
Private Sub Form_Load()
Command 1.Enabled=False
End Sub
Private SubText1【 】()
Command1.Enabled=True
End Sub
第9题
开”菜单项,则执行打开文件的操作,当选定了文件(例如:G:WBk2010 9\in.txt)并打开后,该文件的文件名会被添加到菜单中,如图2所示,各菜单项的名称和标题等定义如下表。
以下是单击“打开”菜单项的事件过程,请填空。
Dim mnuCounter As Integer
Pivate Sub mnuopen_Click()
CD 1 ShowOpen
If CD1.FileName<>””Then
Open ________For InputAs1
mnuCounter=mnuCounter+1
Load FName(mnuCounter)
FName(mnuCounter).Caption=CD 1.FileName
FName(mnuCotInter)._______:True
Close1
End If
End Sub
第10题
车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico'、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2,Timer1用于变换信号灯,黄灯1秒,红灯2秒,绿灯3秒;Timer2用于控制汽车向左移动。运行时,信号灯不断变换。单击“车按”按钮后,汽车开始移动,如果移动到信号灯前或信号灯下,遇到红灯或黄灯,则停止移动,当变为绿灯后再继续移动。
在窗体中已经给出了全部控件和程序,但程序不完整,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件以原文件名存盘。sjt5.frm文件内容如下:
Dim a%,b As Boolean
Private Sub C1_Click()
' Timer2.Enabled=?
b=True
End Sub
Private Sub Timer1_Timer()
a=a+1
If a>6 Then
a=1
End If
Select Case a
Case 1
P1.Picture=LoadPicture("黄灯.ico" )
Case 2,3
P1.Picture=LoadPicture("红灯.ico")
Case 4,5,6
' P1.Picture=LoadPicture("?")
If b Then Timer2.Enabled=True
End Select
End Sub
Private Sub Timer2_Timer()
If (a<4) And (P2.Left>P1.Left And P2.Left<P1.Left+P1.Width)
Or P2.Left<=100 Then
' Timer2.Enabled=?
Else
' P2.Move? —10,P2.Top,P2.Width,P2.Height
End If
End Sub
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!