VB04
1、打开文件“考生文件夹\60\工程1.vbp”，完善Command1_Click事件代码并保存。 实现功能：从文本框Text1中输入一个圆的半径，计算圆的面积，把结果输出到文本框Text2中。
Private Sub Command1_Click()
Const pi = 3.14
Dim r As Single
Dim s As Single
r = Val(①)
s = ②
Text2.Text = ③
End Sub
①text1.text②pi*r*r③str(s)
2、打开文件“考生文件夹\596\工程1.vbp”，完善Command1_Click事件代码并保存。 实现功能：当在文本框Text1中输入圆的半径后，单击“计算”按钮，计算圆的周长，并在文本框Text2中显示出来。
Private Sub Command1_Click()
Const pi = 3.14 '圆周率
Dim c As Single '周长
www.99jianzhu.com/包含内容：建筑图纸、PDF/word/ppt 流程，表格，案例，最新,免费下载,施工方案、工程书籍、建筑论文、合同表格、标准规范、CAD图纸等内容。