程序设计基础——Visual Basic学习与实验指导 教学课件 作者 陈丽芳习题答案 第6章实验答案.docVIP

实验6-1： Option Explicit 变量强制说明语句 Const PI As Single=3.141593 Private Sub CmdCalculation_Click() Dim r As Single, l As Single, s As Single 定义变量 r = Val(Txtr.Text) 接收用户输入到文本框中的圆半径 l = __2*PI*r_________ 计算周长 s = _PI*r*r__________ 计算面积 Txtl.Text = CStr(l) 输出结果 Txts.Text=Cstr(s)_______________ End Sub Private Sub CmdClear_Click() Txtr.Text = 清空数据 Txtl.Text = Txts.Text = Txtr.SetFocus 设置焦点，等待下一次输入 End Sub Private Sub CmdClose_Click() _____End__________ 结束程序 End Sub 实验6-2： Private Sub Form_Clic