[院校资料]Visual Basic程序设计—实验报告册-参考答案

《[院校资料]Visual Basic程序设计—实验报告册-参考答案》由会员分享，可在线阅读，更多相关《[院校资料]Visual Basic程序设计—实验报告册-参考答案（60页珍藏版）》请在文档大全上搜索。

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

2、 = 375 Left = 2640 TabIndex = 0 Top = 2400 Width = 1575 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click() Print Sqr(8), 8 (1 / 3)End SubVERSION 5.00Beg

3、in 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

4、 TabIndex = 0 Top = 2640 Width = 855 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click() Dim i% For i = 100 To 110 Print i, i (1 / 2) NextEnd SubVERSION

5、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 =

6、0 'False EndProperty ForeColor = &H000000FF& LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 '窗口缺省EndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribut

7、e 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 StartUpPosi

8、tion = 3 '窗口缺省 Begin VB.Label Label1 Caption = "蓝天、白云、绿水、青山" BeginProperty Font Name = "宋体" Size = 21.75 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 975 Left = 600

9、TabIndex = 0 Top = 1080 Width = 4935 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False实验2VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3090 ClientLeft

10、 = 60 ClientTop = 450 ClientWidth = 3615 BeginProperty Font Name = "宋体" Size = 12 Charset = 134 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty LinkTopic = "Form1" ScaleHeight = 3090 ScaleWidth = 3615 StartUpPosition = 3 '窗

11、口缺省 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 TabInd