【VB开源代码栏目提醒】:网学会员--在 VB开源代码编辑为广大网友搜集整理了:6.2.4.frm绩等信息,祝愿广大网友取得需要的信息,参考学习。
VERSION 5.00
Begin VB.Form Form2
Caption = "Form2"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form2"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 615
Left = 1320
TabIndex = 0
Top = 960
Width = 1095
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub Recarea(Rlen, Rwid)
'定义过程,该过程含长、宽两个参数
Dim Area
Area = Rlen * Rwid
'求面积
MsgBox "该矩形面积是 " & Area
'输出面积
End Sub
Private Sub Command1_Click()
'在命令按钮的单击事件中调用该过程
Dim A, B
A = InputBox("请输入矩形长")
'获取键盘输入
A = Val(A)
'转化为数值型数据类型
B = InputBox("请输入矩形宽")
B = Val(B)
Recarea A, B
'调用过程
End Sub
上一篇:
6.2.1.frm
下一篇:
浅析普外科围手术期抗菌药物的应用