当前位置:首页 » VB程序题 » 正文

VB程序题:输入半径,计算圆周长和圆面积,如下图所示。

2017-05-13 11:24:42  分类: VB程序题  参与:

VB程序题:输入半径,计算圆周长和圆面积,如下图所示。
进一步要求,为了保证程序运行的正确,对输入的半径要进行合法性检查,数据检查调用IsNumeric函数,参阅教材例2.5;若有错,利用MsgBox显示出错信息,如下图所示。通过Focus方法定位于出错的文本框处,重新输入;计算结果保留2位小数。

数据输入结束有两种方法,分别编写事件过程对数据进行检验:
1.按Tab键,检查数据的合法性,这时利用Text1_LostFocus事件。
2.按Enter键,利用Text1_KeyPress事件,返回参数“KeyAscii”的值为13表示输入结束。

解题:
Private Sub Command1_Click()
 Label2 = Format(Val(Text1) * Val(Text1) * 3.14, "0.00")
End Sub

Private Sub Command2_Click()
  Label3 = Format(Val(Text1) * 3.14 * 2, "0.00")
End Sub

Private Sub Text1_LostFocus()
 If IsNumeric(Text1.Text) = False Then MsgBox "有非法数字字符,请重新输入!"
End Sub
 
程序运行效果如下图所示。


Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

来源:济亨网

本文链接:http://www.wb98.com/post/56.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

赞助商链接

湘公网安备 43011102000514号 - ICP备08100508号