[院校资料]Visual Basic程序设计—实验报告册-参考答案
![[院校资料]Visual Basic程序设计—实验报告册-参考答案_第1页](https://file3.renrendoc.com/fileroot_temp3/2022-2/12/7c9e87d7-0bf7-4688-8862-6b3425bc0417/7c9e87d7-0bf7-4688-8862-6b3425bc04171.gif)
![[院校资料]Visual Basic程序设计—实验报告册-参考答案_第2页](https://file3.renrendoc.com/fileroot_temp3/2022-2/12/7c9e87d7-0bf7-4688-8862-6b3425bc0417/7c9e87d7-0bf7-4688-8862-6b3425bc04172.gif)
![[院校资料]Visual Basic程序设计—实验报告册-参考答案_第3页](https://file3.renrendoc.com/fileroot_temp3/2022-2/12/7c9e87d7-0bf7-4688-8862-6b3425bc0417/7c9e87d7-0bf7-4688-8862-6b3425bc04173.gif)
《[院校资料]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