VB程序设计第三版实验A
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
VB程序设计第三版实验A答案(全)
1
Private Sub Command1_Click()
Label3 = Text1
End Sub
2
Private Sub Form_Load()
Timer1.Interval = 0 End Sub
Private Sub Command1_Click() '自动
Timer1.Interval = 200 End Sub
Private Sub Command2_Click() '手动
Timer1.Interval = 0
Call MyMove
End Sub
Private Sub Timer1_Timer()
Call MyMove
End Sub
Sub MyMove()
Label1.Move Label1.Left - 50
If Label1.Left < 0 Then Label1.Left = Form1.Width
End Sub
3
Private Sub Form_Click()
Text1 = Val(Text1) + 1 End Sub
Private Sub Form_Load()
Text1 = 0
End Sub
4
Private Sub Form_Click()
Caption = "单击窗体,改变图片"
Picture = LoadPicture(App.Path + "\n_015.bmp")
Print "欢迎使用VB"
End Sub
Private Sub Form_DblClick()
Cls
Caption = "双击窗体,卸去图片"
Picture = LoadPicture("") '
End Sub
Private Sub Form_Load()
Caption = "装入窗体"
Picture = LoadPicture(App.Path + "\n_016.bmp")
Print "装入图"
End Sub
Private Sub Form_Resize() ' 该事件的作用窗体始终与图一样大
'Caption = "窗体大小不变"
'Form1.Width = 260 * 16 ' 260是Tongji-2.bmp图的宽度,象素单位
'Form1.Height = 260 * 16 + 200 ' 260是图的高度,象素单位,200是窗体的标题栏高度 End Sub
5
Sub Command1_Click()
Text1.FontName = "隶书"
Text1.FontSize = 25
End Sub
Sub Command2_Click()
Text2.Text = Text1.SelText
Text2.FontName = Text1.FontName
Text2.FontSize = Text1.FontSize End Sub