实验一
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = \ ScaleHeight = 3195 ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \ Height = 375 Left = 2640 TabIndex = 0 Top = 2400 Width = 1575 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() Print Sqr(8), 8 ^ (1 / 3) End Sub
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = \ ScaleHeight = 3195 ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \ Height = 495 Left = 3720
TabIndex = 0 Top = 2640 Width = 855 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() Dim i%
For i = 100 To 110 Print i, i ^ (1 / 2) Next End Sub
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True Caption = \ 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 = \ ScaleHeight = 3195 ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省 End
Attribute VB_Name = \
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False
Private Sub Form_Load() Print: Print
Print \郑州大学在前进!\End Sub
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 3780 ClientLeft = 60 ClientTop = 345 ClientWidth = 6285 LinkTopic = \ ScaleHeight = 3780 ScaleWidth = 6285
StartUpPosition = 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 TabIndex = 0 Top = 1080 Width = 4935 End End
Attribute VB_Name = \
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False 实验2
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 3090
ClientLeft = 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 = \ 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.Label Label3
BorderStyle = 1 'Fixed Single Caption = \ Height = 375 Left = 2040 TabIndex = 6 Top = 2400 Width = 975 End
Begin VB.Label Label2
Caption = \计算结果为:\ Height = 375 Left = 480 TabIndex = 5 Top = 2400 Width = 1575 End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = \请输入两个数:\ Height = 240 Left = 960 TabIndex = 0 Top = 360 Width = 1785 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 = Val(Text1) * Val(Text2) End Sub
Private Sub Command2_Click() Label3 = Val(Text1) / Val(Text2) End Sub
VERSION 5.00
Begin VB.Form Form1
Caption = \