Visual Basic程序设计—实验报告册-参考答案.doc

1、实验一VERSION 5.00Begin VB.Form Form1 Caption = Form1 ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = Form1 ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 窗口缺省 Begin VB.CommandButton Command1 Caption = Command1 Height = 375 Left = 2640 TabIndex = 0 Top = 2400 Width = 1575 EndEndAttribute VB_Name = Form1Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click(

2、) Print Sqr(8), 8 (1 / 3)End SubVERSION 5.00Begin VB.Form Form1 Caption = Form1 ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = Form1 ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 窗口缺省 Begin VB.CommandButton Command1 Caption = Command1 Height = 495 Left = 3720 TabIndex = 0 Top = 2640 Width = 855 EndEndAttribute VB_Name = Form1Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = Fals

3、ePrivate Sub Command1_Click() Dim i% For i = 100 To 110 Print i, i (1 / 2) NextEnd SubVERSION 5.00Begin VB.Form Form1 AutoRedraw = -1 True Caption = Form1 ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 BeginProperty Font Name = 楷体_GB2312 Size = 21.75 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty ForeColor = &H000000FF& LinkTopic = Form1 ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 窗口缺省EndAttribute VB_Name =

4、 Form1Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Form_Load() Print: Print Print 郑州大学在前进！End SubVERSION 5.00Begin VB.Form Form1 Caption = Form1 ClientHeight = 3780 ClientLeft = 60 ClientTop = 345 ClientWidth = 6285 LinkTopic = Form1 ScaleHeight = 3780 ScaleWidth = 6285 StartUpPosition = 3 窗口缺省 Begin VB.Label Label1 Caption = 蓝天、白云、绿水、青山 BeginProperty Font Name = 宋体 Size = 21.75 Charset = 134 Weight = 4

5、00 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty ForeColor = &H00FF0000& Height = 975 Left = 600 TabIndex = 0 Top = 1080 Width = 4935 EndEndAttribute VB_Name = Form1Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False实验2VERSION 5.00Begin VB.Form Form1 Caption = Form1 ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 3615 BeginProperty Font Name = 宋体 Size = 12 Charset = 134 Weight

6、 = 700 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty LinkTopic = Form1 ScaleHeight = 3090 ScaleWidth = 3615 StartUpPosition = 3 窗口缺省 Begin VB.CommandButton Command2 Caption = 商 Height = 375 Left = 1920 TabIndex = 4 Top = 1680 Width = 975 End Begin VB.CommandButton Command1 Caption = 乘积 Height = 375 Left = 600 TabIndex = 3 Top = 1680 Width = 975 End Begin VB.TextBox Text2 Height = 375 Left = 1920 TabIndex = 2 Top = 840 Width = 1095 End Begin VB.TextBox Text1 Height = 375 Left = 480 TabIndex = 1 Top = 840 Width = 1095 End Begin VB.La

《Visual Basic程序设计—实验报告册-参考答案.doc》由会员marr****208分享，可在线阅读，更多相关《Visual Basic程序设计—实验报告册-参考答案.doc》请在金锄头文库上搜索。