vb实验：输入半径，计算圆周长和圆面积得输出

_M30_ 2023-03-21 17:42

• 

  ____简单de爱

  2023-03-21 18:19

  错了一堆Private Sub Command1_Click()Dim a! （定义语句不能在中间，除非是REDIM）Dim b!Dim c!a = 3.14b=Text1.Text c = 2 * a * bText2.text= c (也可以是 val （c )） text没有PRINTEnd Sub 事件Private Sub Form_Load() Text2.Text = "" Text1 = "" Text3.Text = "" text3干吗用的，程序中没有 End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) Then '（你的Isnumeric函数的语句在哪里？如果另外有的话那这段程序没有问题） MsgBox "有非数字字符错误" Text1.Text = "" Text1.SetFocus End IfEnd Sub
  0 讨论(0)
  发布评论:

  提交评论

  ---

  •  加载中...