VisualBasic程序设计—实验报告册-参考答案

ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 5490 BeginProperty Font

Name = \宋体\ Size = 12 Charset = 134 Weight = 700

Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty

LinkTopic = \ ScaleHeight = 3090 ScaleWidth = 5490

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command3 Caption = \隐藏\ Height = 375 Left = 4080 TabIndex = 3 Top = 2040 Width = 975 End

Begin VB.CommandButton Command2 Caption = \图片2\ Height = 375 Left = 4080 TabIndex = 2 Top = 1320 Width = 975 End

Begin VB.CommandButton Command1 Caption = \图片1\ Height = 375 Left = 4080 TabIndex = 1 Top = 600 Width = 975 End

Begin VB.PictureBox Picture1 AutoSize = -1 'True BeginProperty Font

Name = \宋体\ Size = 9 Charset = 134 Weight = 400

Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty

Height = 1935 Left = 600 ScaleHeight = 1875 ScaleWidth = 2715 TabIndex = 0 Top = 480 Width = 2775 End End

Attribute VB_Name = \

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click()

Picture1.Picture = LoadPicture(\End Sub

Private Sub Command2_Click()

Picture1.Picture = LoadPicture(\End Sub

Private Sub Command3_Click() Picture1.Visible = False End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = \收款机\ ClientHeight = 2730 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 BeginProperty Font

Name = \宋体\ Size = 12

Charset = 134 Weight = 700

Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty

LinkTopic = \ ScaleHeight = 2730 ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \总价为\ Height = 375 Left = 600 TabIndex = 4 Top = 1920 Width = 1695 End

Begin VB.TextBox Text2 Height = 495 Left = 3000 TabIndex = 3 Top = 960 Width = 1335 End

Begin VB.TextBox Text1 Height = 495 Left = 3000 TabIndex = 2 Top = 240 Width = 1335 End

Begin VB.Label Label3

Alignment = 2 'Center

BorderStyle = 1 'Fixed Single Height = 495 Left = 2760 TabIndex = 5 Top = 1920 Width = 1455 End

Begin VB.Label Label2

Alignment = 2 'Center

Caption = \货物的单价(元):\

Height = 375 Left = 360 TabIndex = 1 Top = 1080 Width = 2295 End

Begin VB.Label Label1

Alignment = 2 'Center

Caption = \货物的数量(个):\ Height = 375 Left = 360 TabIndex = 0 Top = 360 Width = 2295 End End

Attribute VB_Name = \

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub

Begin VB.Form Form1

Caption = \ ClientHeight = 1890 ClientLeft = 60 ClientTop = 450 ClientWidth = 4365 LinkTopic = \ ScaleHeight = 1890 ScaleWidth = 4365

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command2 Caption = \清除\ BeginProperty Font

Name = \宋体\ Size = 12 Charset = 134 Weight = 700

Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False

EndProperty

Height = 375 Left = 2400 TabIndex = 3 Top = 1200 Width = 975 End

Begin VB.CommandButton Command1 Caption = \复制\ BeginProperty Font

Name = \宋体\ Size = 12 Charset = 134 Weight = 700

Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty

Height = 375 Left = 720 TabIndex = 2 Top = 1200 Width = 975 End

Begin VB.TextBox Text2 Height = 495 Left = 2160 TabIndex = 1 Top = 360 Width = 1695 End

Begin VB.TextBox Text1 Height = 495 Left = 480 TabIndex = 0 Top = 360 Width = 1455 End End

Attribute VB_Name = \

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4