VB编写一个程序 急！！

来源：百度知道 编辑：UC知道 时间：2024/05/16 04:21:07
把n=0 n=n+1自加后的结果存入一个文本中 然后再把他读出来 给一个一维数组 .帮忙用VB编写这个啊。急！！！！大家帮个忙咯 急

我就直接用Text 代表InputBox吧

Dim R As Integer
Dim zhouchang As Integer
Dim mianji As Integer
Dim zhijing As Integer

Private Sub Form1_Load()
R = Text1.text
zhouchang =
mianji = 3.14*R*R
zhijing = 2*R
Label1.Caption = "圆直径=" & zhijing & " 面积=" & mianji & "
周长=" & zhouchang

End Sub

[2] 点击一个键。。。。。清楚结果并重新计算

Private Sub Common1_Clcik()
Label1.Cpation = ""

R = Text1.Text
R = Text1.text
zhouchang =
mianji = 3.14*R*R
zhijing = 2*R
Label1.Caption = "圆直径=" & zhijing & " 面积=" & mianji & "
周长=" & zhouchang
End Sub

点击退出并退出程序

Priavte Sub Common2_Click()
End
End Sub

我机子上没有VB 不知道是否可以顺利通过编译

希望对你有帮助

对你这个问题很有兴趣，说清楚一下
给个例子说一下
然后我立即作出来

这个问题，VB基础那本书中有很多这个方面的事例的啊！