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

内容发布更新时间 : 2024/12/23 13:29:43星期一 下面是文章的全部内容请认真阅读。

实验一

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 = \